Live-Forum - Die aktuellen Beiträge
Datum
Titel
02.05.2024 22:34:29
Zeilen suchen und löschen aus zwei ListObject
02.05.2024 22:04:57
Immer erste Mappe ansprechen und bestimmten Bereich kopieren
02.05.2024 18:17:15
Button fixieren
02.05.2024 17:27:11
Größten/höchsten Buchstaben einer Spalte anzeigen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1880to1884
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
1880to1884
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text in Zahl mit Schaltfläche und VBA

Text in Zahl mit Schaltfläche und VBA
06.05.2022 06:29:02
Caro
Guten Morgen zusammen,
ich habe ein Problem. Ich möchte gerne Zahlen die in einer Spalte als Text vormatiert sind über eine Schaltfläche mit Makro in eine Zahl umwandeln lassen. Wenn ich das versuche mit dem Makrorekorder aufzuzeichnen: -> Zellen markieren, dann grünes dreieck anklicken -> "in eine Zahl umwandeln" https://www.herber.de/bbs/user/152907.xlsm
Ich Danke euch im voraus.
Caro

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Zahl mit Schaltfläche und VBA
06.05.2022 06:38:06
Matthias
Hallo,

Dim rng As Range
For Each rng In Range(Range("A1"), Range("A1").End(xlDown))
If IsNumeric(rng.Value) Then rng.Value = rng.Value * 1
Next
Gruß ...
AW: Text in Zahl mit Schaltfläche und VBA
06.05.2022 07:03:33
Caro
Hallo Matthias,
da markiert mir der Debugger das rng nach "For Each" und sagt: Fehler beim Kompilieren. Steuervariable For Each muss vom Typ Variant oder Objekt sein.
Gruß
Caro
AW: Text in Zahl mit Schaltfläche und VBA
06.05.2022 07:22:55
Oberschlumpf
Hi Caro,
ersetz deinen Code mal durch diesen:

Sub Makro7()
' Makro7 Makro
Dim rng As Range
For Each rng In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If IsNumeric(rng.Value) Then
rng.Value = Replace(rng.Value, ".", ",")
rng.Value = rng.Value * 1
End If
Next
End Sub
Der manchmal enthaltene "." in einer Zahl soll wohl das Kommazeichen sein, oder?
Dieser wird jedenfalls durch "," ersetzt.
Hilfts?
Ciao
Thorsten
Anzeige
AW: Text in Zahl mit Schaltfläche und VBA
06.05.2022 07:43:24
Caro
Hallo Thorsten,
vielen Dank das hilft schon etwas weiter. Die "Textzahlen" werden jetzt in Zahlen umgewandelt. Und richtig, die "." sollen Kommastellen sein. Das lässt das Makro jetzt allerdings komplett weg. So wird aus 19.6 nicht 19,6 sondern 196.
Gruß
Caro
AW: Text in Zahl mit Schaltfläche und VBA
06.05.2022 07:48:08
Oberschlumpf
ähh?
Hi Caro,
da machst DU noch irgdwas falsch.
Denn ich hab meinen Code ja getestet - und zwar in dieser Datei
https://www.herber.de/bbs/user/152910.xlsm
Und hier wird nach klick auf Button aus z Bsp 19.6 = 19,6
Ciao
Thorsten
AW: Text in Zahl mit Schaltfläche und VBA
06.05.2022 08:03:00
Caro
Auch wenn ich deine Datei runter lade und öffne kommen bei mir die 196 raus. Kann das an meiner eingestellten Sprache liegen? Bei mir ist leider Firmenseitig englisch eingestellt und ich kann das auch nicht ändern. Ich habe auch unter Oprionen-Erweitert-Trennzeichen-Dezimal auf Komma eingestellt, aber es funktioniert trotzdem nicht.
Anzeige
AW: Text in Zahl mit Schaltfläche und VBA
06.05.2022 08:31:48
Oberschlumpf
ok, few minutes ago before I set up Excel and Windows to english
I write on in english now? :-)
I don't think so :-)))
Hallo Caro,
ich befürchte eh bei meinen mageren Englischkenntnissen, dass das auf Dauer in die Hose gehen würde :-))
Also: zuerst nur Excel auf Englisch umgestellt = keine Änderung, Werte werden noch immer korrekt mit "," gezeigt.
Erst, nachdem ich auch Windows (und Regionseinstellungen) auf Englisch umstellte, sah auch ich den Fehler in meiner gezeigten Datei - aus 19.6 wird mit meinem Code 196.
So, einfach die Replace-Zeile löschen oder deaktivieren und aus Text "19.6" wird die echte Zahl 19.6
hier die Datei
https://www.herber.de/bbs/user/152912.xlsm
Und wehe, du jammerst jetzt rum, dass du trotz Englischsystem das "," als Kommazeichen brauchst! :-P :-)
Da wüsst ich dann auch keine Lösung - außer vllt: erst nach Umstellung auf echte Zahl den "." gegen "," replacen.
Aber DAS bekommst du dann auch hin.
Hilfts? :-)
Ciao
Thorsten
Anzeige
AW: Text in Zahl mit Schaltfläche und VBA
06.05.2022 08:38:51
Caro
Thorsten das ist phantastisch, ich bin begeistert. Vielen vielen vielen Dank :)
Und nein, die "." in "," brauche ich dann nicht. Jetzt weiß Excel ja das es eine Zahl ist und kann damit rechnen.
vorherigen Beitrag auf "offen" gesetzt=falsch owT
06.05.2022 07:24:02
Oberschlumpf
ich habs funktionierend getestet ... owT
06.05.2022 08:19:01
Matthias

302 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
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
Anzeige
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
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

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
5
11
5
3
1
11
21
2
7
4
3
3
2
1
8
5
4
21
3
5
2
2
6
4