So konvertieren sie einen string in vba in eine ganzzahl (mit beispielen)

Sie können die Funktion CInt in VBA verwenden, um eine Textzeichenfolge in eine Ganzzahl umzuwandeln.

Hier sind zwei gängige Möglichkeiten, diese Funktion in der Praxis zu nutzen:

Methode 1: String in VBA in Integer konvertieren

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        Range(" B " & i) = CInt(Range(" A " & i))
    Next i

End Sub

Dieses spezielle Makro konvertiert jede Zeichenfolge im Bereich A2:A11 in eine Ganzzahl und zeigt die Ganzzahlen im Bereich B2:B11 an.

Methode 2: String in VBA in Integer konvertieren (nur wenn String eine Zahl ist)

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CInt(Range(" A " & i))
        Else
            Range(" B " & i) = 0
        End If
    Next i

End Sub

Dieses spezielle Makro konvertiert jede Zeichenfolge im Bereich A2:A11 nur dann in eine Ganzzahl, wenn die Zeichenfolge eine Zahl ist. Andernfalls wird die Zeichenfolge in einen Nullwert konvertiert.

Die folgenden Beispiele zeigen, wie die einzelnen Methoden in der Praxis angewendet werden.

Beispiel 1: Konvertieren Sie einen String in eine Ganzzahl in VBA

Nehmen wir an, wir haben die folgende Wertespalte in Excel, derzeit als Textzeichenfolgen formatiert:

Angenommen, wir möchten jede Zeichenfolge in eine Ganzzahl umwandeln und die Ganzzahlen in Spalte B anzeigen.

Dazu können wir das folgende Makro erstellen:

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        Range(" B " & i) = CInt(Range(" A " & i))
    Next i

End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass jede Textzeichenfolge in Spalte A in eine Ganzzahl konvertiert wurde und in Spalte B angezeigt wird.

Beispiel 2: Konvertieren einer Zeichenfolge in eine Ganzzahl in VBA (nur wenn die Zeichenfolge eine Zahl ist)

Nehmen wir an, wir haben die folgende Wertespalte in Excel, derzeit als Textzeichenfolgen formatiert:

Angenommen, wir möchten jede Zeichenfolge nur dann in eine Ganzzahl umwandeln, wenn die Zeichenfolge eine Zahl ist , und die Ganzzahlen in Spalte B anzeigen.

Dazu können wir das folgende Makro erstellen:

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CInt(Range(" A " & i))
        Else
            Range(" B " & i) = 0
        End If
    Next i

End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass nur Textzeichenfolgen in Spalte A, die Zahlen sind, in Spalte B in Ganzzahlen umgewandelt werden.

Andernfalls werden Textzeichenfolgen einfach in einen Nullwert konvertiert.

Hinweis : Die vollständige Dokumentation zur VBA- Cint- Funktion finden Sie hier .

Zusätzliche Ressourcen

Die folgenden Tutorials erklären, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So entfernen Sie Leerzeichen aus einer Zeichenfolge
VBA: So zählen Sie das Vorkommen von Zeichen in einer Zeichenfolge
VBA: So überprüfen Sie, ob eine Zeichenfolge eine andere Zeichenfolge enthält