Folgendes Problem: Ich habe mit einer ComboBox über ListFillRange ein Dropdownfeld mit verschiedenen Zeitvorgaben erstellt.
Nun möchte ich, dass wenn eine Zeitvorgabe gewählt wird, in den betreffenden Zellen jeweils ein "X" gesetzt werden soll. Das habe ich ja noch hingekriegt...:
Private Sub ComboBox1_Change()
ActiveSheet.Unprotect Password:=Worksheets("Source").Range("$B$3")
Select Case ComboBox1.Value
Case "8"
Range("O27").Activate
ActiveCell.FormulaR1C1 = "X"
Case "8-12-16"
Range("O27").Activate
ActiveCell.FormulaR1C1 = "X"
Range("AE27").Select
ActiveCell.FormulaR1C1 = "X"
Range("AU27").Select
ActiveCell.FormulaR1C1 = "X"
End Select
ActiveSheet.Protect Password:=Worksheets("Source").Range("$B$3")
End Sub
Hier wird das Problem ersichtlich: Wenn ich einen anderen Eintrag aus dem Dropdown-Menü wähle, verschwinden deshalb die vorher gemachten "X" natürlich nicht wieder...sollen sie aber. Aber wie? Clear-Funktion?
Und: Wenn ich im Dropdown-Menü eine "leere" Zelle (Sprich: Keinen Wert) anwähle, wie bekomme ich es hin, dass im ganzen Bezugsbereich (K27:DF27) alle "X" wieder verschwinden?
Bereits im Voraus vielen Dank!
Gruß
Christian