wie kann man das am einfachsten machen
Gruß
Tobi
Sub Leerstelle_loeschen
Dim P1%, Var1$, Var2$, Var3$
Dim report as variant
Dim zeile as integer
Do until ActiveWorkbook.Worksheets(1).cells(zeile, 2).value ""
report = ActiveWorkbook.Worksheets(1).cells(zeile, 2).value
P1 = Application.Find(" ", report, 1)
Var1 = Left(report, P1)
Var2 = right(report, P1)
Var3 = Var1 & Var2
zeile = zeile+1
Loop
End Sub
Sub Leerstelle_loeschen
Dim P1%, Var1$, Var2$, Var3$
Dim report as variant
Dim zeile as integer
Do until ActiveWorkbook.Worksheets(1).cells(zeile, 2).value ""
report = ActiveWorkbook.Worksheets(1).cells(zeile, 2).value
P1 = Application.Find(" ", report, 1)
Var1 = Left(report, P1)
ActiveWorkbook.Worksheets(1).cells(zeile, 2).value = Var1
zeile = zeile+1
Loop
End Sub