Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
632to636
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
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ersetzen('.' -->',)mit makro->daten gehen verloren

ersetzen('.' -->',)mit makro->daten gehen verloren
11.07.2005 13:19:31
Mareike
Hallo,
ich habe eine Textdatei im ASCCI-Format mit einem Makro nach Excel importiert.
Hierbei sind Zahlen enthalten, welche leider durch einen Punkt getrennt sind.
Damit Excel mir daraus Berechnungen erstellen kann muss ich die Punkte durch
Kommas ersetzen.
Mach ich dies mit einem Makro(aufgenommen), dann gehen mir die Hochzahlen von meiner Zahl verloren. Z.B. vorher: 2.32E-05 nach Makro: 2,32E+00.
Hab schon versucht das Format vor dem ersetzen umzuwandeln,... aber alles ohne Erfolg....
Bin echt ratlos.
Kann mir jemand helfen?

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

Betreff
Datum
Anwender
Anzeige
AW: ersetzen('.' -->',)mit makro->daten gehen verloren
11.07.2005 13:43:39
u_
Hallo,
kannst du den Code posten? Meine Glaskugel ist zum polieren weg.
Gruß
Geist ist geil!
AW: ersetzen('.' -->',)mit makro->daten gehen verloren
11.07.2005 13:51:04
Mareike
Also heutzutage noch Glaskugeln zu verwenden... da gibts doch schon besseres ;-)
Reicht der Teil aus dem Code, nachdem es schief geht? Oder ist es auch von interesse
wie ich die Datei in Excel einfefügt habe?
Das ist jedenfalls der Ersetzen Teil:
Range("A1").Select
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Danke schonmal Mareike
AW: ersetzen('.' -->',)mit makro->daten gehen verloren
11.07.2005 14:36:06
u_
Hallo,
also bei mir steht dann 2,32E-05 in der Zelle.
Was gibt es denn besseres als Glaskugeln? Die funzen wenigstens stromlos und ohne I-Net. Werden leider nur manchmal blind, wenn man Dateien von 'VBA nur mit Recorder'-Fragern anschauen will und müssen dann in Drachenatem durchgeglüht und anschließend poliert werden. ;-))))
Gruß
Geist ist geil!
Anzeige
AW: ersetzen('.' -->',)mit makro->daten gehen verloren
11.07.2005 15:26:48
Mareike
ich glaub bei mir klappt das nicht weil ich zuvor eine ASCII Datei importiere.
Nachdem diese importiert ist sehen die Werte noch richtig aus, aber dann nach dem
ersetzen ist es vorbei...
Hier mal der Anfang meines Quellcodes:
Workbooks.Open FileName:= _
"C:\Messwerte.xls"
Range("A1").Select

Close
Open "C:\Daten.xls" For Input As #1
While Not EOF(1)
Line Input #1, satz
zei = zei + 1
Cells(zei, 1) = satz
Wend
Close #1
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 2), Array(2, 2))


Range("A1").Select
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Range("B4").Select
ActiveCell.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Find(What:=",", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Und danach ist alles falsch....
Was es besseres gibt als Glaskugeln?... Na die GEISTIGEseherinnenkräfte, die brauchen kein Strom und vorallem auch keine Drachen! Aber leider ist geistiges versagen bei VBA nicht ausgeschlossen... deswegen.. Drachenblut und Rabenfedern ich brauch einen VBAzauber
Anzeige
AW: ersetzen('.' -->',)mit makro->daten gehen verloren
12.07.2005 11:18:46
Marco
Hi,
schonmal probiert, die Ersetzung gleich in der While-Schleife zu erledigen, bevor es in Excel eingefügt wird?
Manchmal hilft es auch, VOR dem Import das Format der Zellen anzupassen. Einfach mal mit Text, Zahl etc. durchspielen.
Oder die Zellen in eine Text-formatierte Hilfsspalte importieren und dann mit Wert() darauf zugreifen.
Gruß Marco

304 Forumthreads zu ähnlichen Themen

Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Anzeige
"#Wert!" suchen, durch "" ersetzen
Detlef

Hallo Experten,
warum lässt sich im VBA der Ausdruck "#Wert!" nicht durch "" ersetzen.
(im Excel geht es)
mit "1234567" geht es auch ohne Probleme ?
Selection.Replace What:="#WERT!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
macht er nich...
29.08.2008 11:23:20
Thread-ID: 1005759
6 Beiträge
, ersetzen durch einen .
andreas

Hallo,
wenn ich in einer Spalte ein , durch einen . ersetzen will verschiebt sich der Punkt um 2 Stellen nach links und macht dann z. B. aus 14,7204 dann 0.147204.
Kann mir jemand sagen wie ich aus der Zahl mit dem Komma exakt die Zahl mit dem Punkt bekomme.
Vielen Dank
Andreas<...
07.09.2008 18:47:00
Thread-ID: 1007995
3 Beiträge
Anzeige
Eintrag z.B. KW 52 durch Datum ersetzen
Hubert

Hallo liebe Forumsmitglieder,
aktuelle habe ich eine Frage zur Lösung folgender Aufgabenstellung:
In einer Zelle habe ich den Eintrag KW 51, KW 52,....
In der darunterliegenden zelle möchte ich automatisch das Datum dieser Woche eintragen:
Für die KW 15 : 15.12. - 21.12.08
...
18.12.2008 10:40:00
Thread-ID: 1033798
3 Beiträge
internetseite Punkt ist ein komma
Michael

Hallo!
Ich versuche die internetseite http://www.ls-d.de/Kursabfragen.15.0.html die Daten auszuwerten. Jedoch gibt es nach der Aktualisierung immer wieder den Punkt aus. 23.203 damit kann man keine Rechenoperation ausführen. Gibt es eine Möglichkeit die Werte mit einem Komma darzustellen au...
28.01.2009 17:27:33
Thread-ID: 1044643
4 Beiträge
TextBox Komma in Punkt umwandeln
Heinz

Hallo Leute
Wie kann ich bitte,wenn in Textbox6 ein Komma eingegeben wird, das es automatisch auf Punkt wechselt ?
Gruß
Heinz
28.01.2009 17:42:00
Thread-ID: 1044650
3 Beiträge
CSV selbst erstellt - Komma statt Punkt
Philipp

Hallo an alle!
Ich erzeuge über ein - im Archiv gefundenes - Makro aus den Daten eine CSV-Datei.
Für die verschiedenen Spalten brauch ich eigene Formatierungen (zB Spalte 2: Datumsformat mit ".", klappt).
Wie bekommen ich es hin, dass er bei den Werten (Spalten 4, 5 und 6) ein Komm...
29.07.2009 11:08:31
Thread-ID: 1092173
7 Beiträge
Punkt in xlText-file per vba durch Komma ersetzen
Bernd


Liebe Excel-Gemeinde,
mit dem nachstehenden Code wird ein Blatt mit xls-Format in ein Blatt txt-Format konvertiert.
With wbZiel
Application.DisplayAlerts = False
.SaveAs strFile, _
FileFormat:=xlText, CreateBackup:=False 'Zeile neu aufgenommen f. tabstopp getrennt<...
08.01.2010 14:27:26
Thread-ID: 1128272
7 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
4
4
5
2
6
2
3
2
6
6
3
2
5
2
3
5
4
8
2
2
4
2
1
1
4