Wie kopiert man eine Spalte anhand eines Zellwerts in ein anderes Arbeitsblatt?

Wenn Sie mit Daten arbeiten, die über Spalten mit Datumsüberschriften verteilt sind, müssen Sie oft eine ganze Spalte aus einem Arbeitsblatt extrahieren und in ein anderes Blatt kopieren – und zwar ausschließlich diejenige Spalte, deren Überschrift einem bestimmten Datumswert entspricht, der an anderer Stelle in Ihrer Arbeitsmappe eingegeben wurde. Angenommen, Sie haben eine Tabelle in Tabelle1, bei der jede Spaltenüberschrift ein anderes Datum darstellt, und in Tabelle2!A1 geben Sie ein Ziel-Datum ein. Sie möchten die gesamte Spalte aus Tabelle1, deren Überschrift dem Datum in Tabelle2!A1 entspricht, automatisch oder auf einfache Weise kopieren und in Tabelle3 einfügen – wie unten dargestellt. Dies ist eine typische Herausforderung beim Vergleich täglicher Kennzahlen, bei der Verwaltung von Zeitplänen oder beim Extrahieren zeitbezogener Daten für Berichte.

---

Spalte mithilfe einer Formel basierend auf einem Zellwert in ein anderes Arbeitsblatt kopieren

Die Excel-Funktionen INDEX und VERGLEICH bieten eine effiziente Möglichkeit, eine ganze Spalte aus einem Quellarbeitsblatt abzurufen – basierend auf einem bestimmten Überschriftswert, der in einem anderen Blatt referenziert wird. Diese Methode ist besonders nützlich, wenn sich die Daten automatisch aktualisieren sollen, sobald sich der referenzierte Zellwert ändert – so entfallen manuelle Anpassungen oder mühsames wiederholtes Kopieren und Einfügen.

1. Wählen Sie die Zelle im Zielarbeitsblatt aus, in die die Spaltenwerte eingefügt werden sollen – klicken Sie beispielsweise auf Tabelle3!A1. Geben Sie dann die folgende Formel ein:

=INDEX(Sheet1!$A1:$E1,MATCH(Sheet2!$A$1,Sheet1!$A$1:$E$1,0))

Drücken Sie Enter, um die Formel anzuwenden, und ziehen Sie dann den Ausfüllknauf so weit nach unten, wie benötigt (normalerweise über die Zeilen, die den Datenbereich in)Tabelle1Ihnen fällt möglicherweise auf, dass Nullen dort erscheinen, wo der Datenbereich endet.

2. Löschen oder filtern Sie bei Bedarf die resultierenden Null-Zellen, um Ihre extrahierte Spalte zu bereinigen.

Hinweis: In dieser Formel ist Tabelle2!A1 die Zelle, die das Suchdatum enthält, während Tabelle1!A1:E1 der Bereich der zu prüfenden Überschriften ist. Passen Sie diese Bezüge entsprechend Ihrem tatsächlichen Datenlayout und dem Umfang des Bereichs an. Wenn Ihre Datentabelle größer ist, erweitern Sie den Bereich entsprechend. Falls Ihre Daten leere Zellen enthalten, können in der Ausgabe Nullen erscheinen – verwenden Sie daher Filter oder eine WENNFEHLER-Logik für übersichtlichere Ergebnisse.

---

VBA-Code – Automatisches Kopieren einer Spalte in ein anderes Arbeitsblatt basierend auf einem Zellwert

Wenn Sie diese Spaltenextraktion häufig durchführen oder eine Lösung bevorzugen, die bei jeder Änderung des Ziel-Datums weder Formeln noch manuelle Schritte erfordert, können Sie ein einfaches VBA-Makro verwenden. Dieses Skript identifiziert in Tabelle1 die Spalte, deren Überschrift dem Datum in Tabelle2!A1 entspricht, und kopiert die gesamte Spalte direkt nach Tabelle3. Diese Methode eignet sich ideal zur Automatisierung wiederkehrender Arbeitsabläufe oder zur Handhabung dynamischer Datenstrukturen.

Warnhinweise: Stellen Sie stets sicher, dass Sie Ihre Arbeit gespeichert haben, bevor Sie Makros ausführen. Makros können nicht rückgängig gemacht werden, und falsche Bezüge könnten Daten an unbeabsichtigte Stellen kopieren.

