Bedingte Zeile Kopieren
28.01.2021 20:59:37
Overzier
Danke Martin.
Das ist mein Makro:
Sub Zeile_kopieren()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Sheets("LOP")
ZeileMax = .UsedRange.Rows.Count
n = 5 + 1
For Zeile = 5 To ZeileMax
If .Cells(Zeile, 9).Value = "closed" Then
.Rows(Zeile).Copy Destination:=Sheets("closed").Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
Sub Zeilelöschen()
Dim Zeile As Long
Dim ZeileMax As Long
With Sheets("LOP")
ZeileMax = .UsedRange.Rows.Count
For Zeile = ZeileMax To 1 Step -1
If .Cells(Zeile, 9).Value = "closed" Then
.Rows(Zeile).Delete
End If
Next Zeile
End With
End Sub