ich bin dabei aus einer Kalenderdatei automatisch die Kalenderwochen zu bestimmen (die stehen in Zeile B und werden über eine Formel berechnet). Jetzt will ich, dass die Spalte B von unten durchsucht wird und die Zellen mit jeweils gleichen Einträge (also Kalenderwochen) verbunden werden und dann Formatanpassungen durchgeführt werden. Leerzellen sollen so verbleiben. Mein Ansatz:
Sub test()
Dim i As Long
Application.DisplayAlerts = False
With ActiveSheet
For i = .Cells(.Rows.Count, 2).End(xlUp).Row To 2 Step -1
If .Cells(i, 2) = .Cells(i - 1, 2) And Not IsEmpty(.Cells(i, 1)) Then
With .Range(.Cells(i - 1, 2), .Cells(i, 2))
.MergeCells = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = 90
.ReadingOrder = xlContext
.Font.Bold = True
End With
End If
Next i
End With
Application.DisplayAlerts = True
End Sub
Es klappt soweit gut, doch werden die oberen 6 Zeilen nicht sauber abgefasst. Da bleiben die Werte unangetastet stehen. könnt Ihr sehen, woran es liegt?
Grüße
Ron