Sub konvert()
Dim Intg
Intg = 123 'Muster
Intg = CStr(Intg)
End Sub
Um eine Integer-Zahl in einen String in Excel VBA zu konvertieren, kannst du die Funktion CStr verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Sub konvertiereInteger()
Dim Intg As Integer
Intg = 123 ' Beispielwert
Dim strZahl As String
strZahl = CStr(Intg) ' Konvertiere Integer in String
MsgBox strZahl ' Zeige das Ergebnis in einer Meldung an
End SubMit diesem Code wird die Integer-Zahl 123 in einen String umgewandelt und in einem Meldungsfenster angezeigt.
Fehler: Typenkonflikt
Dim Intg As Integer.Fehler: CStr funktioniert nicht
Neben der Verwendung von CStr gibt es auch andere Methoden, um eine Integer-Zahl in einen String umzuwandeln:
Str: Diese Funktion kann ebenfalls verwendet werden, ist jedoch weniger empfehlenswert, da sie ein Leerzeichen vor positiven Zahlen hinzufügt.strZahl = Str(Intg)Format-Funktion: Diese Methode ermöglicht es dir, die Zahl in einem bestimmten Format zu konvertieren.strZahl = Format(Intg, "0")Hier sind einige praktische Beispiele, wie du Integer-Zahlen in Strings umwandeln kannst:
Sub inputBoxBeispiel()
Dim Intg As Integer
Intg = InputBox("Gib eine Zahl ein:")
Dim strZahl As String
strZahl = CStr(Intg)
MsgBox "Die umgewandelte Zahl ist: " & strZahl
End SubSub SchleifenBeispiel()
Dim i As Integer
Dim strZahl As String
For i = 1 To 5
strZahl = CStr(i)
Debug.Print strZahl ' Gibt die umgewandelte Zahl im Direktfenster aus
Next i
End SubOption Explicit am Anfang deines Moduls, um sicherzustellen, dass alle Variablen deklariert sind.Long anstelle von Integer verwendet werden sollte, um Überläufe zu vermeiden.Format-Funktion.1. Wie kann ich eine String-Zahl in einen Integer umwandeln?
Du kannst die CInt-Funktion verwenden, um einen String in einen Integer zu konvertieren, z. B.:
Dim Intg As Integer
Intg = CInt("123")2. Funktioniert das auch mit negativen Zahlen?
Ja, die CStr-Funktion kann auch negative Integer-Zahlen in Strings umwandeln, z. B.:
Dim Intg As Integer
Intg = -123
Dim strZahl As String
strZahl = CStr(Intg) ' Ergebnis: "-123"