Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1072to1076
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
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Programmieren eines Makros

Programmieren eines Makros
05.05.2009 13:27:06
Oliver
Hallo zusammen
Ich habe folgenes Problem:
Ich hab einen Ordner gefüllt mit .csv Dateien. Jetzt bräuchte ich ein Makro, welches mir alle csv-Dateinen zusammenfasst und zwar folgendermassen.
csv-Dateien im Ordner:
Die csv-Dateine haben nummern z.B "at200711.csv". 2007 ist das Jahr und 11 der Monat..dies geht so weiter bis jetzt und jeden Monat wird eine neue .csv-Datei in den Ordner hinzugefügt. Die jetztige Datei heisst in diesem Fall "at200904.csv", da der Monat April der letzte abeschlossene Monat ist.
zu dem Inhalt der Csv-Datei..
jede .csv-Datei besteht aus 7 Spalten und beliebig vielen Zeilen.
Zum Makro:
das Makro soll eine neue .xls-Datei erzeugen und diese wie folgt bearbeiten:
Es soll begonnen bei der kleinsten Zahl der csv.Datein (in diesem Fall "at200711.csv") den Inhalt der .csv-Datei zu kopieren und ihn in die .xls Datei einzufügen.
Dann kommt die zweitkleinste Datei "at200812.csv" und diese Daten (bestehen auch wieder aus 7 Spalten und beliebig vielen Zeilen) unmittelbar unterhalb der Daten der letzten Datei ("at200711.csv") einzufügen. Dies soll dann so weitergehen bis die .csv-Datei mit der grössten Nummer erreicht worden ist.
Die .xls Datei ist dann sozusagen eine Übersicht über alle .csv-Dateine.
Ich wäre sehr dankbar, wenn mir jemand bei diesem Problem helfen könnte, denn ich bin hilflos aufgeschmissen, da ich nur VBA mit Recorder beherrsche.
Vielen Dank für die Mühe und einen schönen Nachmittag noch!
Mit freundlichen Grüssen
Oli

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

Betreff
Datum
Anwender
Anzeige
Rekorder .. Programmieren eines Makros
05.05.2009 13:38:37
Mike
Hey Oli,
etwas vorarbeit kannst Du schon leisten, denn der Inhalt der CSVs
kennst nur Du. Daher, importier mit dem Makrorekorder mal so 'ne
Datei und stell dann den Code rein.
Gruss
Mike
AW: Rekorder .. Programmieren eines Makros
05.05.2009 13:44:57
Oliver
Hallo Mike
Vielen Dank für deine Antwort!
Hast dus so gemeint:

Sub Makro1()
ChDir "C:\Dokumente und Einstellungen\o.steiner\Desktop"
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\o.steiner\Desktop\Meine Dateien\SA\Backup\at200807.csv"
End Sub


Mit freundlichen Grüssen
Oli

AW: Rekorder .. Programmieren eines Makros
05.05.2009 14:46:36
D.Saster
Hallo,
teste mal:

Sub lesen()
Dim strDatei As String, arrDaten(), strTmp As String, arrTmp, lCounter As Long, i As Integer
Const strPfad As String = "C:\Dokumente und Einstellungen\o.steiner\Desktop\Meine Dateien\SA\ _
Backup\"
strDatei = Dir(strPfad & "at*.csv")
Do While strDatei  ""
Open strPfad & strDatei For Input As #1
Do While Not EOF(1)
Line Input #1, strTmp
arrTmp = Split(strTmp, ";")
lCounter = lCounter + 1
ReDim Preserve arrDaten(1 To 7, 1 To lCounter)
For i = 1 To 7
arrDaten(i, lCounter) = arrTmp(i - 1)
Next
Loop
Close #1
strDatei = Dir
Loop
Worksheets.Add
Cells(1, 1).Resize(lCounter, 7) = WorksheetFunction.Transpose(arrDaten)
End Sub


Gruß
Dierk

