Ich verstehe nichts mehr
Ich brauche Hilfe bei einem VBA code
Hab einen button der mir eine neue Zeile einfügen soll
und zwar wenn ab zeile 38 eine zelle ausgewählt wird soll er mir die werte in der ganzen Zeile kopieren und darunter einfügen.
mein code sieht bis jetzt so aus
Sub neueleereZeileeinfuegen()
' neueleereZeileeinfuegen Makro
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If MsgBox("wollen sie wirklich im ausgewählten Bereich eine zeile einfügen?", vbYesNo) = _
vbYes Then
If Selection.Row > 38 Then Rows(Selection.Row).Resize(Selection.Rows.Count).Insert Shift:= _
xlDown
Else
End If
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub