Hallo zusammen,
ich versuche gerade meinen Finanzen ein wenig zu ordnen. Dazu hätte ich gerne meine Kontoauszüge in eine Exceltabelle zusammengefast und dann nach bestimmten kriterien bearbeitet… So nun zum eigentlichen Problem…
Ich bekomme von meiner Bank die Auszüge in CSV Format. Wie der Import funktioniert ist klar… nur würde ich gerne eine Fortlaufende Tabelle bekommen… also will heissen die neuen Buchungen sollen immer unten angehängt werden…
Bisher gehe ich so vor, ich habe ein Makro gemacht, welches die Kontodaten in die Tabelle schreibt, und dann Formatiere ich noch im Makro ein bischen umher… so jetzt hab ich die Daten so wie ich sie will, nur hald immer von A1 beginnend… nicht gut… kann mir da jemand weiterhelfen???
Vielen dank schon im Vorraus
Gruß Wolfgang
Hi Wolfgang,
Ich bekomme von meiner Bank die Auszüge in CSV Format. Wie der
Import funktioniert ist klar…
Mir nicht, gibt da verschiedene Möglichkeiten.
nur würde ich gerne eine
Fortlaufende Tabelle bekommen… also will heissen die neuen
Buchungen sollen immer unten angehängt werden…
Bisher gehe ich so vor, ich habe ein Makro gemacht, welches
die Kontodaten in die Tabelle schreibt, und dann Formatiere
ich noch im Makro ein bischen umher… so jetzt hab ich die
Daten so wie ich sie will, nur hald immer von A1 beginnend…
nicht gut… kann mir da jemand weiterhelfen???
hast du dir überlegt was du da möchtest? Jmd der dein Makro nicht kennt soll da Codezeilen einfügen damit es in deinem Sinne agiert!?
Poste bitte mal dein Makro.
Gruß
Reinhard
Hallo,
wenn es nur darum geht mehrere CSV-Dateien einzulesen, hilft folgendes Makro weiter:
Sub mehrereCSVeinlesen()
Dim DatName As String
Dim WB As Workbook
Dim AusgabeBlatt As Worksheet
Dim Ausgabezeile As Long
Set AusgabeBlatt = ActiveSheet
With AusgabeBlatt
Ausgabezeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
End With
Do
DatName = Application.GetOpenFilename("CSV-Dateien (\*.csv),\*.csv", , \_
"Importdatei auswählen",, False)
If DatName = False Then Exit Do
Set WB = Workbooks.Open(DatName)
With WB.Worksheets(1).UsedRange
.Copy
AusgabeBlatt.Paste Destination:=AusgabeBlatt.Range("A" & Ausgabezeile)
Ausgabezeile = Ausgabezeile + .Rows.Count
End With
WB.Close False
Loop Until MsgBox("Weitere Datei einlesen?", vbYesNo) = vbNo
End Sub
Wenn jede Datei eine Kopfzeile (Spaltenbeschriftungen) besitzt, müsste man den zu kopierenden Bereich vorher noch um die Kopzeile verkleinern.
Gruß, tester
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]