Fixierung

Sub N_Datenbank_Zeile_löschen()
Application.ScreenUpdating = False
Dim z
Dim zei
Dim Antwort
Sheets("Muster").Select
Sheets("Muster").Unprotect ("ww")         'schutz aufheben
ActiveCell().Row
If ActiveSheet.Range(Cells(z, 1), Cells(z, 11)).Select Then
Antwort = MsgBox("Zeile wirklich Löschen ?", vbYesNo)
If Antwort = vbNo Then
Worksheets("Muster").Activate
Else:  Selection.Delete Shift:=xlUp
End If
End If
ActiveSheet.Range(Cells(z, 1), Cells(z, 1)).Select
Set zei = ActiveCell
Sheets("Muster").Select
Range("A1").Select
Columns("A:A").ColumnWidth = 6
Columns("B:B").ColumnWidth = 8
Columns("C:C").ColumnWidth = 10
Columns("D:D").ColumnWidth = 22
Columns("E:E").ColumnWidth = 20
Columns("F:F").ColumnWidth = 6
Columns("G:G").ColumnWidth = 7
Columns("H:H").ColumnWidth = 22
Columns("I:I").ColumnWidth = 8
Columns("J:J").ColumnWidth = 10
Columns("K:K").ColumnWidth = 5
Columns("E:E").ColumnWidth = 5
Columns("D:D").ColumnWidth = 5
Range("L1").Select
ActiveWindow.FreezePanes = True                  'hier wird fixiert
'With ActiveWindow
' .SplitColumn = 11
' .SplitRow = 1
'End With
Columns("D:D").ColumnWidth = 23
Columns("E:E").ColumnWidth = 20
zei.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="wwpa"
Application.ScreenUpdating = True
End Sub