Zahl/Text trennen
14.12.2007 12:13:39
Gregor
Text/Zahl trennen funktioniert mit folgender Formel:
Sub trennen() Dim b As Integer Dim Text As Variant Dim Name As Variant Dim Nummer As Integer Name = "BB2" For b = 1 To Len(Name) If IsNumeric(Mid(Name, b, 1)) Then Exit For Next b Text = Left(Name, b - 1) Nummer = Right(Name, (Len(Name) - (b - 1))) End Sub
Wie lautet die Prozedur, wenn zuerst die Zahl steht, also "2BB"
Vielen Dank
Gregor