Anzeige
funktioniert noch nicht ganz...
05.05.2009 15:05:48
Oliver
Hallo Dierk
Vielen Dank für das Makro, aber es funktioniert leider noch nicht ganz..
Es liest etwas ein, aus einer der richtigen .csv-Dateine, jedoch nur ein Bruchteil von dem was benötig wird. (Ich schätze mal es ist ein Bruchteil aus einer Datei). Leider kann ich dir nicht sagen, welche
Datei es genau ist, da alle Inhalte beinahe identisch sind.
Weisst du das Problem zu beheben?
Vielen Dank für deine Mühe!
Gruss
AW: funktioniert noch nicht ganz...
07.05.2009 14:05:51
Oliver
Thema erledigt..Danke allen für die Hilfe!

300 Forumthreads zu ähnlichen Themen

Automatische Umwandlung Punkt in Komma
Harry

Liebe Excel-Gemeinde,
ich möchte aus einer csv-Datei (die eine konstante Spalten- aber unterschiedliche Zeilenzahl hat) Text in Zahlen wandeln (also z. B. 1.234 in 1,234).
Dazu gibts im Forum viele Vorschläge. Ich habe dazu die Formel =WERT(WECHSELN(A1;".";",")) gefunden.
Diese Fo...
08.08.2008 21:00:38
Thread-ID: 1000413
5 Beiträge
Anzeige
Drei Diagrammtypen in einem Diagramm
Jan

Hallo zusammen,
vor zwei Tagen (Beitrag 20.08.2008 11:10:17) wurde mir hier im Forum erfolgreich bei dem Thema "Kombination aus gruppierten und gestapelten Säulen" geholfen. Beverly hat mein Problem gelöst i n dem ein Teil der Daten der Primär- und ein anderer Teil der Sekundärachse zugetei...
22.08.2008 10:20:18
Thread-ID: 1003765
4 Beiträge
Command-Button in Diagramm
Wolfgang

Hallo liebe Excel-Experten,
es wäre nett, wenn Ihr mir helfen könntet.
Ich habe verschiedene (mehr als 50) Diagramme erzeugt, dabei gibt es übergeordnete Diagramme und Diagramme, die Details betreffen.
Natürlich kann sich der Betrachter über die Diagramm-Namen durchsuchen. Ich möcht...
25.08.2008 23:52:00
Thread-ID: 1004633
5 Beiträge
Anzeige
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Wenn bestimmte Bedingungen erfüllt - kommentar ein
Frank

Hallo und guten Abend!!!
Brauche wieder einmal eure Hilfe!!!
In einer Tabelle Namens Hilfsblatt werden in Spalte O die Daten aus den Spalten I & K zusammengefasst (z.B. =I5&K5). Der Wert aus Spalte P wird mittels folgender Formel
=WENN(ISTFEHLER(SVERWEIS($B2&C$1;Hilfsbl...
03.09.2008 18:17:00
Thread-ID: 1007200
2 Beiträge
Gerade Linien im Liniendiagramm
Pia

Hallo an alle,
die Linien in meinem Liniendiagramm werden nicht ganz gerade,
sondern sind gerastert.
Woran liegt es bzw. was kann ich machen?
Vielen Dank für Eure Hilfe.
04.09.2008 13:32:23
Thread-ID: 1007393
2 Beiträge
Bestimmte Fonts in ListBox übernehmen
Larsinator

Hallo zusammen,
ich möchte alle mit "C" beginnenden Fonts in eine ListBox schreiben.
Mit der getroffenen Auswahl soll dann Zelle C5 formatiert werden.
Kann mir jemand einen Tipp geben, wie ich mit den Fonts entsprechend umgehen kann?
Danke schon mal...
09.09.2008 18:02:55
Thread-ID: 1008558
2 Beiträge
Mehrere Dateien in eine Tabelle zusammenfassen
Reptil

Guten Morgen zusammen.
ich weiß, ähnliche fragen waren schon häufiger hier, aber genau das was ich suche habe ich nicht gefunden.
ich habe mehrere Exceltabellen, in zwei ordnern, aus denen ich bestimmte daten in eine andere auslesen möchte. dabei sollen erstens nicht alle daten gelesen...
12.09.2008 09:46:00
Thread-ID: 1009283
6 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
2
3
4
12
2
1
1
1
5
5
3
5
2
6
1
3
9
2
13
10
2
3
4
11