Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1872to1876
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
1872to1876
1872to1876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CSV import "echtes"Datum

CSV import "echtes"Datum
11.03.2022 10:07:01
Dagmar
Einen schönen guten Morgen in die Runde.........
zunächst vorweg, ich "bastle" mir meine VBACodes immer irgendwie so zusammen bis es passt, learning by doing.... ob das dann der "richtige" Weg/Code ist, wage ich an der einen oder anderen Stelle sehr zu bezweifeln. Bisher ging immer alles gut, aber jetzt bin ich an einer Stelle, an der ich einfach nicht weiter komme. Vielleicht habt Ihr einen Tipp.....
Ich möchte fortlaufend .csv Dateien importieren (Daten aus einem SolarModul (Ertrag/Verbrauch/Fehler;........ , die Dezimazahlen sind mit Punkt geschrieben). Das SolarModul exportiert jeweils die letzten 30 Tage.
Ich kann über einen CommandButton die CSV-Dateien importieren, die Daten werden untereinander in die Tabelle eingetragen und doppelte Datensätze werden entfernt. Die mit Punkt geschriebenen Zahlen werden nach dem Importieren mit Komma geschrieben, so dass sie auch wirklich eine echte Zahl sind. So weit so gut....... das funktioniert.
Mein Problem ist das Datum..... es wird nicht als echtes Datum ausgegeben.
Über einen zweiten Button (soll eigentlich später in den ersten integriert werden) wird das Datum nun in ein echtes Datum konvertiert und sortiert. Auch das funktioniert erst mal gut. Das Problem taucht an der Stelle auf, an der bereits konvertierte DatumAngaben in der Tabelle enthalten sind, ich also eine weitere CSV Datei importiere und diese konvertieren möchte. Diese "zweite" Konvertierung das bereits vorhandene "echte" Datum nochmal umschreibt und so falsche Daten entstehen..... zB Tage, die in der Zukunft liegen..... das ist ungünstig.......
und nun habe ich verschiedene Wege versucht, das Problem zu umgehen, aber ich komme auf keine gute/richtige Formulierung, die mich zum Ziel bringt.....
meine Ansätze waren:
Die Daten bereits beim Importieren in ein Datum konvertieren
die Datensätze ignorieren, die bereits ein echtes Datum sind
nur die Datensätze berücksichtigen, die als Text geschrieben sind
die Entscheidung Zeile für Zeile über eine LoopFunktion laufen lassen......
aber ich finde keinen passenden Code und der MakroRecorder bringt mich leider auch nicht weiter.....
Habt Ihr vielleicht eine Idee oder eine Lösung? Habe die ExcelDatei und verschiedene txt Dateien angefügt
Herzlichen Dank im Voraus und einen hübschen Tag
Dagmar
https://www.herber.de/bbs/user/151708.xlsm
https://www.herber.de/bbs/user/151710.txt
https://www.herber.de/bbs/user/151711.txt
https://www.herber.de/bbs/user/151711.txt

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CSV import "echtes"Datum
11.03.2022 10:22:32
Daniel
HI
nutze die Importfunktion für das Einlesen der CSV-Daten (Daten - Externe Daten - Aus Text, muss in neueren Excelversionen ggf erst über Extras - Optionen - Daten - Legacy-Assistenten aktiviert werden)
hier ist Dateiimport und Text in Spalten kombiniert, dh du kannst angeben das das Semikolon das Trennzeichen ist, der Punkt das Dezimalzeichen und die Anordnung von Tag-Monat-Jahr im Datum.
Gruß Daniel
AW: CSV import "echtes"Datum
11.03.2022 10:46:07
Dagmar
Danke Daniel.....
...ja.... theoretisch funktioniert das.
Aber dadurch werden die Daten jeweils in einem neuen Tabellenblatt geöffnet und nicht in einem bestehenden Blatt untereinander weg importiert. Ich hätte sie gerne in einem Blatt und dass es möglichst komfortabel ist.
mein Ziel wäre: ich drücke auf einen Button, wähle die zu importierende Datei aus und mit Bestätigung startet eine Automatik, die die Daten in ein bestehendes Tabellenblatt importiert, doppelte Datensätze löscht und alle Datensätze nach Datum sortiert.
Wenn ich über "Import Text/CSV" gehe..... muss ich immer noch alle Parameter einstellen, laden, die Tabellen zusammenfügen...... das möchte ich eigentlich gerne automatisieren.......
dennoch DANKE! vielleicht komme ich da auf den richtigen Ast, wenn ich das als Makro aufnehme?
Anzeige
AW: CSV import "echtes"Datum
11.03.2022 14:43:51
Daniel
naja, das mit dem Import kannst du dir doch per VBA programmieren (der Recorder ist dein Freund) und die Einstellungen im Code hinterlegen.
dann muss du nur noch über die einzelnen Importe gehen und die kopieren und in einem Blatt untereinander einfügen. Auch das ist als VBA-Code kein Hexenwerk und nicht schwieriger das das, was deine Beispieldatei an Code enthält.
Gruß Daniel
AW: CSV import "echtes"Datum
15.03.2022 10:18:50
Dagmar
Hallo Daniel....... das hört sich ja eigentlich gar nicht so kompliziert an..... ich nun wieder......wenn ich mal einen Augenblick Zeit habe, werde ich mich da noch mal in Ruhe dran setzen und eine saubere Lösung suchen....... ich schau erstmal mit der Idee von Firmus, ob die ganze Geschichte überhaupt Sinn macht....... Danke Dir und liebe Grüße.....
Anzeige
AW: CSV import "echtes"Datum
11.03.2022 11:21:03
Oberschlumpf
Hi Dagmar
bzgl Daniels Idee: auch DAS Ganze könntest du mit dem Recorder aufzeichnen, aber dann MUSST du den Code natürlich so anpassen, dass eben alles Importierte immer in deiner "Wunschtabelle" landet.
Alternativ zu Daniels Idee könntest du nach Durchlauf deines Codes bzgl der Datumsspalte B auch so vorgehen:

Dim lloRow As Long
For lloRow = 10 To Cells(Rows.Count, 1).End(xlUp).Row
Range("B" & lloRow).Value = Format(CDate(Range("B" & lloRow).Value, "dd.mm.yyyy")
Next
diese 4 Codezeilen würden Zeile für Zeile in Spalte B jeden Eintrag mit "nur" 2stelliger Jahreszahl eine 4stellige J'zahl machen.
So zumindest mein Gedanke :-) Getestet hab ich es nicht, weil gerad nich so viel Zeit.
Grundsätzlich aber find ich Daniels Idee besser, weil sauberer.
Konnte etwas helfen?
Ciao
Thorsten
Anzeige
AW: CSV import "echtes"Datum
15.03.2022 10:21:48
Dagmar
Hallo Thorsten....... Danke für Deine Mühe..... das hatte ich ausprobiert, brachte mich aber nicht wirklich zum Ziel..... ich versuche es erst mal mit der Idee von Firmus...... Danke....
AW: CSV import "echtes"Datum
11.03.2022 19:47:20
Dagmar
Danke für Eure Antworten..... ich probiere das aus, sobald ich am Rechner bin...... qurd sicher morgen werden....
Euch einen hübschen Abend....
LG Dagmar
AW: CSV import "echtes"Datum
12.03.2022 11:04:43
Firmus
Hallo Dagmar,
schau dir diese Änderungen an. U. U. macht das Makro genau das, das zu tun willst.
https://www.herber.de/bbs/user/151733.xlsm
Ich habe den anschließenden Sort gleich integriert.
Laß mich wissen, ob es passt - mindestens als Ausgangspunkt für weitere Anpassungen.
Gruß,
Firmus
ps: Motiv für die detaillierte Arbeit: Meine Daten kommen aus Brauchwassererhitzung (Vakuumröhren) nicht aus PV. Problemstellung ist nahezu identisch.
Anzeige
AW: CSV import "echtes"Datum
15.03.2022 09:59:41
Dagmar
Hallo Firmus..... Entschuldige bitte, dass ich mich erst jetzt melde..... ich war die letzten Tage leider ausgeschaltet.
WOW.... was für eine Arbeit...... DANKE...... auf die Idee, das Datum als Text zu interpretieren und umzustellen, bin ich gar nicht gekommen...... manchmal kann es so einfach sein! Es ist nahezu perfekt...... das, was ich testen konnte, funktioniert tadellos. Einzig die Zeilen 7-9 werden beim ersten Lesen beschrieben, dann aber nicht weiter berücksichtigt. Ich habe sie jetzt einfach ausgeblendet und dann stören sie ja nicht weiter...... für meine Zwecke würde das so reichen. Kannst Du das für Deine Anlage denn so auch nutzen?
Herzlichen Dank und liebe Grüße
Anzeige
AW: CSV import "echtes"Datum
16.03.2022 21:35:13
Firmus
Hallo Dagmar,
passt für mich bestens. Ich kann es in den Details noch anpassen (20 Jahre Vacuumröhren, 45 Jahre IT) - das sollte klappen.
Hast du noch ein (kleines) Problem mit 7-9 - lass es mich wissen.
LG;
Firmus

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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