folgendes Makro habe ich mit eurer Hilfe und der meines Makrorekorders erstellt.
Sub Zeilenrein()
Dim lngR As Long
Dim i As Integer
ActiveSheet.Unprotect Password:="xxx"
lngR = ActiveCell.Row
Rows(34).Copy
Rows(lngR).Insert
Intersect(Range("A:O,Q:Q,S:W,Y:Y,AA:AF,AH:AH,AJ:AN,AP:AP,AR:AV,AX:AX"), Rows(lngR)). _
ClearContents
ActiveSheet.Protect Password:="xxx", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, AllowFiltering _
:=True
End Sub
Nun soll das Makro aber nicht die Zeile 34 kopieren, sondern die, die aktuell markiert ist.Wo muss ich was ändern, damit das funktioniert?
Danke vorab und Gruß Micha