Hallo Excel Gemeinschaft,

ich habe ein Makro welches ganz gut funktioniert, allerdings nicht, wenn ich den Blattschutz aktiviere. Dann bekomme ich folgende Fehlermeldung:
Laufzeitfehler '1004'
Dieser Befehl kann für ein geschütztes Blatt nicht verwendet werden. Sie müssen zuerst den Schutz des Blatts aufheben (Pfad Blattschutz aufheben ...), um diesen Befehl zu verwenden. Sie werden möglicherweise aufgefordert, ein Kennwort einzugeben.

Weiß jemand warum dieses Makro mit Blattschutz leider nicht funktioniert? Der komplette Code des Makros steht am Ende. Die folgende Zeile wird Gelb markiert "freie = Range("B7:B41").SpecialCells(xlCellTypeBlanks).Cells(1).Row"

Vielen Dank an alle Helfer

Private Sub CommandButton4_Click()

If Application.CountBlank(Range("B7:B41")) > 0 Then
freie = Range("B7:B41").SpecialCells(xlCellTypeBlanks).Cells(1).Row
Else
MsgBox "Bereich ist voll"
End If

Name1 = InputBox("Bitte Name eingeben")

Vorgang = InputBox("Bitte Vorgang eingeben")

Cells(freie, 3).Value = Name1

Cells(freie, 4).Value = Vorgang

Zählen = Application.Max(Range("B:B"))

Cells(freie, 2) = Zählen + 1

MsgBox ("Bitte den Betrag der Ein- oder Ausgabe einfügen")

Cells(freie, 5).Select

End Sub