Guten Abend bzw. Guten Morgen zusammen,
ich stehe vor folgenden Problem. Ich habe hier in einer Excel Zelle "PLZ" und "Ort" stehen. Ich würde gern das PLZ aus der Zelle ausgeschnitten wird und in die Spalte daneben eingefügt wird.
Gibt es da eine Möglichkeit vllt mit ExcelReadCell?
Habe sowas für VB gefunden nur würde ich das gern in ein Script einbauen.
Code
Sub tt()
Dim Zei As Long, Satz, S
For Zei = 1 To Range("E" & Rows.Count).End(xlUp).Row
Satz = Split(Cells(Zei, 5))
For S = 0 To UBound(Satz)
If IsNumeric(Satz(S)) And Len(Satz(S)) = 5 Then
'Satz(S) = ";" & Satz(S) & ";"
Cells(Zei, 4) = Satz
Exit For
End If
Next S
Next Zei
End Sub
Alles anzeigen
Gruß
Norman