Office: Zellen je nach Inhalt anderer Zellen verbinden oder trennen trennen

Hallo Leute

Ich habe hier mal ein kleines Problem das ich mit hilfe des Internets bislang noch nicht lösen konnte.

Mein Ziel ist es bei einer Art Kalender die Kw anzuzeigen und wenn das jahr geändert wird sollen die Kw sich auch ändern.

ok so weit ganz einfach aber

die Zellen sollen sich verbinden wenn sie zur selben Kw gehören





ok habe ich auch gschafft und hier startet mein problem

wenn ich das Jahr ändere sind die Kw ja auch anders aber die Zellen sind ja schon verbunden und sie sollen sich wieder aufteilen und entsprechend neu verbinden.





(Inhalt meiner Zellen )
E1 = 01.01.2017
E2 = =KALENDERWOCHE(E$3;2)
E3 = =E1

F2= =KALENDERWOCHE(F$3;2)
F3= =E4+1

fortlaufend für den ganzen Monat

Die Zellen der Zeile 2 sollen sich verbinden und zentrieren wenn sie den selben inalt haben so das nur einmal 1 Kw über den zellen steht (siehe Bild 1)

Wenn ich jetzt in E1 01.01.2018 reinschreibe sind sie dann aber falsch...

wie bekomme ich das hin ? hat da jemand eine idee ?

MfG
Wild-freak

:)

 

Das habe ich bisher in VBA

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:05"), "RefreshSheet"

Application.DisplayAlerts = False
Application.ScreenUpdating = False 'Schaltet den Bildschirm an

a = 2
For e = 2 To 39
b = Cells(2, e)
If Cells(2, e + 1) = b Then
GoTo 1
Else
Range(Cells(2, a), Cells(2, e)).Merge
a = e + 1
End If
1 Next e
Application.DisplayAlerts = True
Application.ScreenUpdating = True 'Schaltet den Bildschirm wieder aus

End Sub

 

Hi,

wäre es nicht besser, die Zellen nicht zu verbinden sondern stattdessen einfach die KW in die erste Zelle des jeweiligen Zellbereichs einzutragen und dann mittels Zellen formatieren -> Ausrichtung -> Textausrichtung Horizontal: "Über Auswahl zentrieren" die Überschrift sozusagen in die Mitte zu rücken?

 

Interessantes Thema, Beverlys Lösung würde mich auch interessieren! Ich probiere morgen selber mal aus

 

Hallo Beverly,

das Problem ist ja das es wenn das Jahr geändert wird dann nicht automatisch die Felder in der selben Zelle starten würden und somit die Überschrift über den falschen Zellen wäre so wie ich deinen Vorschlag jetzt verstanden habe.

Oder meintest du es anders ?

MfG Wild-freak

 

Hallo Wild-freak,

die Funktion "über Auswahl zentrieren" hatte ich bisher übersehen, funktioniert aber. Aber es ist nicht zieführend, da ja für jedes Jahr die Auswahl manuell oder per VBA neu gesetzt werden muss.

Wenn ich mir meinen Wandkalender betrachte, dass wird die Kalenderwoche immer Montags gezeigt.

Da gibt es nun 2 ganz einfache Möglichkeiten.

1. Kalenderwoche zu jedem Datum ermitteln und per bedingter Formattierung unsichtbar machen, wenn Zellwert = Zellwert links daneben.

2. Kalenderwoche immer nur dann ermitteln, wenn es sich um einen Montag handelt.

Mittels bedingter Formatierung kannst du dann auch die Wochentrennstriche einfügen.

Du kannst natürlich die Kalenderwoche mittels BF auch nur erscheinen lassen, wenn es sich um einen Mittwoch handelt. Dann wäre sie auch zentriert.

 

Hi,

ich meine das so:

Code:

 

Vielen dank Beverly!

Ich verstehe zwar nicht wirklich wie es funktioniert aber es funktionert!
auch ein Danke an WS-53

 

Hi,

mit einfachen Worten macht der Code folgendes: er läuft in einer Schleife über alle Spalten, ermittelt die erste Spalte der jeweiligen KW und die letzte, trägt in die 1. Spalte die KW-Nr. ein und zentriert dann den Eintrag der 1. Spalte der KW über den entsprechenden Spalten.

Ich habe mal ein paar Kommentare in den Code eingefügt - vielleicht wird es dann verständlicher:

Code:

 

Moin!
Zumindest wenn es um deutsche KWs geht, sind die Formeln aus der Eröffnung falsch!
Der 1.1.2017 ist KW52
E2 = =KALENDERWOCHE(E$3;21)
wäre richtig (und werden von Karin ja auch eingesetzt).

Nur so am Rande.

Gruß Ralf

 

Super Jetzt blicke ich da auch durch! *top

Aber inzwischen habe noch ein kleines Problem entdekt dabei
im Dezember läst es die letzte Woche aus geht nur bis zur 51 Kw.
Die anderen füllt er aus mit dem Macro.

Woran liegt das oder woran könnte das liegen?

 

Ergänze den blau markierten Codeteil:

Code:

 

Hallo Beverly,

ich habe bei den letzten Zellen, je nach Monat keine Eintragung von einem Datum. Kann man das so machen, das er dann nichts einträgt?

Bzw. ist es auch möglich das er um die jeweiligen KWs einen Rahmen drum macht?

Grüße

Skidrow

 

Hi,

ich weiß leider nicht, wie du die Anzahl an Tagen für den jeweiligen Monat realisiert hast, aber schau dir in der Arbeitsmappe Kalenderwoche zentriert (auf meiner HP) das Beispiel2 an.

 

Ich werde mir das morgen mal angucken. Habe das ganze aber über dein VBA Beispiel erstellt.

Code: