CSV am Ende einer Exceltabelle einfügen?

Hi,

folgendes Szenario: Ich bekomme in unterschiedlichen Zeitabständen CSV Dateien die ich in Excel importieren möchte. An sich ist das ja kein Problem. Jedoch möchte ich den ganzen Schritt automatisieren und die Daten der CSV an das Ende einer formatierten Tabelle setzen. Hat folgenden Hintergrund: Ich möchte über die Daten der CSV Dateien mehrere Auswertungen laufen lassen. Diese müssen nur einmal angelegt werden und danach immer über alle Daten aus allen CSVs laufen. Die Daten aus den CSV Dateien werden einmalig Importiert, also sind keine Dateiverbindungen nötig. Mein erster Gedankengang war ein Excelsheet "Import" in welches ich die Daten lade und dann per Makro ans ende der Tabelle schiebe. Doch da war mein Problem ein VBA-Skript zu schreiben welches immer an die nächste freie Stelle die Daten kopiert. Eventuell gibt es ja auch eine einfachere Lösung und ich finde Sie nicht. Ich habe Excel2016 im Einsatz und keine Einschränkungen in Sachen Makros. Zudem ist es eine 64bit Version welches die Verarbeitung großer Makros relativ zügig funktioniert.

Vielen Dank im Voraus für alle Antworten

Grüße

2 Antworten

PWolff

02.03.2016, 19:35

Die letzte belegte Zelle einer Tabelle erhältst du mit

Tabelle.Cells.SpecialCells(xlLastCell)

Leider berücksichtigt Excel nicht, wenn Bereiche gelöscht werden, sodass eine einmal belegte Zeile immer in die Zeile der letzten Zelle eingeht, ebenso für die Spalten.

Immerhin kann man die Zeilen durchgehen und nachsehen, ob etwas darin steht.

Du könntest z. B. die Daten aus der Importtabelle in die Sammeltabelle wie folgt kopieren:

Range(Importtabelle.Cells(1,1), Importtabelle.Cells.SpecialCells(xlLastCell)).Copy(Sammeltabelle.Cells(Sammeltabelle.SpecialCells(xlLastCell).Row+1,1))

Iamiam

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

02.03.2016, 22:52

"ans Ende der Tabelle": Wenn du die Spalte kennst (hier A), bekommst Du die letzte Zelle angesteuert mit

Range("A1048576").end(xlup)

und die erste freie mit

Range("A1048576").end(xlup).offset(1., 0)

Das ist sicherer als Range("A1").end(xldown), da freie Zellen diesen Vorgang stören würden.

ist die letzte Zelle in einer unbekannten Spalte, muss man das zB so machen wie P.Wolff das beschreibt, aber dann noch die erste Spalte und die Zelle darunter ansteuern, denn Du willst die CSV-Datei ja nicht an die letzte Zelle selbst anhängen, nehme ich an, zB mit

Tabelle.Cells.SpecialCells(xlLastCell).offset(1, 0).end(xltoleft)

Moin ihr Lieben. Ich habe folgendes Problem. Ich brauche genau eine Funktion die Excel schon hat.. aber etwas geändert. Undzwar gibt es ja die Möglichkeit unter Datei -> Externe Daten importieren -> Aus Text, CSV Dateien sehr gut zu importieren. Dort kann man angeben ab welcher Zeile der CSV Datei erst importiert werden soll, weil z.B. in der ersten Zeile nur Überschriften stehen. Mein Problem ist das dies immer nur mit einer zur Zeit geht. Kennt jemand ein Makro mit welchem dies geht bloß eben mit mehreren? Das man sagt: die ersten 3 Zeilen immer ignorieren und alles andere ab A1 oder so untereinadner einfügen?

Wäre eine super Hilfe!!!

...zur Frage

VBA - Daten in andere Datei schreiben

Ich habe ein Excel-sheet mit Daten und Makros. Nun möchte ich die Daten in eine neue Excel Tabelle schreiben, so das keine Makro-Sicherheits meldung beim öffnen der ausgegeben Datei kommt.

Wie geht das?

...zur Frage

