ersetzen von punkt durch komma
16.05.2003 19:05:29
Markus v.P.
mein kleines Programm soll folgendes machen: mehrere Txt-Dateien nacheinander als Tabelle in excel öffnen -> immer zwei Zellen auslesen (immer die gleichen) und in eine vorgefertigte Auswertungstabelle schreiben (zweimal copy/paste).
Trotz erster vba-Versuche, klappt das alles ganz gut. mein Problem: in den Txt-Dateien stehen die Dezimalzahlen mit Punkt statt Komma. Deshalb entstehen in der Auswertung jeweils 1000er Zahlen. (Bsp.: aus 98.688 wird 98688)
jetzt hab ich durch zufall festgestellt, das das Programm richtig importiert, wenn die Quelldatei geschlossen wird bevor ich in das Auswertungsfenster wechsel und einfüge.
so geht's nicht:
Range("E8").Select
Selection.Copy
Windows("Auswertungdummy.xls").Activate
Range("C30").Select
ActiveSheet.Paste
Windows(datname).Activate
ActiveWindow.Close
So geht's:
Range("E8").Select
Selection.Copy
ActiveWindow.Close
Windows("Auswertungdummy.xls").Activate
Range("C30").Select
ActiveSheet.Paste
kann mir das jemand erklären. ich möchte nicht für die zwei werte die datei zwei mal öffnen und schließen.
die frage ist ein bisschen länger geworden als geplant, sorry, wär schön, wenn mir jemand helfen könnte.
danke, markus
Anzeige