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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen