Hallo Leute,
ich hab da folgendes Problem bei Excel: in einer Zelle habe ich alles mögliche stehen, nämlich PLZ, Ort, Strasse, Str.-Nr., Tel.-Nr.
Diese Daten würde ich gerne auf 5 Spalten aufteilen (also in 5 benachbarte Zellen umverteilen).
Im Internet habe ich unter
http://www.sigmundhalpern.de/ ein Makro gefunden, das dem Ganzen schon sehr nahe kommt (siehe unten), aber eben nicht ganz ...
Kann mir vielleicht einer von euch Gurus das Makro umbauen? Wäre wirklich toll, da ich bei ein paar 100 Einträgen sonst ewig brauchen würde und ich mich mit VBA u.dergl. leider Null auskenne!
Vielen Dank,
Kasp.
------
Aus einem markierten Bereich die Vornamen und Nachnamen trennen und in die Nachbarzellen
einlesen:
Sub trennen()
Dim a%, b%, i%
Dim Zelle As Object
'Bereich muß markiert sein,
' für jede Zelle in der Markierung:
For Each Zelle In Selection
With Zelle
'Suche nach der ersten Leerstelle
a = InStr(.Value, " ")
'Schleife, falls mehrere durch leer getrennte Vornamen
'vorhanden sind, z. B. Ute Elke Meier
For i = 0 To Len(.Value)
b = InStr(Right(.Value, Len(.Value) - a), " ")
a = InStr(Right(.Value, Len(.Value) - a), " ") + a
Next
On Error Resume Next 'falls leere Zellen markiert sind
'Aufteilen auf die 1. Zelle rechts und die 2. Zelle rechts
'Vorname
Cells(.Row, .Column + 1).Value = Left(.Value, a - 1)
'Name
Cells(.Row, .Column + 2).Value = Right(.Value, Len(.Value) - a)
End With
Next
End Sub