das Problem, dass der Blattschutz bei Auswahl der comboBox nicht aufgehoben wurde, besteht nun glücklicherweise nicht mehr. Um den Blattschutz wirklich zu entfernen, bevor der Eintrag erfolg, war es notwendig einen 2. Sub einzubauen:
Private Sub cbo1_DropButtonClick()
ActiveSheet.Unprotect ("passwort")
Range("d16").ClearContents
End Sub
D.h. wenn der User den ComboField Button betätigt wird der Schutz aufgehoben und die Zielzelle wird geleert. Dann folgt der 2. Sub:
Private Sub cbo1_Change()
ActiveSheet.Calculate
Range("K10").Select
Selection.Copy
Range("D16").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.Protect ("passwort")
End Sub
Der User wählt einen Eintrag aus und dann wird das Blatt auch wieder geschütz.
Haken an der Sache: Wenn der User den Button für die Auswahl betätigt und KEINEN Eintrag wählt, sondern rausklickt, wird der Unprotect Befehl trotzdem ausgeführt, d.h. der User hat nun ein ungeschütztes Blatt!
Das soll er nicht haben. Wie kann man per Code zur Auswahl eines Wertes der ComboBox "zwingen"?
Habt Dank für Eure Hilfe....
Viele Grüße
Simon