Hey, dass war schnell gemacht ;|
Und es ist nicht nur Line Feed, sondern sogar CRLF ^^
Funktioniert aber, habs gerade mit der Datei getestet:
Private Sub AdressenTrennen(sZelle As String)
Dim sAdresse As String
Dim iSpalte As Integer, iZeile As Integer
sAdresse = Range(sZelle)
iSpalte = Asc("A")
iZeile = Mid(sZelle, InStrRev(sZelle, "$") + 1)
Do While sAdresse ""
Range("A" & Chr(iSpalte) & iZeile) = Left(sAdresse, InStr(1, sAdresse, vbCrLf) - 1)
sAdresse = Mid(sAdresse, InStr(1, sAdresse, vbCrLf) + 2)
iSpalte = iSpalte + 1
Loop
End Sub
Fügt die Daten ab Spalte "AA" ein ;)
Einfach alt + F11 drücken und dann links das Tabelleblatt auswählen, dort das oben genannte reinschreiben und noch:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
AdressenTrennen (Target.Address)
End Sub
Anschließend brauchst du nur in die Zelle mit den Daten zu klicken ^^
Und es ist nicht nur Line Feed, sondern sogar CRLF ^^
Funktioniert aber, habs gerade mit der Datei getestet:
Private Sub AdressenTrennen(sZelle As String)
Dim sAdresse As String
Dim iSpalte As Integer, iZeile As Integer
sAdresse = Range(sZelle)
iSpalte = Asc("A")
iZeile = Mid(sZelle, InStrRev(sZelle, "$") + 1)
Do While sAdresse ""
Range("A" & Chr(iSpalte) & iZeile) = Left(sAdresse, InStr(1, sAdresse, vbCrLf) - 1)
sAdresse = Mid(sAdresse, InStr(1, sAdresse, vbCrLf) + 2)
iSpalte = iSpalte + 1
Loop
End Sub
Fügt die Daten ab Spalte "AA" ein ;)
Einfach alt + F11 drücken und dann links das Tabelleblatt auswählen, dort das oben genannte reinschreiben und noch:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
AdressenTrennen (Target.Address)
End Sub
Anschließend brauchst du nur in die Zelle mit den Daten zu klicken ^^
Kommentar