Wie kann ich mehrere HTML Dateien möglichst ohne Aufwand in eine Excelliste importieren?

Ich habe 10 HTML Dateien und eine Exceltabelle, in die der Inhalt der HTML Dateien integriert werden soll.

Sagen wir einfach mal die Dateien haben die Namen 1-10. In der Exceltabelle gibt es für jede Datei eine Lasche, in die die Daten aus den Dateien eben importiert werden sollen.

Hat jemand eine Idee wie ich das hinbekommen könnte?

...zur Frage

Täglicher automatisierter Vergleich zweier csv Dateien?

Hallo,

da ich leider nicht alle technischen Begriffe richtig kenne und deshalb evtl. hier falsch verwende bereits vorab die Bitte um Entschuldigung.

Ich bekomme täglich eine csv Datei mit Daten aktueller, also zum heutigen Tag angestellten, Mitarbeitern. Hier steht bspsweise Personalnummer (eindeutiger Schlüssel), Nachname, Vorname,Eintrittsdatum und Austrittsdatum (Achtung: Das Austrittsdatum stimmt leider nicht immer). Zur Veranschaulichung die Datumsangaben mal weggelassen.

...

124514; Müller; Jonas;

231423; Fischer, Joachim;

423313; Haupt, Christian;

...

Sobald ein Mitarbeiter nicht mehr aktiv ist (also aus der Firma ausgetreten ist) wird der Datensatz am folgenden Tag auch nicht mehr übergeben (kommt also in der aktuellen csv Datei nichtmehr vor).

Es würde also am Folgetag die csv folgendermaßen aussehen, wenn Müller das Unternehmen verlassen hat und Newbie beispielsweise neu angefangen hat. Die Neueintritte müssen nicht abgefangen werden, wollte ich nur als Info dazusagen, dass diese dann zusätzlich in der neuen Datei vorhanden sind. Es geht ausschließlich um die Austritte, also die Mitarbeiter die in Vortagsdatei vorkamen, jetzt in tagesaktuellen aber nicht mehr vorkommen.

...

231423; Fischer, Joachim;

423313; Haupt, Christian;

599999; Newbie, Franziska;

...

Da das Austrittsdatum, welches auch mitgeliefert wird, leider teilweise nicht korrekt ist, kann ich mich nicht auf dieses Feld verlassen und irgendwie danach gehen. Auch haben beispielsweise unbefristete Mitarbeiter hier keinen Eintrag.

Ich bin nun auf der Suche nach einer Möglichkeit, wie ich die täglichen Austritte abfangen kann, also die Differenz zwischen mitgelieferten Daten der aktuellen Datei gegenüber der zum Vortag vergleichen kann. Dies sollte jeden Tag automatisiert funktioniert (durch einen Windows Dienst?)

Meine Idee war, dass ich diese beiden csv Dateien Datei H (Heute, im Beispiel oben die Datei mit Newbie) und Datei H-1 (gestern, Datei mit Müller) täglich vergleichen lassen und mir die Austritte jeweils in eine extra Datei, egal ob csv oder Excel, ausgeben lasse, sodass ich am Ende jeden Monats alle Austritte nochmal überprüfen kann.

Im obrigen Beispiel sollte dann beispielsweise der Datensatz zu Herrn Müller in eine Datei übergeben werden inkl den mitgelieferten Informationen wie Eintrittsdatum und Co. und wenn möglich dem aktuellen Tag (oder Zeitpunkt/aktueller Zeitstempel, damit nachvollzogen werden kann, wann genau dieser Mitarbeiter ausgetreten ist)

Leider fehlt mir jede technische Idee, wie ich sowas am schlausten umsetze und technisch realisiere. Hierfür wäre ich euch sehr über eure Ideen dankbar! Ich will ungern zunächst in eine komplett falsche Richtung laufen und danach bemerken, dass dies mir diesem System nicht umsetzbar ist.

Da dies wohl meine Mammutsaufgabe in meinem Praktikum sein wird, bin ich demjenigen, der sich hier die Zeit nimmt, mir bei der Lösungsfindung zu helfen, natürlich sehr, sehr dankbar! Vielen dank!

...zur Frage

