In Microsoft Excel wird häufig mit Zahlen gearbeitet. Manchmal müssen wir einen Datensatz mit großen Zahlenmengen verarbeiten. Aber es kann vorkommen, dass Ihre Zahlen wie Text aussehen. Aus diesem Grund können Sie nicht addieren, subtrahieren, dividieren, multiplizieren oder irgendeine Art von Operation durchführen. Es wird immer ein Fehler angezeigt, wenn Sie dies versuchen. In diesem Tutorial werden wir Ihnen zeigen, wie SieText zu Zahl in Excel mit VBA Codes mit geeigneten Beispielen und geeigneten Abbildungen.

Download Arbeitsbuch Praxis

Dieses Übungsheft herunterladen

Text mit VBA in Zahlen umwandeln.xlsm

Wie man als Text formatierte Zahlen identifiziert

Microsoft Excel ist intelligent genug, um den Unterschied zwischen Text und Zahl zu erkennen. Es konvertiert sie automatisch in ihr jeweiliges Format. Aber manchmal kann es das nicht tun, weil der Datensatz missbraucht und falsch interpretiert wird. Aus diesem Grund behält es die Zahlen als Text in Ihrer Arbeitsmappe.

Schauen Sie sich diesen Datensatz an: Hier haben wir einige Zahlen in einer Spalte.

Obwohl wir Zahlen in der Spalte haben, sind sie alle linksbündig wie der Text. Klicken Sie jetzt auf eine beliebige Zelle. Sie finden dieses Feld neben der Zelle.

Bewegen Sie nun den Mauszeiger über das Feld, woraufhin Sie diese Meldung sehen.

Es zeigt an, dass die Zelle als Text formatiert ist. Auf diese Weise können Sie sicher sein, ob die Zellen als Text formatiert sind oder nicht.

3 VBA-Codes zum Umwandeln von Text in Zahlen in Excel

Obwohl Sie Text leicht manuell in Zahlen umwandeln können, geht es in diesem Tutorial um die Umwandlung von Text in Zahlen mithilfe von VBA-Codes. Wir empfehlen Ihnen, all diese Methoden zu erlernen und auf Ihren Datensatz anzuwenden. Sie werden sich in vielen Situationen als nützlich erweisen.

1) VBA-Code mit der Methode Range.NumberFormat zum Konvertieren von Text in Zahlen in Excel

Diese Methode ist recht einfach und kann auf jeden Datensatz angewendet werden. Sie müssen lediglich den Zellbereich auswählen und in die Tabelle VBA-Code .

📌 Schritte

1. zuerst drücken Sie ALT+F11 auf Ihrer Tastatur, um die VBA-Editor .

2. klicken Sie auf Einfügen> Modul .

3. geben Sie dann den folgenden Code ein:

 Sub ConvertTextToNumber() With Range("B5:B14") .NumberFormat = "General" .Value = .Value End With End Sub 

4. speichern Sie die Datei.

5. dann drücken Sie ALT+F8 Es öffnet die Makro Dialogfeld.

6. auswählen ConvertTextToNumber und klicken Sie auf Laufen.

Am Ende wird dieser Code unseren Text in Zahlen umwandeln.

Lesen Sie mehr: Konvertierung einer Zeichenkette in eine Zahl in Excel VBA

2) VBA-Code mit Schleife und CSng zur Umwandlung von Text in Zahlen

Bei dieser Methode verwenden wir Schleife und CSng Funktionen: Die CSng Funktion nimmt grundsätzlich jeden Text als Argument und wandelt ihn in eine einzelne Zahl um. Unsere Schleife durchläuft jede einzelne Zelle der ausgewählten Spalte. Danach übergeben wir den Wert jeder Zelle an CSng um sie von Text in Zahlen umzuwandeln.

📌 Schritte

1. zuerst drücken Sie ALT+F11 auf Ihrer Tastatur, um die VBA-Editor .

2. klicken Sie auf Einfügen> Modul .

3. geben Sie dann den folgenden Code ein:

 Sub ConvertUsingLoop() For Each r In Sheets("Loop&CSng").UsedRange.SpecialCells(xlCellTypeConstants) If IsNumeric(r) Then r.Value = CSng(r.Value) r.NumberFormat = "General" End If Next End Sub 

4. speichern Sie die Datei.

5. dann drücken Sie ALT+F8 Es öffnet die Makro Dialogfeld.

6. auswählen ConvertUsingLoop und klicken Sie auf Laufen.

Wie Sie sehen, haben wir unseren Text mit diesem VBA-Code in Zahlen umgewandelt.

Ähnliche Lektüre

• Massenkonvertierung von Text in Zahlen in Excel (6 Möglichkeiten)
• Konvertierung einer Zeichenkette in eine lange Zeichenfolge mit VBA in Excel (3 Möglichkeiten)
• String in Excel VBA in Double umwandeln (5 Methoden)
• Fehler bei der Umwandlung in eine Zahl in Excel beheben (6 Methoden)

3 Text in Zahlen umwandeln für dynamische Bereiche in Excel

Die bisherigen Methoden bezogen sich auf ausgewählte Bereiche. Das bedeutet, dass Sie den Bereich der Zellen manuell in den Code eingeben müssen. Aber manchmal kann Ihr Datensatz sehr groß sein. In solchen Fällen müssen Sie sich den Bereich der Zellen merken. Mit dieser Methode wird dieses Problem gelöst. Wir wissen, dass unser Datensatz mit Zelle B5 Aber wir wissen nicht, wo es enden wird.

Wir identifizieren also dynamisch die zuletzt verwendete Excel-Zeile, die Daten enthält, indem wir Cells(Rows.Count, "B").End(xlUp).Row Es gibt die letzte nicht leere Zeilennummer zurück, die wir mit "" verketten. B5:B ".

📌 Schritte

1. zuerst drücken Sie ALT+F11 auf Ihrer Tastatur, um die VBA-Editor .

2. klicken Sie auf einfügen. > Modul .

3. geben Sie dann den folgenden Code ein:

 Sub ConvertDynamicRanges() With Range("B5:B" & Cells(Rows.Count, "B").End(xlUp).Row) .NumberFormat = "General" .Value = .Value End With End Sub 

4. speichern Sie die Datei.

5. dann drücken Sie ALT+F8 Es öffnet die Makro Dialogfeld.

6. dann wählen Sie ConvertDynamicRanges und klicken Sie auf Laufen.

Wie Sie sehen, ist es uns gelungen, mit den VBA-Codes Text in Zahlen umzuwandeln.

💬 Dinge zum Merken

Hier verwenden wir Spalte B für unseren Datensatz. Wenn Ihre Daten in einer anderen Spalte stehen, ändern Sie den Zellbereich in den VBA-Codes entsprechend.

Die VBA-Codes funktionieren nur auf dem aktiven Blatt.

Schlussfolgerung

Abschließend hoffe ich, dass dieses Tutorial Ihnen nützliches Wissen über die Konvertierung von Text in Zahlen in Excel mit Hilfe von VBA-Codes vermittelt hat. Wir empfehlen Ihnen, all diese Anweisungen zu lernen und auf Ihren Datensatz anzuwenden. Laden Sie die Übungsarbeitsmappe herunter und probieren Sie sie selbst aus. Außerdem können Sie uns gerne im Kommentarbereich Feedback geben. Ihr wertvolles Feedback motiviert uns, Tutorials wie dieses zu erstellen.Vergessen Sie nicht, unsere Website zu besuchen Exceldemy.com für verschiedene Excel-bezogene Probleme und Lösungen.