Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text in Zahl mittels VBA umwandeln

Text in Zahl mittels VBA umwandeln
08.08.2006 10:53:46
Josef
Hallo!
Ich habe ich mehreren Spalten Beträge stehen, welche als Text mit vier Kommastellen formatiert sind.
Ich möchte diese Spalten jetzt mittels VBA in eine Zahl mit 2 Kommastellen umwandeln.
Wie würde hier bitte eine VBA Lösung aussehen?
Danke
Josef

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Zahl mittels VBA umwandeln
08.08.2006 10:58:24
Hans
Hallo Josef,
wie folgt:

Sub Umwandeln()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange.Cells
If rng.Value Like "*,####" Then
rng.NumberFormat = "0.00"
rng.Value = WorksheetFunction.Round(rng.Value, 2)
End If
Next rng
End Sub

gruss hans
AW: Text in Zahl mittels VBA umwandeln
08.08.2006 11:25:55
Josef
Hallo Hans!
Danke für Deine Antwort.
Nachdem ich die Zellen markiert hatte und das Makro startete, erhielt ich die Meldung Typen unverträglich un die Zeile
If rng.Value Like "*,####" Then
wurde geld markiert.
Danke
Josef
AW: Text in Zahl mittels VBA umwandeln
08.08.2006 11:34:52
Hans
Hallo Josef,
die Zellen müssen nicht markiert werden. Ich vermute mal, dass sich irgendwo ein Fehlerwert befindet, det nicht bearbeitet werden konnte. Tausche die Zeile:
If rng.Value Like "*,####" Then
bitte aus durch:
If rng.Text Like "*,####" Then
gruss hans
Anzeige
AW: Text in Zahl mittels VBA umwandeln
08.08.2006 12:03:24
Josef
Hallo!
Besten Dank. Klappt perfekt.
Danke nochmals für Deine Hilfe und schönen Tag noch
Josef
AW: Text in Zahl mittels VBA umwandeln
08.08.2006 11:05:21
Sylvio
Hallo Josef,
kleines Beispiel in A1 und A2 stehen die Zahlen als Text formatiert:

Sub test()
Dim a As String
Dim b As String
a = ThisWorkbook.Sheets(1).Cells(1, 1).Text
b = ThisWorkbook.Sheets(1).Cells(2, 1).Text
c = Round(CDbl(a), 2)
d = Round(CDbl(b), 2)
End Sub

Gruß Sylvio

300 Forumthreads zu ähnlichen 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
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
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Anzeige
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
11
3
1
11
2
7
4
3
3
2
1
5
4
21
3
5
2
6
4
3
8
14
3
1