Tabelle durch Kopie erweitern
13.12.2020 22:21:47
Sebastian
Ich habe mir ein recht einfaches Makro zusammengebastelt, was das tut, was ich möchte. Fast zumindest.
Im Moment fügt er mir die kopierte Zeile zwar ein, jedoch wird damit nicht die bestehende _
Tabelle auf dem Blatt erweitert, wie es bei normal angelegten neuen Einträgen der Fall wäre. _ Was müsste ich da bei meinem Makro ändern?
Sub Zusammenfassung()
Dim LastRowSource As Variant
Dim i As Variant
Dim x As Variant
Dim Zeile_Ergebnis As Integer
Zeile_Ergebnis = 11
With Sheets("iii")
LastRowSource = .Cells(Rows.Count, 5).End(xlUp).Row
For i = 11 To LastRowSource
If .Cells(i, 2) = "xxx" Then
.Rows(i).Copy
End If
Sheets("yyy").Rows(Zeile_Ergebnis).Select
ActiveSheet.Paste
Zeile_Ergebnis = Zeile_Ergebnis + 1
Next i
End With
End Sub
Grüße!