Excel - Füllen Sie mehrere Blätter auf der Grundlage der in ein Hauptblatt eingegebenen Daten

Problem
Lösung

Problem

Ich erstelle eine Buchhaltungsarbeitsmappe mit den folgenden Kriterien:

Auf dem ersten Blatt mit dem Namen "Konto" werden alle Transaktionen in einer Tabelle aufgelistet, die von C6 bis H6 reicht, und für jeden Eintrag nach unten. Eine der Spalten in der Tabelle trägt die Bezeichnung "Sektor" und bezieht sich auf Ausgaben- oder Einnahmequellen. Es gibt 7 Sektoren, von denen jeder ein Blatt in dieser Arbeitsmappe enthält.

Ich möchte, dass jedes Blatt jedes Sektors bei jeder Aktualisierung des Kontos automatisch mit Daten gefüllt wird und diese auf der Spalte Sektor in der Tabelle basieren. Wenn der Sektor also "Allgemein" lautet, muss ich dies grundsätzlich tun möchte, dass die gesamte Zeile auf das Blatt "Allgemein" übertragen wird usw. für jeden einzelnen Sektor.

Irgendwelche Tipps oder Vorschläge?

Lösung

Anmerkung 1: Der Sektor wird in Spalte H eingetragen.

Hinweis 2: Geben Sie den Sektor als letzten Wert der Zeile ein.

 Private Sub Worksheet_Change (ByVal Target as Range) Wenn Intersect (Target, Columns ("H: H")) nicht vorhanden ist, verlassen Sie Sub Range (Range ("C" & Target.Row), Range ("H" & Target.Row )) .Blätter kopieren (Zielwert) .Bereich ("C" & Zeilenanzahl) .End (xlUp) .Offset (1, 0) End Sub

So implementieren Sie den Code: