Kopieren u. Einfügen variabler Bereich
31.05.2020 15:38:36
Frederic
bei der Erstellung eines Makros zum Kopieren und Einfügen eines variablen Tabellenbereiches komme ich nicht mehr weiter und benötige eure Hilfe.
Folgende Ausgangssituation: Ich habe ein Blatt namens Liste mit einer filterbaren Überschriftszeile. In der Spalte B möchte ich nun die Einträge (verschiedene Bauteile) filtern, die gefundenen Zeilen unterhalb der Überschriftszeile kopieren und in Blatt 2 hinter den bestehenden Zeilen einfügen. Die bestehenden Zeilen sind ebenfalls wieder variabel.
Bei diversen Forumseinträgen bin ich bisher auf folgenden Ansatz gestoßen:
Sub Testkopie()
Dim lngLastRow1 As Long, lngLastRow2 As Long
lngLastRow1 = Sheets ("Liste").Cells(Row.Count, 1).End(x1Up).Row
lngLastRow2 = Sheets ("Blatt2").Cells(Row.Count, 1).End(x1Up).Row
If lngLastRow1 > 1 Then
Sheets("Liste").Range("A2:T" & lngLastRow1).Copy
Sheets("Blatt2").Range("A" & lngLastRow2 + 1).PasteSpecial x1Values
Application.CutCopyMode = False
End If
With Sheets("Blatt2")
.Activate
.Range("A" & lngLastRow1 + lngLastRow2).Select
End With
End Sub
Bei diesem Ansatz weiß ich jedoch nicht, wie ich hier die Filterung implementieren kann.
Über eure Hilfe wäre ich sehr dankbar. Da ich absoluter Neuling in Sachen VBA bin, würde ich mich ebenfalls über eine kurze Erklärung freuen :)
Liebe Grüße
Frederic