Moin,
ich hätte da mal ein VBA Problem bei dem ich mit meinem Latein am Ende bin.
Ausgangslage sind zwei Workbooks mit einmal 20Sheets (1) und 8Sheets (2).
Es geht um Buchhaltung und es wird in das erste Workbook (1) mit den 20 Sheets gebucht. Dabei sind zwei Werte die eingetragen werden entscheidend. Es werden "Betrag" und "Gegenstand" in das vorgesehene Sheet des Workbook (1) eingetragen. Jeder der Vorgänge kann nun zu einem von acht Kunden zugeordnet werden. Dafür gibt es eine extra Spalte in der das Kürzel drinsteht. Diese zwei Einträge sollen nun, nachdem man sie in das Workbook (1) eingetragen hat, in das zweite Workbook (2) kopiert und sortiert werden und zwar gibt es für jeden Kunden ein Sheet in das der entsprechende "Betrag" und "Gegenstand" kopiert werden sollen.
Das Makro soll also auf Klick in einer Schaltfläche folgendes Ausführen:
Durchsuchen aller Worksheets des ersten Workbooks nach den jeweiligen 8 verschiedenen Kundenabkürzungen. Wenn ein Kürzel gefunden wird soll daraufhin der "Betrag" und der "Gegenstand", sind die 2. bzw. 3 Spalten Links des Kürzels, in das zweite Workbook in das entsprechende Sheet des Kürzels kopiert werden. Sozusagen als Sicherung und Auflistung nach Kunden.
Ich hatte schonmal eine kleine Version für ein einzelnes Sheet entwickelt indem ich die über eine for Schleife die Werte übergeben habe. Wie:
For i = 1 to 100
If Workbook("1").Worksheets("erstes").Cells(i,5).value = BT then
Workbook("2").Worksheets("BT").Cells(i,3).value = Workbook("1").Worksheets("erstes").Cells(i,3).value
Allerdings ist diese simple Methode nicht ansatzweise funktional und hier endet dann auch mein spärliches Excel Wissen. Ich hatte es noch mit einer Do/Until Schleife versucht aber es werden dann blöderweise genau die gleichen Zellen kopiert und ich habe einen Flickenteppich mit Leerzellen in meinem zweiten Workbook.
Außerdem klappt das nur bei einem Blatt. Sobald ich ein weiteres einlese werden die bestehenden Daten einfach überschrieben. Das darf nicht passieren.
Ich hoffe, ich habe mein Problem richtig beschrieben und verständlich verdeutlicht.
Über jede Idee wie ich die Kopien sinnvoll anlegen und sortieren kann bin ich dankbar.
Viele Grüße
Rouven