Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

In VBA Text in Zahl Excel umwandeln

Forumthread: In VBA Text in Zahl Excel umwandeln

In VBA Text in Zahl Excel umwandeln
08.12.2017 15:02:08
Daniel
Hallo,
ich habe ein Problem dass die Zahlen die ich in einer ComboBox habe
beim eintragen in die Excel Tabelle immer als Text angezeigt werden
und somit meine Bedingte Formatierung nicht Funktioniert.
Ich bin kein VBA oder Profi und habe schon in mehreren Beiträgen geschaut,
aber ich bekomms einfach nicht hin.
könnte mir BITTE jemand eine genaue Beschreibung schicken wie ich dieses
umwandeln kann?
MfG
Daniel
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In VBA Text in Zahl Excel umwandeln
08.12.2017 15:05:46
Hans
Moin moin,
meinst du sowas hier:
https://support.office.com/de-de/article/Konvertieren-von-Zahlen-die-als-Text-gespeichert-wurden-40105f2a-fe79-4477-a171-c5bad0f0a885
Hans
AW: In VBA Text in Zahl Excel umwandeln
08.12.2017 15:18:32
Daniel
Ja genau, dass habe ich auch schon versucht...
Funktioniert aber nur mit Zahlen die schon in Excel eingetragen sind.
Wenn ich dann über mein VBA Formular neue hinzufüge, dann habe ich wieder das
selbe Problem.
Anzeige
cells(1,1)=Cdbl(Combobox1.value) ... owT
08.12.2017 15:20:08
Matthias
AW: In VBA Text in Zahl Excel umwandeln
08.12.2017 15:18:37
Nepumuk
Hallo Daniel,
einfach so:
Range("A1").Value = CDbl(ComboBox1.Value)

Gruß
Nepumuk
AW: In VBA Text in Zahl Excel umwandeln
08.12.2017 15:27:04
Daniel
Hallo Neppumuk,
wie und wo soll ich das denn eintragen?
Wie gesagt, bin nicht so der Profi.
So sieht das bei mir jetzt aus:
Cells(Last, 4).Value = ComboBox_KH
Last bezieht sich auf eine Eingabetaste die ich drücke um die Daten in excel einzutragen.
Anzeige
AW: In VBA Text in Zahl Excel umwandeln
08.12.2017 15:34:30
Nepumuk
Hallo Daniel,
um meine Zeile anzupassen muss man nicht unbedingt der VBA-Profi sein.
Cells(Last, 4).Value = CDbl(ComboBox_KH.Value)
Gruß
Nepumuk
AW: In VBA Text in Zahl Excel umwandeln
08.12.2017 15:41:08
Daniel
Vielen Dank,
wäre ich nie drauf gekommen.
MfG
Daniel
AW: In VBA Text in Zahl Excel umwandeln
08.12.2017 15:19:08
Bernd
Servus,
multipliziere den Wert aus der Combobox bei der Eintragung in der Tabelle mit dem Wert 1, damit sollte aus dem Text automatisch wieder ein Zahlenformat entstehen.
Grüße, Bernd
Anzeige
;

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Verschiedene Werte in bestimmte Zahlen umwandeln
Henning

Hallo, ich versuche grade bei einem Schichtplan die Verschiedenen Zelleninhalte z.B. Zelle A3 Inhalt "U1",Zelle A4 Inhalt"1/3" usw. in Werte umzuwandeln und diese dann als Stunden ausrechennen zu lassen.
Also so soll z.B. aus dem Inhalt von Zelle A3, dort steht "U1" soll dann 8 Stunden ents...
15.10.2008 18:37:00
Thread-ID: 1016648
4 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge
Anzeige
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Text in Zahl umwandeln mit VBA in Excel

Schritt-für-Schritt-Anleitung

Um in Excel mit VBA Texte, die als Zahlen gespeichert sind, in echte Zahlen umzuwandeln, kannst du folgende Schritte befolgen:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Rechtsklicke im Projekt-Explorer auf VBAProject (DeineDatei.xlsx) und wähle Einfügen > Modul.

  3. Füge den Code ein:

    • Kopiere und füge den folgenden Code in das Modul ein:
    Sub TextInZahlUmwandeln()
   Dim Last As Long
   Dim i As Long
   Last = Cells(Rows.Count, 1).End(xlUp).Row ' Letzte Zeile in Spalte A finden

   For i = 1 To Last
       If IsNumeric(Cells(i, 1).Value) Then
           Cells(i, 1).Value = CDbl(Cells(i, 1).Value) ' Umwandeln in Zahl
       End If
   Next i
End Sub

  4. Führe das Makro aus:

    • Schließe den VBA-Editor und gehe zurück zu Excel.
    • Drücke ALT + F8, wähle TextInZahlUmwandeln und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Problem: Die Zahlen in der ComboBox werden als Text gespeichert.

    • Lösung: Verwende CDbl(ComboBox1.Value) beim Eintragen in die Zelle, z.B.:
    Cells(Last, 4).Value = CDbl(ComboBox_KH.Value)

  • Problem: Bedingte Formatierungen funktionieren nicht.

    • Lösung: Stelle sicher, dass die Werte wirklich als Zahlen gespeichert sind, indem du sie mit CDbl umwandelst.

Alternative Methoden

  • Multiplizieren mit 1: Du kannst den Wert aus der ComboBox auch einfach mit 1 multiplizieren, um ihn in eine Zahl umzuwandeln:

    Cells(Last, 4).Value = ComboBox_KH.Value * 1

  • Excel-Formel: Du kannst auch eine Excel-Formel verwenden, um Text in Zahl umzuwandeln. Zum Beispiel:

    =WERT(A1)

Praktische Beispiele

  1. Eintrag in Zelle: Wenn du eine Zahl aus einer ComboBox in die Zelle eintragen möchtest, verwende:

    Cells(Last, 4).Value = CDbl(ComboBox1.Value)

  2. Alle als Text gespeicherten Zahlen umwandeln: Der folgende Code wandelt alle als Text gespeicherten Zahlen in Spalte A um:

    Sub AlleTextInZahlUmwandeln()
   Dim Last As Long
   Last = Cells(Rows.Count, 1).End(xlUp).Row

   For i = 1 To Last
       If IsNumeric(Cells(i, 1).Value) Then
           Cells(i, 1).Value = CDbl(Cells(i, 1).Value)
       End If
   Next i
End Sub

Tipps für Profis

  • Nutze IsNumeric, um zu überprüfen, ob der Wert tatsächlich in eine Zahl umgewandelt werden kann.

  • Formatiere die Zellen vor dem Eintragen der Werte, um sicherzustellen, dass sie als Zahlen angezeigt werden:

    Cells(Last, 4).NumberFormat = "0.00"

  • Denke an die Performance: Bei großen Datenmengen kann es sinnvoll sein, den Bildschirmaktualisierungsmodus zu deaktivieren, während das Makro läuft:

    Application.ScreenUpdating = False
' Dein Code hier
Application.ScreenUpdating = True

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass meine Daten korrekt umgewandelt werden?
Stelle sicher, dass du CDbl oder eine andere Umwandlungsfunktion verwendest, um sicherzustellen, dass der Wert als Zahl gespeichert wird.

2. Was ist der Unterschied zwischen CDbl und CInt?
CDbl wandelt in eine Gleitkommazahl um, während CInt in eine ganze Zahl umwandelt. Verwende CDbl, wenn du Dezimalzahlen benötigst.

3. Kann ich auch mehrere Spalten gleichzeitig umwandeln?
Ja, du kannst die Schleife anpassen, um mehrere Spalten gleichzeitig zu durchlaufen. Achte jedoch darauf, die entsprechenden Spaltenindizes zu verwenden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige