Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1840to1844
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
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Funktion Zahlenwert in VBA

Funktion Zahlenwert in VBA
27.07.2021 21:01:38
M@tt
Hallo ins Forum,
ich habe eine Frage zur Funktion Zahlenwert. Ich möchte einen Wert, eingefügt aus einer CSV-Datei, der als Dezimalzeichen einen Punkt hat, den Punkt durch Komma ersetzen. Das funktioniert mit der Excelfunktion problemlos, leider gelingt es mir mit VBA nicht, da ich die Einfügeposition über letzte Zeile ermittle. Seht bitte meinen Beispielcode, wo es eingefügt werden soll. Danke für Eure Zeit
https://www.herber.de/bbs/user/147338.xlsm
Gruß M@tt

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

Betreff
Datum
Anwender
Anzeige
AW: Funktion Zahlenwert in VBA
27.07.2021 21:33:36
PeTeR
Hallo M@tt,
der VBA-Befehl lautet:
Cells(letzteZeile, 2).Value = WorksheetFunction.NumberValue(Cells(letzteZeile, 1).Value, ".", ";")
Viel Erfolg
PeTeR
AW: Funktion Zahlenwert in VBA
27.07.2021 21:44:20
M@tt
Hallo Peter,
Vielen Dank es funktioniert einwandfrei ;-). Ich mußte in meinem Beispiel nur auf die erste Spalte umstellen.
Vielen Dank für die schnelle Hilfe, dann kann es ja weiter gehen.
Gruß M@tt
Schönen Abend
SystemSeparators
28.07.2021 15:28:36
Yal
Moin!
grundsätzlich verwendet ein Excel, das auf einem Windows in deutscher Sprache installiert, die Komma als Dezimal- und der Punkt als Tausender-Trennzeichen.
Man kann aber in "Optionen", "Erweitert" einstellen, dass Excel nicht die System-Einstellung sondern eine andere verwendet. Wenn diese andere auf punkt+Komma anstatt Komma+Punkt, dann wird deine Datei einwandfrei geladen und ist wesentlich schenller als die Transformation Zelle für Zelle.
VBA gesteuert musst Du nur noch sagen: System-Standard nicht verwenden, Datei laden, System-Standard wieder einstellen.
Sieht dann so aus (ich hatte keine Datei zu laden):

Sub Makro2()
Application.UseSystemSeparators = False
'hier Datei laden
Application.UseSystemSeparators = True
End Sub
VG
Yal
Anzeige
AW: SystemSeparators
28.07.2021 16:19:41
m@tt
Hallo Yal,
vielen Dank auch an Dich. Für mich ist die Lösung erstmal in Ordnung, da es sich um nur wenige Werte handelt, aber ich werde mir Deinen Vorschlag für später archivieren. Gruß M@tt
AW: Funktion Zahlenwert in VBA
29.07.2021 16:07:20
Daniel
Hi
wie liest du denn die CSV-Datei ein?
wenn du sie importierst, kannst du im Importassistenten im Schritt 3 einstellen, in welchem Format die Zahlen in der CSV vorliegen (Komma oder Punkt getrennt). Wenn du da das passende einstellst, müssten die Zahlen richtig in Excel ankommen.
Um an diese Einstellung zu kommen, musst du im Schritt 3 den Button WEITERE... klicken.
wenn du die Daten anders bekommst, kannst du die Umwandlung auch so durchführen, indem du den Punkt mit ERSETZEN durch das Komma austauschst. Wenn du das machst, wird Excel den neuen Wert erneut prüfen und ggf in eine Zahl wandeln.
das geht auch per VBA am einfachsten. Hierbei musst du allerdings den Punkt durch den Punkt ersetzen.
klingt unlogisch, aber wenn du das in VBA machst, wendet Excel für die Wandlung von Text nach Zahl immer die amerikanischen Formate an, egal welche Ländereinstellung dein Excel hat.
als VBA also am einfachsten: Columns(1).Replace ".", ".", xlpart
alternativ kannst du auch die Menüfunktion DATEN - DATENTOOLS - TEXT IN SPALTEN auf die Spalte anwenden und hierbei, wie beim Import beschrieben im Schritt 3 des Assistenten unter WEITER... einstellen, dass der Punkt das Dezimalzeichen sein soll.
auch das geht per Makro, verwende bitte den Recorder.
Gruß Daniel
Anzeige

301 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