Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
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
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahl in Text umwandeln

Forumthread: Zahl in Text umwandeln

Zahl in Text umwandeln
20.10.2007 17:18:36
Thomas
Hallo Leute,
ich möchte die in einer Zelle gespeicherte Zahl (z.B. 123,45) per VBA lesen und als Text in einer anderen Zelle in folgendem Format wieder ausgeben: 0000123.45
Das SAP versteht nur solche "Textzahlen" ;-)
Es gibt dabei nur postive Werte, aber eben auch ganzzahlige Werte ohne Komma. Diese sollen auch mit zwei Nachkommastellen umgewandelt werden also 123 in 0000123.00
Hat jemand eine Idee, wie man das einfach umwandeln kann.
Danke und Gruß
Thomas

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahl in Text umwandeln
20.10.2007 17:31:40
Original
Hi,
sollen das immer 7 Stellen vor dem Punkt sein, egal wie der Wert ist oder
immer 4 Nullen, egal wie der Wert ist?
mfg Kurt

AW: Zahl in Text umwandeln
20.10.2007 18:25:01
Thomas
Hallo Kurt,
ja immer 7 Vorkomma- und 2 Nachkommastellen...Das Komma ist in dem Fall aber ein Punkt...
Gruß Thomas

AW: Zahl in Text umwandeln
20.10.2007 18:55:00
Original
Hi,
aus dem Archiv leicht angepasst. Die zu bearbeitenden Zellen müssen markiert werden:

''== Autor: K.Rola                                                              ==
''== Erstellt am: 03.11.2004                                                    ==
''== Unterliegt dem Urheberrecht Deutschlands!                                  ==
''== Verwendung ohne jegliche Garantie und Gewährleistung!                      ==
''== Code getestet unter Windows XP und VBA6                                    ==
Option Explicit
Sub versiv()
Const M1 As String = "Weise hin..."
Const E As String = ".00"
Const Stellen As Integer = 10
Dim s As String, c As Range, Counter As Long
If Selection.Columns.Count = 1 Then
If Application.CountA(Selection)  0 Then
For Each c In Selection
s = c.Text
If Len(s) > 0 Then
Counter = Counter + 1
If InStr(s, ",") > 0 Then
s = Replace(s, ",", ".")
Else
s = s & E
End If
If Stellen - Len(s) > -1 Then
s = String(Stellen - Len(s), "0") & s
End If
c.Offset(0, 1).NumberFormat = "@"
c.Offset(0, 1) = s
End If
Next
If Counter = 0 Then
MsgBox "Keine Zellen gefunden!     ", 64, M1
Else
MsgBox Counter & " Zelle(n) bearbeitet!     ", 64, M1
End If
Else
MsgBox "Die Auswahl enthält keine Daten!     ", 64, M1
End If
Else
MsgBox "Bitte nur eine Spalte markieren!     ", 64, M1
End If
End Sub


mfg Kurt

Anzeige
AW: Zahl in Text umwandeln
20.10.2007 19:09:00
Thomas
Hallo Kurt,
danke für die schnelle Hilfe. Ich probier es morgen früh gleich mal aus... :-)))
Danke und Gruß
Thomas

AW: Zahl in Text umwandeln
20.10.2007 20:56:00
Gerd
Hallo Thomas,
ich habe es so verstanden, Beispiel von Spalte "E" nach Spalte "F".

Sub test()
Dim lngrow As Long
Columns(6).NumberFormat = "@"
For lngrow = 1 To Cells(Rows.Count, 5).End(xlUp).Row
If IsNumeric(Cells(lngrow, 5)) Then
Cells(lngrow, 6) = Replace(Format(Round(Cells(lngrow, 5).Value, 2), "0######.00"), ",", ".")
End If
Next
End Sub


Gruß Gerd

Anzeige
Sehr schön! oT
21.10.2007 00:54:00
Original
oT

AW: Prima - funktioniert beides oT
21.10.2007 08:55:00
Thomas
DANKE EUCH BEIDEN :-)))
;

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
Formatieren als Zahl/Währung im VBA
Nadine

Hallo,
ich habe jetzt folgende Formel im VBA erfasst;
Private Sub FldKurs_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(FldKurs) Then FldKurs = "" Else FldKurs = Format(FldKurs, "#,##0.00 $") End If End Sub
Diese soll bezwecken, dass in einem Textfeld nur eine Zahl st...
20.08.2008 14:28:00
Thread-ID: 1003209
2 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
Zahl als Text
Volker

