Leerzeichen am Anfang entfernen

Hallo, ich habe ein Problem.
Mit dem untenstehen Code will ich den Text in einer Zelle, der durch " / " getrennt wird in zwei verschiedene Zellen schreiben. Das fuktioniert auch so weit. Nun habe ich aber folgendes Problem. Der Text hinter dem "/" fängt mit einem Leerzeichen an: TExt1 / Text2. Wenn der Text2 nun in die Spalte 4 geschrieben wird, steht an seinem Anfang ein Leerzeichen. Besteht die Möglichkeit dieses Leerzeichen zu entfernen?
Wüd mich freuen, wenn mir jemand helfen könnte.
Gruß
Steffen
For lngRow = 11 To Cells(Rows.Count, 3).End(xlUp).Row
If InStr(1, Cells(lngRow, 3).Text, " / ") Then
varArray = Split(Cells(lngRow, 3).Text, "/")
Cells(lngRow, 3) = varArray(0)
Cells(lngRow, 4) = varArray(1)
End If
Next

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo allerseits,
das Geschwindigkeitsthema geht in eine andere Richtung. Das Problem ist, dass Excel mit Formeln deutlich schneller rechnet als mit code, und das if... ist bei der codeversion auch von Belang. Testet mal die 3 Varianten.


Sub test()
For i = 1 To 20000
Cells(i, 1) = "test" & i & " / " & "gut"
Next
End Sub


Sub test1()
'celleron 2600, ca. 40 s
Cells(1, 2) = Format(Now, "hh:mm:ss")
For lngRow = 2 To 20000
If InStr(1, Cells(lngRow, 1).Text, " / ") Then
varArray = Split(Cells(lngRow, 1).Text, "/")
Cells(lngRow, 2) = Trim(varArray(0))
Cells(lngRow, 3) = Trim(varArray(1))
End If
Next
Cells(20001, 2) = Format(Now, "hh:mm:ss")
End Sub


Sub test2()
'celleron 2600, ca. 26 s
Cells(1, 5) = Format(Now, "hh:mm:ss")
On Error Resume Next
For lngRow = 2 To 20000
varArray = Split(Cells(lngRow, 1).Text, "/")
Cells(lngRow, 5) = Trim(varArray(0))
Cells(lngRow, 6) = Trim(varArray(1))
Next
Cells(20001, 5) = Format(Now, "hh:mm:ss")
End Sub


Sub test3()
'celleron 2600, ca. 2 s
Cells(1, 8) = Format(Now, "hh:mm:ss")
Range("h2:h20000").FormulaR1C1 = "=LEFT(RC[-7],FIND("" / "",RC[-7])-1)"
Range("i2:i20000").FormulaR1C1 = "=RIGHT(RC[-8],LEN(RC[-8])-FIND("" / "",RC[-8])-2)"
Range("h2:i20000").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Cells(20000, 8) = Format(Now, "hh:mm:ss")
End Sub

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

326 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Leerzeichen am Anfang entfernen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

326 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread