Makro CSV Import

Liliane · 2015-12-08T16:13:38+00:00

Hallo Liebe Gemeinde, das ist mein erstes Posting. Ich möchte gerne eine von meiner Bank herunterladbare CSV-Kontoauszug auswerten, damit ich die Erfolgten und nicht erfolgten Zahlungen kontrollieren kann. Bisher gehe ich jede Zahlung manuell durch und kopiere sie in das Blatt "Garagen" Ich habe versucht mittels Makroaufzeichnung einiges zu erreichen. Leider ohne viel Erfolg. Auch mit copy,wechsel zum Blatt CSV.Kontoauszug, suchen, Betrag copieren, wechsel zum Blatt "Garagen" udn einfügen brachte nicht viel erfolg. Es lief durch bis zu einer nicht gefundenen IBAN in CSV-Kontoauszug dann kam Debug Fehler. Was ich bisher erreicht habe ist, Ein Button... zum sortieren nach Name Ein Button....zum sortieren nach Garagen Nr. Der Aufbau des 1.Blatts namens "Garagen" ist wie hier aufgeführt: B C D E F G Garage Nr........Name...........IBAN............Buchungstag......Miete 1 XY DE12345.... 01.12.2015 33,85 EUR 2 XYZ DE56789.... 01.12.2015 34,55 EUR 3 WXYZ DE98543.... 05.12.2015 34,55 EUR Schoko Str 12345 .....bis 100 Dieses Blatt ändert sich inhaltlich nur, wenn Mieter wechseln, wenn Bankverbindung- IBAN sich ändert oder wenn sich die Mieten ändern. Nun würde ich gerne den heruntergeladenen CSV-Kontoauszug (ist immer im selben Ordner im Laufwerk O:\Bakauszüge) im Hintergrund verarbeiten oder wenn es nicht anders geht, in ein neues Blatt einlesen, -zum Hauptblatt "Garagen" wechseln, die erste IBAN-Nr. aufgreifen -zum CSV-Bankauszug wechseln, nachschauen ob sich diese IBAN dort befindet, wenn ja,- den zugehörigen Zahlbetrag und Buchungsdatum heraus kopieren,- zum Hauptblatt "Garagen" wechseln und dort in die zugehörigen Zellen hinein schreiben lassen. wenn nein, sprich wenn sich die gesuchte IBAN in der CSV nicht befindet, dann zurück zum Hauptblatt "Garagen" und nächste IBAN aufgreifen usw. bis alle IBAN Nummern des Hauptblatts "Garagen durchgelaufen sind. Herzliches Dankeschön vor ab. Gruß Lili

