ich Versuche gerade für meine Fachwirtweiterbildung einen kleinen Plan zu erstellen wann ich Seminare habe und wann ich in welcher Abteilung bin.
Jetzt nun zu meinem Problem ich möchte dass im Plan Automatisch nach Farbigen Zellen gesucht wird und die nebeneinander liegenden automatisch gemerget werden (ich lasse vorher die Zellen anhand eines Dynamischen Kalenders automatisch einfärben). Wenn ich jetzt aber z.b. 6 nebeneinander liegende Zellen habe hab ich nach dem ich mein Makro durchlaufen lassen habe immer nur 3 mal 2 zellen zusammen und nicht alle 6 in einem
Hier mal mein Makro:
Sub XYZ()
Dim i As Integer
Dim n As Integer
For n = 13 To 13
For i = 2 To 20
If Cells(n, i -+1).Interior.colorindex = 8 And Cells(n, i).Interior.colorindex = 8 Then
Range(Cells(n, i), Cells(n, i + 1)).MergeCells = True
End If
Next
Next
End Sub
Gruß Dominic