Zelle mit Kommas trennen und prüfen
19.09.2003 14:02:17
Bongartz
ich habe eine Datei mit viele Adressen. Die sind teilweise mit Kommas Getrennt.
Beispiel:
Prakte GmbH, Tanne 2, 66459 Gubu, ILN-Nr. 4330952000008
Prakte Bau AG, Amwald 2, 66459 Gubu, ILN 4306236000002
Markt GmbH, Wankelstr. 5, 85046 Ingolstadt
Gastronomie GmbH , Filal-Nr.,BKZ, Kto.-Nr., Kontr.-Nr. Und Lieferanschrift
Gasttronomie GmbH, 51149 Köln, Hansestr. 67-71, ILN4335374000001
World GmbH Ingolstadt
Shopping GmbH, Weg 49, 50825 Köln ILN 4031097000006
Ich habe bereits herausgefunden wie ich die 13 Stellige ILN Nummer, die immer am Ende steht, Prüfen und in die nächste Spalte separieren kann.
Sub Testen()
Dim ivar As String, ivar1 As String
ivar = Cells(2, 1)
ivar1 = Right(ivar, 13)
If IsNumeric(ivar1) Then
Cells(2, 2).Value = ivar1
With Selection
.NumberFormat = "0000000000000"
.HorizontalAlignment = xlLeft
End With
Else
Cells(2, 2).Value = "Keine ILN"
End If
End Sub
Code eingefügt mit Syntaxhighlighter 2.1
Mein Problem ist wie kann ich die PLZ und Ort finden und in Spalte 3 bis 4
schreiben?
Gruß
Bongartz