Supportnet / Forum / Tabellenkalkulation
Raumbelegung- Zellen verbinden
Frage
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.