AW: Hausnummernzusatz trennen
11.04.2007 15:21:00
HermannZ
Hallo juergenk;
davon war aber bis jetzt keine Rede oder;
eine Möglichkeit du benutzt zum Beispiel diese Funktion;
'Funktion zum Trennen von Text und Zahlen
'Funktionsaufruf = TRENNEN(Zelle;Modus)
'Modus "Zahl" liefert die Zahl; Modus "Text" liefert den Text
Function Trennen(str As String, Modus As String) As String
Dim i As Integer
Dim strTemp, c As String
strTemp = ""
For i = 1 To Len(str)
c = Mid(str, i, 1)
If IsNumeric(c) Then
If Modus = "Zahl" Then
strTemp = strTemp & Mid(str, i, 1)
End If
Else
If Modus = "Text" Then
strTemp = strTemp & Mid(str, i, 1)
End If
End If
Next
Trennen = strTemp
End Function
damit setzt du den Text in eine Spalte und die Zahl in eine Spalte. Danach die Spalten Markieren -Bearbeiten- kopieren- Inhalte Einfügen- Werte - Ok.
dann werden die Formeln aus den Spalten entfernt und du kannst du ursprüngliche Spalte löschen.
Gruss HermannZ