Ich habe ein Raumplan in dem automatisch(Formel die von einer dll Daten bekommt) die Belegung aus einem anderen Programm eingetragen wird.
Jetzt gibt es hintereinanter Zeiten in der die Belegung gleich sind.
z.B 08:30 10:00
FirmaX Firma X

Die Zellen die Gleich sind sollen zusammengefasst werden

08:30 10:00
Firma X
das habe ich auch wie folgt hinbekommen:
Sub verbbindeZellen()
Dim Spalte As Integer
Dim Startspalte As Integer
Dim Endspalte As Integer
Dim Wert As Variant
Dim X As Integer
Const Maxspalte As Integer = 100

Dim Arbeitsblatt As Worksheet

Startspalte = 1
Set Arbeitsblatt = ThisWorkbook.ActiveSheet
With Arbeitsblatt
For Spalte = 1 To Maxspalte
If Cells(10, Spalte) <> Wert Then
Endspalte = Spalte - 1
If Startspalte < Endspalte Then
For X = Startspalte + 1 To Endspalte
Cells(10, X).Value = ""
Next X
Range(Cells(10, Startspalte), Cells(10, Endspalte)).Merge
End If
Startspalte = Spalte
Wert = Cells(10, Spalte).Value
End If
Next Spalte
End With

End Sub

Jetzt habe ich das Problem, das bei einer erneuten Abfrage sich die Belegung geändert hat aber für den einen Zeitpunkt es keine Formel mehr gibt die die Abfrage aus dem anderen Programm macht, da die Zellen miteinander verbunden wurde und die Formel dadurch gelöscht wurde.