Wie erstellt man eine Liste aus denselben Zellen über mehrere Blätter in Excel?

Mit dem folgenden VBA-Code können Sie ganz einfach eine Liste aus den angegebenen Zellen über mehrere Arbeitsblätter erstellen. Sie können wie folgt vorgehen:

Schritt 1: Wählen Sie die angegebene Zelle aus, aus der Sie Ihre Liste erstellen möchten. In unserem Fall wählen wir die Zelle E6.

Schritt 2: Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen, klicken Sie auf Einfügen > Modul, und fügen Sie dann den folgenden Code in das Modulfenster ein.

VBA: Erstellen einer Liste aus denselben Zellen über mehrere Blätter

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

Schritt 3: Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um dieses VBA auszuführen.

Dann werden alle Werte aus der angegebenen Zelle auf allen Arbeitsblättern in ein neues Arbeitsblatt namens KutoolsforExcel kopiert. Siehe Screenshot:

Dieses VBA füllt die Liste in ein neues Arbeitsblatt ein, und die Werte in der Liste sind statisch und ändern sich nicht mit den Originalwerten.

Manchmal möchten Sie die Liste jedoch möglicherweise in einen bestimmten Bereich einfügen und verlangen, dass die Listenwerte immer mit den Originalwerten in den angegebenen Zellen übereinstimmen. Um diesen Anforderungen gerecht zu werden, sollten Sie die folgende Methode ausprobieren.

Diese Methode stellt das Hilfsprogramm „Automatische Inkrementierung von Arbeitsblattverweisen“ von Kutools für Excel vor, um eine dynamische Liste aus denselben Zellen über mehrere Arbeitsblätter zu erstellen.

Schritt 1: Wählen Sie den Bereich aus, in den Sie die dynamische Liste einfügen möchten, und klicken Sie auf Kutools > Mehr > Automatische Inkrementierung von Arbeitsblattverweisen.

Schritt 2: Im sich öffnenden Dialogfeld „Arbeitsblattverweise ausfüllen“,

(1) Klicken Sie auf das Feld „Füllreihenfolge“ und wählen Sie einen Fülltyp aus der Dropdown-Liste aus. In unserem Fall wählen wir „Spalte füllen, dann Zeile füllen“;

(2) Im Formel ausfüllen Feld geben Sie die Zelladresse an, aus der Sie eine dynamische Liste erstellen möchten, und klicken Sie dann auf die Sperren Schaltfläche um die Formel zu sperren.

(3) Klicken Sie auf die Schaltfläche „Bereich ausfüllen“.

Jetzt sehen Sie, dass die Werte in den angegebenen Zellen über alle Arbeitsblätter in den angegebenen Bereich eingefügt werden, wie im folgenden Screenshot gezeigt:

Wenn sich die Originalwerte ändern, werden die entsprechenden Werte in dieser spezifischen Liste automatisch geändert.

Wie füllt man dieselbe Zelle aus verschiedenen Blättern automatisch in ein Blatt in Excel ein?