Ich kopiere mit folgenden Code Zeilen mit den ersten 42 Spalten in ein Archiv in nächste Freie Zeile.
Das klappt eigentlich auch.
Nur wenn im Archiv bereits ein Filter an ist funktioniert es nicht mehr richtig.
Er macht es garnicht oder verschiebt die Spalten.
Hat jemand eine Lösung?
Case 43
If MsgBox("Willst du wirklich dieses Projekt ins Archiv übergeben?", _
vbQuestion Or vbOKCancel, "Abfrage") = vbOK Then
With Worksheets("Archiv")
lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Target.Offset(, -42).Resize(, 42).Copy .Rows(lngRow)
'nach Übergabe Zeile löschen in Projektübersicht
'Target.EntireRow.Delete
End With