ClearContents nach Speichern (Laufzeitfehler)
17.03.2006 22:08:46
nightswimming26
Über die Abfrage einer ComboBox (verschieden Zeiten) werden in bestimmten Zellen "X" gesetzt, das klappt auch bestens:
Sub ComboBox3_Change()
ActiveSheet.Unprotect Password:=Worksheets("Source").Range("$B$3")
With Sheets("Front")
.Range("K27:DF27").ClearContents
End With
Select Case ComboBox3.Value
Case "8"
Range("O27").Activate
ActiveCell.FormulaR1C1 = "X"
Range("L27").Activate
ActiveCell.FormulaR1C1 = ""
Case "20"
Range("BK27").Activate
ActiveCell.FormulaR1C1 = "X"
Range("L27").Activate
ActiveCell.FormulaR1C1 = ""
Case "8-20"
Range("O27").Activate
ActiveCell.FormulaR1C1 = "X"
Range("BK27").Activate
ActiveCell.FormulaR1C1 = "X"
Range("L27").Activate
ActiveCell.FormulaR1C1 = ""
'[...] Hier kommen noch 20 andere Abfragen
End Select
ActiveSheet.Protect Password:=Worksheets("Source").Range("$B$3")
End Sub
Nach dem ERSTEN Abspeichern (egal ob 'zu Fuß' oder per VBA) der Arbeitsmappe und Neuauslösen der ComboBox-Abfrage gibt mir Excel einen Laufzeitfehler '1004': Die Clear-Contents-Methode des Range-Objektes konnte nicht ausgeführt werden.
Wenn ich dann in den Debugger-Mode wechsle, den Debugger beende OHNE etwas zu tun, geht alles wieder einwandfrei. Und: jedes weitere abspeichern und Neuauslösen geht problemlos. Dieses Problem hat mich den beeseren Teil dieser Woche gekostet - ich weiß einfach nicht mehr weiter und bitte um Eure Hilfe!
Vielen Dank!
Christian