Wie erstellt man in Excel eine Liste aus identischen Zellen mehrerer Arbeitsblätter?

Mit dem folgenden VBA-Code erstellen Sie mühelos eine Liste aus den angegebenen Zellen mehrerer Arbeitsblätter. Gehen Sie dazu wie folgt vor:

Schritt 1: Wählen Sie die Zelle aus, aus der Ihre Liste erstellt werden soll – in unserem Beispiel ist das Zelle E6.

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

VBA: Erstellen einer Liste aus denselben Zellen mehrerer Arbeitsblä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-Skript auszuführen.

Anschließend werden alle Werte aus der angegebenen Zelle aller Arbeitsblätter in ein neues Arbeitsblatt mit dem Namen „KutoolsforExcel“ kopiert. Siehe Screenshot:

Dieses VBA-Skript überträgt die Liste in ein neues Arbeitsblatt, wobei die Werte statisch eingefügt werden und sich nicht automatisch anpassen, wenn sich die Originalwerte ändern.

In manchen Fällen möchten Sie die Liste jedoch in einen begrenzten Bereich einfügen und sicherstellen, dass die Listeneinträge stets mit den Originalwerten in den angegebenen Zellen übereinstimmen. Um diese Anforderung zu erfüllen, verwenden Sie am besten die folgende Methode.

Diese Methode verwendet das Hilfsprogramm Kutools für Excel und dessen Funktion Automatische Inkrementierung von Arbeitsblattverweisen, um eine dynamische Liste aus denselben Zellen mehrerer Arbeitsblätter zu erstellen.

Schritt 1: Wählen Sie den Bereich aus, in den die dynamische Liste eingefügt werden soll, und klicken Sie auf Kutools > Mehr > Automatische Inkrementierung von Arbeitsblattverweisen.

Schritt 2: Im geöffneten 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) Geben Sie im Feld Formel ausfüllendie Zelladresse an, aus der die dynamische Liste erstellt werden soll, und klicken Sie anschließend auf die Schaltfläche Sperren, um die Formel zu sperren.

(3) Klicken Sie auf die Schaltfläche Bereich füllen.

Nun sehen Sie, dass die Werte aus den angegebenen Zellen aller Arbeitsblätter in das Begrenzter Bereich eingefügt wurden, wie im folgenden Screenshot dargestellt:

Sobald sich die Originalwerte ändern, aktualisieren sich die entsprechenden Werte in dieser festgelegten Liste automatisch.

Wie füllt man eine Zelle automatisch mit Daten aus derselben Zelle verschiedener Arbeitsblätter in ein einzelnes Arbeitsblatt in Excel?