Automatisches Übertragen von Daten vom Master auf Unterblätter in Excel

Wenn Sie Excel verwenden und Daten von einem Masterblatt automatisch in bestimmte Unterblätter übertragen möchten, wenn eine bestimmte Bedingung erfüllt ist, wird in diesem Artikel die Verwendung von VBA ( Visual Basic für Applikationen ) erläutert. In diesem Beispiel wird gezeigt, wie mehrere Spalten in einem Arbeitsblatt automatisch in ein anderes übertragen werden, wenn der Wert in einem der Felder " Ja " lautet. Der Wert des bedingten Feldes kann nach Bedarf geändert werden.

Automatische Übertragung von Daten vom Master auf Unterblätter in Excel

Öffnen Sie zunächst Ihr Excel- Dokument und öffnen Sie das Microsoft Visual Basic für Applikationen-Fenster, indem Sie [Alt] + [F11] drücken.

Als nächstes finden Sie Ihre Blätter in der linken Spalte und doppelklicken Sie auf den Master . Die Blattnamen hängen davon ab, wie Sie sie in Excel benannt haben. Das Master- Blatt ist das primäre Blatt, auf dem die Daten zum ersten Mal eingegeben werden, und das Unterblatt ist der Ort, an dem die Daten ausgefüllt werden. Fügen Sie als Nächstes den folgenden Code in das große weiße Feld ein:

 Private Sub Worksheet_Change (ByVal Target As Range) Wenn Intersect (Target, Columns ("G")) nicht vorhanden ist, beenden Sie Sub 'Wenn es keine Änderung in' Column G gibt, dann tun Sie nichts. 'Der Zellenwert, der in Spalte G geändert wurde, wird nun als Ziel bezeichnet. Wenn Target.Value = "Yes", dann 'Wenn die Bedingung ("Yes" in Spalte G) erfüllt ist, dann Range (Cells (Target.Row, "A"), Cells (Target.Row, "G"). Copy _ Sheets (Target.Offset (0, -1) .Value) .Range ("A" & Rows.Count) .End (xlUp) .Offset (1, 0) 'Kopieren Sie die Zeile, in der die Änderung vorgenommen wird, aus Spalte A bis Spalte G. 'In das in Spalte F genannte Blatt und in die erste verfügbare Zeile einfügen. End If End Sub

Jetzt können Sie das Microsoft Visual Basic für Applikationen-Fenster schließen und Ihre Datei ist jetzt bereit, die auf dem Masterblatt eingegebenen Daten automatisch auf die ausgewählten Unterblätter zu übertragen. Denken Sie daran, dass das Makro nur ausgeführt wird, wenn eine Änderung in Spalte G vorgenommen wird.

Vielen Dank an TrowaD für diesen Tipp.