Hallo Lili,
Datei anbei: https://www.herber.de/bbs/user/102139.xlsm
Deinen "Grundpfad" (also das O:\Dings\) gibst Du bitte in S2 ein (bitte \ am Ende!), und wenn Du dann den Button "Datei suchen " drückst, kannst Du die jeweils aktuelle CSV-Datei suchen.
Eingelesen/verglichen werden die Daten dann direkt nach Knopfdruck auf "Start Zahlungsabgleich".
Es kann ja diverse Eventualitäten geben...
a) Zahlung bereits vorhanden
b) irgendwas nicht gefunden
... und um die zu dokumentieren, habe ich ein weiteres Tabellenblatt "Fehler" angelegt, das Du nach jedem Buchungslauf ansehen kannst.
Zur Logik: bei der Zuordnung unterschiedlicher Daten ist es immer gut, einen "eindeutigen Schlüssel" zu haben, und gerade dafür ist die IBAN nicht geeinget: erstens gibt es doppelte, und die wiederum jeweils mit gleichen und/oder verschiedenen Namen. Excel ist nicht hellseherisch veranlagt, also muß man schon etwas nehmen, was eindeutig ist, und das ist in diesem Fall die Garagen-Nr.
Die Datei sollte so tun, wie Du es Dir vorstellst.
Grundsätzlich würde ich Dir aber einige (zunächst gedankliche) Erweiterungen ans Herz legen:
a) Trennung von Mieter- und Buchungsdaten. Leg Dir ein Blatt "Mieter" an und mach da ne Tabelle mit Anschriften, Tel. usw., das mußt Du nicht in der Buchhaltung mit herumschleppen.
b) Generierung eines *wirklich* eindeutigen Schlüssels, quasi ein Mini-Kontenrahmen.
Struktur etwa wie folgt:
Kontenschlüssel: G wie Garage
Garage-Nr. : 1 bis 23
Mieter-Nr.: 1 bis 99
zusammengesetzt also pro Garage Gnnmm bzw. beispielsweise für den 3. Mieter der 5. Garage: G0503
Warum? Mit diesem Schlüssel ist völlig eindeutig, worauf sich eine Zahlung bezieht. Was wäre denn mit Deinem System, wenn ein alter Mieter verspätet bezahlt und Du beide Zahlungen in einem Monat hast?
c) Aufbohren der Tabelle auf jahresweise: mit dem Datum der Sollstellung und dem Schlüssel wie b) kannst Du Dich mit Sortieren und "Zwischenergebnisse" schön pro Zeitraum bzw. pro Garage informieren.
d) Trennung von Sollstellung und Zahlungseingang (d.h. gleiche Tabelle, aber Soll und Haben in zwei oder noch mehr Zeilen): Wäre ne Erweiterung von c), die ich aber auch nicht immer ganz konsequent umgesetzt habe.
Der Vorteil von d) ist letztlich, daß man *alle* Zahlen vermantschen kann, die auf dem Konto laufen, so daß das ganze Ding dann auch gleich als Buchhaltung für die Steuer (*) taugt - dann ist die "kontenweise" Darstellung bzw. Überprüfung von Zahlungen quasi ein netter Nebeneffekt.
(*) vorbehaltlich Rücksprache mit Deinem StB
Schöne Grüße,
Michael

Hallo Christoph
vielen Dank für Dein Vorschlag. Leider funktioniert das einlesen nicht. Auch die Tabelle wird irgendwie zerschossen.
Bisher habe ich einige Makros die Funktionieren.
Hier ist der Code den ich durchlaufen lasse:

Sub B_1_NeuesBlatt_fuer_CSV_Import_Formatieren_zurueck_Hauptblatt()
' Neues Blatt Anlegen mit CSV Import Formatieren und zurueck zum Hauptblatt
Application.ScreenUpdating = False
strName = ActiveSheet.Name
Sheets.Add After:=Sheets(strName)
ActiveSheet.Name = strName & "CSV_Kontoauszug"
Dim Importdatei$, Verzeichnis$
Verzeichnis = "O:\Kontoauszuege"
On Error Resume Next
ChDir Verzeichnis
Importdatei = Application.GetOpenFilename("Exceldateien (*.csv), *.csv")
Application.ScreenUpdating = False
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Importdatei, _
Destination:=Range("A1"))
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:=False
' Blatt wird Nach Spalten Formatiert und nach Blatt Garagen  gewechselt
Application.ScreenUpdating = False
Application.ScreenUpdating = False
Columns("A:A").ColumnWidth = 15.57
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Range("A2").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A3").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A4").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("C:C").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("D:D").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("G:G").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
Columns("G:N").Select
Selection.Delete Shift:=xlToLeft
Columns("H:H").Select
Selection.Delete Shift:=xlToLeft
Columns("G:G").Select
Selection.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""?_);_(@_)"
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
' C_Wechsel_von_Garagen_nach_GaragenCSV_Kontoauszug Makro
Sheets("Garagen").Select
' SortNR Makro
Application.ScreenUpdating = False
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWorkbook.Worksheets("Garagen").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Garagen").Sort.SortFields.Add Key:=Range("F7:F78") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Garagen").Sort
.SetRange Range("F6:T78")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("F6").Select
End With
End Sub

Vor End If fehlt mir halt noch dieses Suchen und EInfügen Makro wie in meiner ersten Post beschrieben.
Danke
Gruß
Liliane

Forumthread: Makro CSV Import

47
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Makro zum Import und zur Auswertung von CSV-Kontoauszügen in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)