title image


Smiley Re: Trennen von PLZ und Ort in Excel 97
Dieses Macro erledigt das für Dich !Sub PLZ_Ort_trennen() s = 1 ' Spalte in der PLZ und Ort gemeinsam stehen z = 1 ' Anfang des Bereichs Do Cells(z, s + 1) = "" ' Neue Zelle für PLZ löschen Cells(z, s + 2) = "" ' Neue Zelle für Ort löschen x = 1 Do ' PLZ If IsNumeric(Mid$(Cells(z, s), x, 1)) Then Cells(z, s + 1) = Cells(z, s + 1) & Mid$(Cells(z, s), x, 1) x = x + 1 End If ' Ort If IsNumeric(Mid$(Cells(z, s), x, 1)) = False Then If Mid$(Cells(z, s), x, 1) = " " And Cells(z, s + 2) = "" Then x = x + 1 Else Cells(z, s + 2) = Cells(z, s + 2) & Mid$(Cells(z, s), x, 1) x = x + 1 End If End If Loop Until x > Len(Cells(z, s)) z = z + 1 Loop Until Cells(z, s) = ""End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: