|
... das hat übrigens, mit einer sehr hohen Wahrscheinlichkeit, genau den gegenteiligen Effekt den du damit anstrebst.
Beachte bitte auch, dass die Forenteilnehmer meist in ihrer Freizeit - manche auch mal in ihrer Pausenzeit - antworten. Geduld ist daher eine Tugend!
Beiträge werden hier immer gelesen - sollte mal auf länger Zeit keine Antwort kommen liegt es am Beitrag. Sollte es dir nicht schnell genug gehen, beauftrage einen Dienstleister.
probier mal (Tabelle geht in A1 los):
Option Explicit
Sub Test()
Dim rng As Excel.Range
Set rng = Range("A1")
Do While Trim$(rng.Offset(0, 1).Value) <> ""
If rng.Offset(0, 1).Value = "-" Then
If Trim$(rng.Offset(1).Value) = "" Then
Call Union(rng.Offset(0, 1).Resize(, 2), rng.Offset(1)).Delete
Else
Set rng = rng.Offset(1)
Call rng.Offset(-1).Resize(, 3).Delete
End If
Else
Set rng = rng.Offset(1)
End If
Loop
End Sub
|