Bereich verbinden
25.10.2022 19:37:48
Richi
Ich komm nicht weiter.
Ich möchte bei einem Kalender den ich erstellt habe, Bereiche verbinden. Habe Probleme den Range richtig zu setzen. Möglicherweise ist diese Herangehensweise ineffizient. Vielleich kann mir jemand weiterhelfen.
Ziel ist, die Bereiche zwischen den Wochen / Monaten und Jahre zusammenzufügen.
Anschliessend will ich diese Formatieren mit unterschiedlichen Rahmenlinien. Darum mein Lösungsansatz mit "With selection".
Liebe Gruess Richi
https://www.herber.de/bbs/user/155860.xlsm
Sub Zusammenfügen()
Dim wb As Workbook
Dim WsQ As Worksheet
Dim LetzteS, StartS, StartZ As Long
Dim i, AnfS, EndS, Zähler As Integer
Dim WocheZ, MonatZ, JahrZ As Integer
Set wb = ThisWorkbook
Set WsQ = Worksheets("Kalender Werte")
StartZ = 13 'Referenz Zeile Tag
WocheZ = StartZ - 1 'Referenz Zeile Woche
MonatZ = StartZ - 2 'Referenz Zeile Monat
JahrZ = StartZ - 3 'Referenz Zeile Jahr
StartS = 2 'Referenz Spalte
AnfS = 0 'Hilfsvariable zur Bereichsbestimmung(Startspalte)
EndS = 0 'Hilfsvariable zur Bereichsbestimmung(Endspalte)
Zähler = 0 'Hilfsvariable Zähler zur Bereichsbestimmung(Endspaltespalte)
LetzteS = WsQ.Cells(StartZ, Columns.Count).End(xlToLeft).Column 'Letzter Tag in Kalender
'-------Wochen zusammenführen-------
With Selection
For i = StartS To LetzteS
Zähler = Zähler + 1
If Cells(WocheZ, i + 1) "" Then
EndS = StartS + Zähler - 1
AnfS = i - EndS + StartS
.Range(Cells(WocheZ, AnfS), Cells(WocheZ, EndS)).Select
.Merge
AnfS = StartS + Zähler
Else
End If
Next i
End With
End Sub