Ich habe gerade schon eine ähnliche Frage gestellt und Hans konnte mir dabei helfen. Diese Lösung wollte ich auch in einer anderen Datei anwenden. Jedoch funktioniert es nicht in verbundenen Zellen. Ich möchte die Zellen wenn sie nicht verbunden sind wieder verbinden. Mit festen Bereichen funktioniert meine Lösung. Der Bereich der verwendet werden soll will ich mit den manuell Markierten Zellen festlegen.
Wie kann ich die Adresse des Bereiches an die Schleife weitergeben.
Die Zellen die einen kompletten Tag darstellen sind verbunden (D3 mit D4)
Soll nur der Vormittag markiert werden wird in diesm Beispiel D3 markiert. Beim Nachmittag dann D4.
Mein Makro mit festen Bereichen.
Sub test1()
Dim Woche As Byte
Dim Name As Byte
For Name = 3 To 30 Step 2
For Woche = 4 To 56
Range(Cells(Name, Woche), Cells(Name + 1, Woche)).Select
With Selection
If .MergeCells = False Then .Merge
.Interior.ColorIndex = -4142
.Font.ColorIndex = -4105
.Value = ""
End With
Next Woche
Next Name
End Sub
Gruß
Dieterlem