Zelle trennen
28.03.2013 19:07:56
Hans
ich habe nach Recherchen im Forum für die Trennung einer Zelle folgenden Code gefunden. Leider funktioniert er nicht so wie ich es mit vorstellte. Kann mit vielleicht jemand helfen bei der Anpassung?
Wert in Zelle: D1 123 dann in Zelle E1 123
Wert in Zelle: D1 123 A456 dann in Zelle E1 123 und in F1 A456
Der Code füllt mir leider nur die Zelle E1 nicht aber F1
VG Hans
Sub splitten()
Dim sTmp As String, i As Long
Application.ScreenUpdating = False
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
'Trenung in Spalte 4 nach 3 Stellen bzw Leerzeichen
sTmp = Left(Cells(i, 4), 3)
If InStr(sTmp, " ") > 0 Then
sTmp = Left(sTmp, InStrRev(sTmp, " "))
End If
' Zielspalte für Trennung
Cells(i, 5) = Trim(sTmp)
Cells(i, 3) = Trim(Mid(Cells(i, 1), Len(sTmp) + 1, 255))
Next
Application.ScreenUpdating = True
End Sub