1. Drücken Sie Alt + F11, um den Visual Basic for Applications-Editor zu öffnen. Klicken Sie im VBA-Fenster auf Einfügen > Modul, und fügen Sie den folgenden Code in das leere Modul ein:

Sub CopyColumnByDate()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim lookupSheet As Worksheet
    Dim matchDate As Variant
    Dim lastRow As Long
    Dim colNum As Long
    Dim headerRange As Range
    Dim cell As Range
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set wsSource = Worksheets("Sheet1")
    Set wsDest = Worksheets("Sheet3")
    Set lookupSheet = Worksheets("Sheet2")
    matchDate = lookupSheet.Range("A1").Value
    
    Set headerRange = wsSource.Range(wsSource.Cells(1, 1), wsSource.Cells(1, wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column))
    colNum = 0
    
    For Each cell In headerRange
        If cell.Value = matchDate Then
            colNum = cell.Column
            Exit For
        End If
    Next cell
    
    If colNum > 0 Then
        lastRow = wsSource.Cells(wsSource.Rows.Count, colNum).End(xlUp).Row
        wsDest.Range("A1").Resize(lastRow, 1).Value = wsSource.Range(wsSource.Cells(1, colNum), wsSource.Cells(lastRow, colNum)).Value
        MsgBox "Data copied to Sheet3 column A!", vbInformation, "KutoolsforExcel"
    Else
        MsgBox "No matching header found.", vbExclamation, "KutoolsforExcel"
    End If
End Sub

2. Schließen Sie den VBA-Editor. Drücken Sie in Excel Alt + F8, wählen Sie SpalteNachDatumKopieren und klicken Sie anschließend auf Ausführen. Ihre Daten aus der passenden Datums-Spalte in Tabelle1 werden in Spalte A von Tabelle3 kopiert.

Tipp: Falls Ihre Überschriften nicht in Zeile 1 beginnen, passen Sie die Zeilenreferenzen im Code entsprechend an. Wenn Sie die Daten in eine andere Startspalte einfügen möchten, ändern Sie Range("A1") entsprechend. Wenn dasselbe Makro häufig verwendet wird, sollten Sie es einer Schaltfläche zuweisen, um den Zugriff zu vereinfachen.

Mögliche Fehler: Wenn die Meldung „Keine passende Überschrift gefunden“ angezeigt wird, überprüfen Sie, ob das Datum in Tabelle2!A1 exakt mit dem Datumsformat in der Überschriftenzeile von Tabelle1 übereinstimmt.

---

Weitere integrierte Excel-Methoden – Verwenden des Filters zum Isolieren und Kopieren einer Spalte

Die integrierte Filter-Funktion von Excel hilft Ihnen ebenfalls, eine Spalte zu isolieren und zu kopieren – ideal, wenn Sie auf Formeln oder Makros verzichten möchten. Diese manuelle Methode eignet sich perfekt für gelegentliche Einmalaufgaben oder für Benutzer, die mit Funktionen oder Skripten nicht vertraut sind.

1. Wechseln Sie zu Tabelle1 und markieren Sie die Überschriftenzeile (z. B. Zeile 1). Klicken Sie auf Daten > Filter, um Dropdowns zu jeder Überschrift hinzuzufügen.

2. Klicken Sie auf den Filter-Dropdown-Pfeil in der Überschriftenzeile und deaktivieren Sie alle Spalten außer dem Datum, das Tabelle2!A1 entspricht. Bei umfangreichen Datenmengen nutzen Sie einfach das Suchfeld im Filtermenü, um den gewünschten Datumswert schnell zu finden.

3. Markieren Sie die sichtbare Spalte unter der passenden Überschrift und drücken Sie Strg + C, um sie zu kopieren.

4. Wechseln Sie zu Tabelle3 und klicken Sie in Ihre bevorzugte Startzelle (z. B. A1). Drücken Sie dann Strg + V, um einzufügen.

Hinweise: Die Filtermethode ist vollständig manuell und aktualisiert sich nicht automatisch, wenn sich das Datum in Tabelle2!A1 ändert. Dieser Ansatz eignet sich ideal für spontane Datenextraktionen und schnelle Überprüfungen, bei denen keine Automatisierung erforderlich ist.

Vorteile: Keine Formeln oder Programmierkenntnisse erforderlich – ideal für schnelle, visuelle Aufgaben.
Nachteile: Bei häufiger Wiederholung aufwendig; fehleranfällig, wenn Spalten nicht sorgfältig ausgewählt werden.

---