Zeile kopieren und drunter einfügen
18.09.2018 11:10:46
Georg
Ich möchte:
1) sobald in Spalte B, ab Zeile 7 die Bedingung ("Sa") erfüllt ist, diese Zeile kopieren und direkt darunter einfügen.
Also bsw. in Zeile 9 wird in B9 Sa gefunden, dann soll diese Zeile eins drunter eingefügt werden.
2) was ich nicht schaffe,ist dass diese kopierte Zeile 10 übergangen wird !!, sonst wird - wie in meinem Code - alles bis nach unten entsprechend kopiert.
Mein unvollständiger Code : DANKE!!!
Sub BedingteKopieZeilen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Tabelle2
ZeileMax = .UsedRange.Rows.Count
For Zeile = 7 To ZeileMax
If .Cells(Zeile, 2).Value = "Sa" Then
.Rows(Zeile).Copy Destination:=Tabelle2.Rows(Zeile + 1)
End If
Next Zeile
End With
End Sub
Anzeige