Hallo
ich arbeite an einem kleinen Projekt und habe dabei ein
folgendes Problem :
Es soll eine Excel Tabelle (Beispiel im Anhang) geschaffen werden, die
folgendes unterstützt.:

Schauen Sie bitte mal in die Excel Tabelle im Anhang und klicken Sie auf den
Schneemann, daraufhin wird die markierte Zelle orange.
Dahinter steckt ein Makro welcher wie folgt lautet.:

Sub testmakro()
'
' testmakro Makro
' Makro am 29.06.2003 von Andreas aufgezeichnet
'
With Selection.Interior
.ColorIndex = 45
.Pattern = xlSolid
End With
End Sub

So funktioniert das Makro einwandfrei, das Problem ist nur, daß das Makro
auch funktionieren soll,
wenn der Blattschutz sowie der Arbeitsmappenschutz mit Freigabe aktiviert
ist.

Schalte ich diesen jetzt ein (unter Extras ohne Kennwort) und führe den
Makro jetzt aus,
so erhalte ich folgende Fehlermeldung:

Laufzeitfehler 1004:
Die ColorIndex-Eigenschaft des Interior-Objektes kann nicht festgelegt
werden.


Ändere ich den Code wie folgt:

Sub testmakro()
'
' testmakro Makro
' Makro am 29.06.2003 von Andreas aufgezeichnet
'
ActiveSheet.Unprotect
With Selection.Interior
.ColorIndex = 45
.Pattern = xlSolid
End With
ActiveSheet.Protect
End Sub


kommt folgende Fehlermeldung:

"Laufzeitfehler '1004':
Die Unprotect-Methode des Worksheet-Objektes konnte nicht ausgeführt
werden."


Funktioniert also auch nicht.
Ändere ich den Code wie folgt:

Sub testmakro()
'
' testmakro Makro
' Makro am 29.06.2003 von Andreas aufgezeichnet
'
WindowSheet.Unprotect
ActiveSheet.Unprotect
With Selection.Interior
.ColorIndex = 45
.Pattern = xlSolid
End With
ActiveSheet.Protect
WindowSheet.Protect
End Sub


so kommt dei Fehlermeldung
"Laufzeitfehler '424': Objekt erforderlich


Ich habe schon so vieles ausprobiert aber bin noch nicht weiter gekommen..
Ich hoffe das Sie mir da weiterhelfen können.
Die Excel Arbeitsmappe ist ein Teil eines sehr wichtigen Projektes an dem
ich grade arbeite und was unbedingt fertig werden muss.
Es hängt eben nur noch an solchen kleinen Dingen.
Bitte geben Sie mir kurz per email Bescheid ob Sie
diese email erhalten haben und ob Sie mir helfen können.
Vielen Dank im vorraus.
Mit freundlichen Grüßen.
Andreas

https://www.herber.de/bbs/user/39.xls