Hey, ich möchte gerne per VBA meine Tabelle als CSV exportieren, allerdings ohne ohne Zeilen. Wie geht das?

Also meine Tabelle besteht aus Kopfzeile plus hunderten Daten untereinandern, wobei es auch zu Lücken kommen kann.

Daher möchte ich alle von Spalte A1 bis Spalte Y160000 ohne Leerzeilen in einer CSV-Datei exportieren.

Kann ich dazu auch den Dateiname flexibel gestalten? Also das der Dateiname z.B. "Auto" plus Unterstrich plus Zelle H5 besteht?

Vielen Dank

...zur Frage

Wie kann man eine Exceltabelle automatisch sortieren?

Hallo zusammen

Ich habe eine Exceltabelle erstellt mit zwei Blättern. In dem einen Blatt trage ich die Resultate eines Turniers ein, im anderen die Tabelle.

Nun konnte ich die Tabelle sortieren, dass ist ja keine Kunst. Ich sortiere die Tabelle nach Punkte, Tore etc. Nun, das Problem ist, dass wenn ich im anderen Blatt ein Resultat ändere, die Tabelle nicht automatisch neusortiert. Also der erste bleibt erster, auch wenn ein anderes Team mehr Punkte holt. Ich müsste dann immerwieder neu sortieren, damit ich die Tabelle aktuell halten kann.

Ich habe gelesen, dass es mit Makros möglich ist, konnte jedoch den Code nicht richtig abändern.

Es betriffrt die Zeilen A20:F24 und A28:F32

Vielen Dank für eure Hilfe.

...zur Frage

Excel 2016 mehrere .csv Dateien in einem Diagramm?

Ich habe zehn .csv Dateien in welchen jeweils Messwerte einer Maschine aufgelistet sind. Ich möchte nun um die Werte zu vergleichen die Messwerte aus allen .csv Dateien in einem Excel Diagramm darstellen. Habe bisher jedoch nur die Möglichkeit gefunden, jede einzelne .csv Datei aufzumachen und die Daten in eine neue Excel-Datei zu kopieren, gibt es da einen einfacheren Weg?

Danke vorab für eure Hilfe

...zur Frage

C# Datagridview falsches Format nach Export in CSV?

Hallo :)

Ich habe ein Programm geschrieben welches Daten aus einer Tabelle holt und diese in einem Datagridview anzeigt.

Eine der Daten ist das Geburtsdatum welches in dem Datagridview so angezeigt wird:

01.01.1990

Wenn ich dann jedoch die Gridview in eine CSV-Datei Exportiere und diese dann öffne steht in der Spalte des Geburtsdatums:

#######

Und wenn ich drauf klicke steht drinnen:

01.01.1990 00:00:00

Kann mir einer helfen wie ich das richtig Formatiere?

Und das es gleich richtig in die CSV-Datei Exportiert wird?

...zur Frage

Excel Zelle trennen und in Spalten umwandeln?

Hallo,

aufgrund der "Corona" Krise, muss ich mein Geschäft leider mit Online-Shopping am leben halten.

Um die Hersteller Excel CSV Daten importieren zu können, muss ich diese vorab etwas bearbeiten. Vielleicht gibt es für mein Problem eine Automatisierung?

Ich habe folgende Beispiel Tabelle:

Spalte A | Spalte B | Spalte C

Hemd XY | Grün, Blau, Weiß | L,M

Ich brauche diese für meine Shop wie folgt.

Hemd XY | Grün | L

Hemd XY | Grün | M

Hemd XY | Blau | L

Hemd XY | Blau | M

Hemd XY | weiß| L

Hemd XY | weiß | M

Also Spalte B und C sollen nach dem Komma getrennt werden und der ganze Artikel in eine neue Zeile geschrieben werden. Wobei Spalte C für jede Farbe erscheinen soll.

Vielleicht kann mir da jmd behilflich sein. Bis ich dies händisch angepasst habe, ist die Krise vorbei.

Danke

VG
Siggi

...zur Frage

Wie anonymisiere ich Kundendaten in verschiedenen Excel-Dateien?

