Makro trotz Blattschutz

[murdock]

Hallo liebe Forumsmitglieder,

Zu folgender Datei habe ich zwei Fragen (aus meiner Masterarbeit):

(Siehe Attachment)

1. Wenn am Schluss die Fehlermeldung "Alle Blätter bereits eingeteilt" kommt, passiert nichts, egal ob ich o.k. oder "x" drücke. Was läuft hier schief?

2. Das Makro funktioniert nicht wenn ich das Blatt schütze (die Eingabezellen habe ich natürlich nicht gesperrt). Wie kann ich nur die jeweilige Eingabezellen freigeben und den Rest sperren?

Funktioniert das? Es wäre sehr nett wenn ihr mir helfen könnt.

Vielen lieben Dank.

Viele Grüße

[schauan]

Hallöchen,

mal ein paar Hinweise ohne einen Blick in die Datei.

Wenn man mittels einer Meldung eine Aktion bedingt auslösen will, kann man das z.B. so programmieren:

Code:

Sub test()
If MsgBox("Drücke irgend was!", vbOKCancel, "Ich stelle Dich vor eine gravierende Entscheidung") = vbCancel Then
  MsgBox "Cancel oder X gedrückt"
Else
MsgBox "OK gedrückt"
End If
End Sub

Wie Du Eingabezellen generell frei gibst, ist ja klar.
Wenn Du sie nur temporär freigeben willst, dann hebe temporär den Blattschutz auf. Dann kannst Du sie füllen und anschließend setzt Du den Schutz wieder.