Vba: so kopieren sie sichtbare linien in ein anderes blatt

Sie können die folgende Syntax in VBA verwenden, um nur sichtbare Zeilen von einem Blatt in ein anderes zu kopieren:

 SubCopyVisibleRows ()

    Dim sourceWS As Worksheet
    Dim destinationWS As Worksheet
    
    Set sourceWS = ThisWorkbook.Sheets(" Sheet1 ")
    Set destinationWS = ThisWorkbook.Sheets(" Sheet2 ")

    sourceWS.Range(" A1:D999 ").SpecialCells(xlCellTypeVisible).Copy
    destinationWS.Cells(1, 1).PasteSpecial
    Application.CutCopyMode = False
   
End Sub

Dieses spezielle Makro kopiert jede sichtbare Zeile im Bereich A1:D999 von Sheet1 und fügt sie beginnend in Zelle A1 von Sheet2 ein.

Hinweis : Die Zeile „Application.CutCopyMode = False“ gibt an, dass der Ausschneide- und Kopiermodus nach der Ausführung des Makros deaktiviert werden soll.

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: Sichtbare Zeilen mit VBA in ein anderes Blatt kopieren

Angenommen, wir haben in Blatt 1 den folgenden Datensatz, der Informationen über verschiedene Basketballspieler enthält:

Angenommen, wir wenden einen Filter auf den Datensatz an, um nur Zeilen anzuzeigen, in denen der Teamname „Mavs“ oder „Spurs“ lautet:

Nehmen wir nun an, wir möchten VBA verwenden, um nur sichtbare Zellen von Blatt1 nach Blatt2 zu kopieren.

Dazu können wir das folgende Makro erstellen:

 SubCopyVisibleRows ()

    Dim sourceWS As Worksheet
    Dim destinationWS As Worksheet
    
    Set sourceWS = ThisWorkbook.Sheets(" Sheet1 ")
    Set destinationWS = ThisWorkbook.Sheets(" Sheet2 ")

    sourceWS.Range(" A1:D999 ").SpecialCells(xlCellTypeVisible).Copy
    destinationWS.Cells(1, 1).PasteSpecial
    Application.CutCopyMode = False
   
End Sub

Wenn wir dieses Makro ausführen, erhalten wir in Sheet2 die folgende Ausgabe:

Beachten Sie, dass jede in Sheet1 sichtbare Zeile kopiert und in Sheet2 eingefügt wurde.

Hinweis Nr. 1 : Wir haben xlCellTypeVisible im Makro verwendet, um anzugeben, dass wir nur sichtbare Zellen kopieren möchten.

Hinweis Nr. 2 : Die vollständige Dokumentation für die VBA- Copy- Methode finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So finden Sie die zuletzt verwendete Zeile
VBA: Zeilen basierend auf Kriterien in ein anderes Blatt kopieren
VBA: So fügen Sie Werte nur ohne Formatierung ein