Ich kenne mich mit Excel leider nicht sonderlich gut aus und hab vor allem bei der Programmierung von Makros sehr wenig Erfahrung. Deshalb bitte ich um Hilfe.Folgendes Problem : Ich habe einen Ordner mit ca. 20 Excel Dateien und soll in den Dateien personen-bezogene Daten anonymisieren. Dabei sind nicht alle Daten in jeder Tabelle, d.h. z.B. in einer nur der Vorname in einer anderen Nachname und Adresse usw. Hat jemand eine Idee wie man das realisieren kann oder eine nützliche Website im Angebot? Vielen Dank schonmal !

...zur Frage

Neue CSV Datei in python anlegen?

Ich möchte gerne bestimmte Daten in einer CSV Datei abspeichern.

Ich habe mir aber überlegt, dass Ich gerne jedes mal, wenn das Programm startet, eine neue Datei anlegen will.

Wie schaffe Ich es, dass Ich den Dateien z.B. eine fortlaufende Nummer mit in den Namen gebe, damit keine Daten verloren gehen?

...zur Frage

Wie kann ich verhindern, dass Excel .csv Dateien automatisch beim öffnen umwandelt?

Wenn ich eine .csv Datei öffne, wandelt Excel diese automatisch in eine Tabelle um. Es wird also automatisch der Datensatz an den Kommastellen getrennt, ohne dass ich dies über den Textimport-Assistenten anstoßen muss.

Was kann ich tun? Excel Version ist 2007.

Danke schonmal!

...zur Frage

Excel VBA - Darstellung waagerecht-vertikal beim kopieren ändern?

Hallo,

ich habe in einer fertigen Tabelle etwas geändert, um die Eingabe der Daten zu erleichtern. Statt die Daten in der Spalte zu erfassen, werden die Daten jetzt in einer Zeile eingegeben.

Also statt vorher in B10, B11, B12... jetzt in B10, C10, D10...

Die Daten werden mit Hilfe eine Makros in eine andere Tabelle transferiert und waagerecht eingefügt.

Da ich aber die Eingabeart verändert habe, werden die Daten jetzt untereinander in die Tabelle eingefügt.

Ich weiß, dass das mit "Application.Transpose" zu tun hat.

Nun weiss ich aber nicht wie ich die Zeile umbenennen muss, damit die waagerechte Darstellung übernommen wird.

Wie ändere ich die Zeile, damit die angesprochenen Werte waagerecht in die Zeile kopiert werden?

Hier der komplette Code:

Sub transfer_werte()
    Dim rngKunde    As Excel.Range
    Dim rngReklam   As Excel.Range
    Dim rngArtikel   As Excel.Range

     Set rngKunde = Worksheets("Eingaben").Range("C5:C10")
    Set rngReklam = Worksheets("Eingaben").Range("D5:D9")
    Set rngArtikel = Worksheets("Eingaben").Range("C14:L14")
   
        With Worksheets("Liste")
          With .Cells(.Rows.Count, 2).End(xlUp)
               .Offset(1, 0).Resize(rngKunde.Columns.Count, rngKunde.Rows.Count).Value = Application.Transpose(rngKunde.Value)
        End With
    End With
   
    With Worksheets("Liste")
        With .Cells(.Rows.Count, 8).End(xlUp)
             .Offset(1, 0).Resize(rngReklam.Columns.Count, rngReklam.Rows.Count).Value = Application.Transpose(rngReklam.Value)
        End With
    End With
  
   With Worksheets("Liste")
        With .Cells(.Rows.Count, 14).End(xlUp)
             .Offset(1, 0).Resize(rngArtikel.Columns.Count, rngArtikel.Rows.Count).Value = Application.Transpose(rngArtikel.Value)
        End With
    End With
      
End Sub

...zur Frage

PowerShell doppelte Einträge aus CSV entfernen?

Ich habe etwas mit PowerShell programmiert. Am Ende exportiert er die Daten in eine CSV Datei. Meine Frage wäre jetzt, kann man, wenn z.B. bereits der Computername bereits in der CSV existiert diese ganze Zeile aus der CSV löschen und durch den aktuelleren (doppelten zweiten Wert) ersetzten?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen