vor wenigen Tagen habe ich hier eine tolles Script auf einer meiner Fragen bekommen. Leider bin ich ein zu großer Newbie und bekomme es nicht zu laufen.
Das Script ist folgendes:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
If IsNumeric(Target) = False Then
MsgBox "Fehler: Zelle A1 muss nummerisch sein."
Exit Sub
End If
ActiveSheet.Unprotect
If Target > 0 Then
Range("B1").Locked = True
Else
Range("B1").Locked = False
End If
ActiveSheet.Protect
End If
End Sub
Wie muss ich dieses Script jetzt einbinden, sodass es funktioniert.
Wenn ich den Code ausführen möchte, kommt bei mir das Dialogfeld "Makros", mit dem kann ich aber nix anfangen. Ich habe schon allerlei Tricks probiert, aber da fehlts mir anscheinend am grundlegendsten Verständnis.
Can anyone help me?
Danke.
Innuendo