ich für einen Code suchen, die die Zellen der letzten Zeile geteilt würden nach „:“ wie unten dargestellt:VBA - Zellenwert Split und legt sie in die Zeile unter
Vor
nach
Bisher Splitting Daten wie folgt aussehen - aber es funktioniert nur für die erste Zelle:
Sub test()
Dim ws As Worksheet
Set ws = Sheets("Sheet3")
Dim fullstring As String, colonposition As Integer, j As Integer, LastRow As Long, FirstRow As Long
Dim lRow As Long, lCol As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
lCol = Cells(1, Columns.Count).End(xlToLeft).Column
For j = 1 To 3
fullstring = Cells(lRow, lCol).Value
colonposition = InStr(fullstring, ":")
Cells(lRow, j).Value = Left(fullstring, colonposition - 1)
lRow = lRow + 1
Cells(lRow, j).Value = Mid(fullstring, colonposition + 1)
Next
End Sub
Ich habe eine ähnliche Problematik (mit Antwort) here gefunden, aber verwalten kann es nicht nur auf die letzte Zeile
Irgendwelche Vorschläge geschätzt bewerben!
Danke, es looke d gut auf eine Probe meiner Daten, jedoch scheint es umgekehrt zu sein: die erste Hälfte sollte in der Zelle bleiben und die zweite Hälfte sollte in die Zelle darunter gehen. Wie würdest du es ändern? – pdx
Danke! Irgendeine Idee warum, wenn ich versuche, es auszuführen, bekomme ich manchmal "Index außerhalb der Reichweite"? – pdx
Sie müssen überprüfen, ob der Zellenwert ein Trennzeichen enthält, in diesem Fall ":". Überprüfen Sie es einfach mit InStr und wenn der Rückgabewert größer als -1 ist. – holmicz