Guten Morgen zusammen,
mich beschäftigt ein -für Euch warscheinlich kleines-Problem.
Ich versuche mehrere Zellen zusammenzufassen.
Dies geschieht mittels =H9&C3&JAHR(C1)&C3&C2 entspricht "blabla-2008-1".
Soweit so gut. In Zelle C2 steht allerdings 001. Dieses...
26.09.2008 10:00:00
Thread-ID: 1012518
3 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
Anzeige
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
Zahlenangaben als "text"
dieter

Hallo Forum,
in Zelle A1 steht eine Zahl.
Wenn die kleiner oder gleich 100 ist, soll in A2 stehen: 1 CEN
von 101 bis 200 : 2 CEN
von 201-300 : 3 CEN
von 301-400 : 4 CEN
usw.
Wie kann ich das bewerkstelligen?
Danke für Eure Lösungen.
dieter
28.10.2008 14:27:18
Thread-ID: 1019950
7 Beiträge
Anzeige
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
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

Zahl in Text umwandeln in Excel mit VBA

Schritt-für-Schritt-Anleitung

Um eine Zahl in Text umzuwandeln und dabei ein bestimmtes Format zu verwenden (z. B. 0000123.45), kannst Du VBA in Excel nutzen. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und gehe zu dem Arbeitsblatt, in dem Du arbeiten möchtest.

  2. Öffne den VBA-Editor mit ALT + F11.

  3. Füge ein neues Modul hinzu:

    • Rechtsklick auf „VBAProject (dein Dokument)“.
    • Wähle „Einfügen“ > „Modul“.

  4. Kopiere den folgenden Code in das Modul:

    Sub ZahlInTextUmwandeln()
   Dim c As Range
   Dim s As String
   Dim Stellen As Integer
   Stellen = 10 ' Anzahl der Stellen vor dem Komma

   For Each c In Selection
       If IsNumeric(c.Value) Then
           s = Replace(Format(Round(c.Value, 2), "0######.00"), ",", ".")
           s = String(Stellen - Len(s), "0") & s
           c.Offset(0, 1).NumberFormat = "@"
           c.Offset(0, 1) = s
       End If
   Next c
End Sub

  5. Wähle die Zellen aus, die Du umwandeln möchtest.

  6. Führe das Makro aus:

    • Gehe zu „Entwicklertools“ > „Makros“ > wähle ZahlInTextUmwandeln und klicke auf „Ausführen“.

Jetzt werden die Zahlen in der von Dir gewünschten Form in die benachbarte Zelle umgewandelt.

Häufige Fehler und Lösungen

  • Fehler: Keine Zellen gefunden!

    • Lösung: Stelle sicher, dass Du Zellen ausgewählt hast, die Zahlen enthalten.

  • Fehler: Bitte nur eine Spalte markieren!

    • Lösung: Markiere nur eine Spalte, bevor Du das Makro ausführst.

Alternative Methoden

Falls Du nicht mit VBA arbeiten möchtest, kannst Du auch die Excel-Funktionen nutzen:

  • TEXT-Funktion: Du kannst die TEXT-Funktion verwenden, um eine Zahl in Text umzuwandeln. Beispiel:

    =TEXT(A1, "0000000.00")

  • Zellenformatierung: Ändere das Zellenformat in „Text“, bevor Du die Zahl eingibst. Dies kann jedoch zu unerwarteten Ergebnissen führen, wenn Du mit großen Zahlen arbeitest (z. B. e+12).

Praktische Beispiele

  1. Beispiel 1: Wenn Du die Zahl 123 in Zelle A1 hast:

    • Das Makro wandelt sie in Zelle B1 um und gibt 0000123.00 aus.

  2. Beispiel 2: Für die Zahl 12345.67 in Zelle A2:

    • Nach der Ausführung erhältst Du 0012345.67 in Zelle B2.

Tipps für Profis

  • Verwende Fehlerbehandlung in Deinem VBA-Code, um sicherzustellen, dass der Code robust ist.
  • Nutze Option Explicit, um sicherzustellen, dass alle Variablen deklariert sind. Dies kann Dir helfen, Fehler in Deinem Code zu vermeiden.
  • Wenn Du mit großen Zahlen arbeitest, beachte die Wissenschaftliche Notation und wie Du diese in Text umwandeln kannst.

FAQ: Häufige Fragen

1. Wie kann ich eine Zahl in einen String umwandeln? Du kannst die Zahl mit der Funktion CStr() in einen String umwandeln, z. B. s = CStr(c.Value).

2. Ist es möglich, Zahlen ohne das "e" zu formatieren? Ja, indem Du die TEXT-Funktion oder VBA verwendest, kannst Du die Zahlen in dem gewünschten Format ausgeben, sodass sie nicht im wissenschaftlichen Format angezeigt werden.

3. Welche Excel-Version wird benötigt? Der bereitgestellte VBA-Code sollte in Excel ab Version 2003 ohne Probleme funktionieren.

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