Supportnet Computer
Planet of Tech

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.

Antwort von