Kontoblatt aus Datev umstrukturieren
27.05.2016 16:03:15
Jana
ich hoffe sehr auf eure Hilfe. Jeden Monat erhalte ich ein Kontoblatt aus Datev, das wahrlich bescheiden strukturiert ist.
Ich hab mal ein Beispiel hochgeladen:
https://www.herber.de/bbs/user/105825.xlsx
Das blöde ist, dass das Konto jeweils in der ersten Zeile steht, darunter dann die Einträge. (Siehe Tab IST) Was ich bräuchte, ist eine Struktur, in der das Konto in der ersten Spalte und nach Möglichkeit auch die Bezeichnung in der zweiten Spalte steht. (Siehe Tab SOLL).
Ich hab mit VBA bisher eigentlich nur quick and dirty Sachen zusammen geschrieben und auch das ist lange her. Kann jemand bitte helfen?
Mithilfe der Markoaufzeichnung konnte ich schon mal die ersten zwei Schritte gehen:
' Nervige Verbundene Zellen beseitigen
Cells.Select
Selection.UnMerge
' zwei neue Spalten am Anfang einfügen
Columns("A:B").Select
Selection.Insert
:-)Aber jetzt gehts ja erst richtig los.
Mein Plan:
Für jede Zeile Spalte C nach dem Wort "Jahreskonto " durchsuchen.
Wenn Treffer: restliche Zeichen nach "Jahreskonto " aus selbiger Zelle kopieren und 2 Zeilen darunter in Spalte A einfügen.
In selber Zeile prüfen ob Spalte C leer, wenn nicht, eine Zeile drunter wieder einfügen, solange bis Spalte C leer.
Nächsten Treffer für "Jahreskonto " suchen, usw., solange bis Blattende erreicht.
Und dann noch mal im zweiten Schritt die erste Spalte komplett von oben bis leer durchgehen und alles nach der Zahl in zweite Spalte ausschneiden.
Ihr seht... ich brauche dringend Hilfe!