hab folgendes Makro, dieses funktionier auch soweit,
ich wollte es einwenig anpassen bekomme es aber nicht
so richtige hin.
Ich möchte in Zeile z.B. A1 eine die Buchstaben DK eingeben
und alle entsprechenden Zeilen von Tabelle 1 sollen in Tabelle 2
kopiert werden und zwar ab Zeile 21. Ist das möglich
Danke im Voraus.
Sub BedingteKopieZeilen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim i As Long
With Tabelle3
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 1).Value = "DK" Then
.Rows(Zeile).Copy Destination:=Tabelle2.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub