ChatGPT-Thema: Alphanerischen Eintrag aufteilen

Excel VBA: Wie kann ich eine Zeichenfolge wie "12AB3C45D" in die Zahl 12345 und die Zeichenfolge "ABCD" aufteilen?

In Excel VBA können Sie die Zeichenfolge "12AB3C45D" in die Zahl 12345 und die Zeichenfolge "ABCD" aufteilen, indem Sie die "Mid"-Funktion und die "Asc"-Funktion verwenden. Hier ist ein Beispielcode, der dies tut:

Sub SplitString()

    Dim inputString As String

    Dim outputNumber As Long

    Dim outputString As String

    Dim i As Integer



    inputString = "12AB3C45D"

    outputNumber = 0

    outputString = ""



    For i = 1 To Len(inputString)

        If IsNumeric(Mid(inputString, i, 1)) Then

            outputNumber = outputNumber * 10 + CInt(Mid(inputString, i, 1))

        Else

            outputString = outputString & Mid(inputString, i, 1)

        End If

    Next i



    Debug.Print "Output Number: " & outputNumber

    Debug.Print "Output String: " & outputString

End Sub

In diesem Code wird eine Schleife verwendet, um jedes Zeichen in der Eingabezeichenfolge zu überprüfen. Wenn das aktuelle Zeichen numerisch ist, wird es zur Ausgabezahl hinzugefügt. Andernfalls wird es zur Ausgabezeichenfolge hinzugefügt. Am Ende werden die Ausgabezahl und die Ausgabezeichenfolge mit der "Debug.Print"-Anweisung ausgegeben.