kann mir nicht erklären, warum auf einmal eine Fehlermeldung kommt und die Zelle nicht eingefärbt wird, wenn ich auf sie doppelklicke. Das Makro im Tabellenblatt lautet:
Gruß
Mike
wenn Du uns die Fehlermeldung verheimlichst verrät Dir bestimmt keiner die Antwort ;-)
Ansonsten läuft der code bei mir, zwischen c36 und y66 geht alles.
gruss andre
ist ohne die Tabelle nachzubauen bei dem Code nicht so einfach. Kann es sein, dass beim Kopieren des Codes etwas verloren gegangen ist? Besonders dieser Teil macht wenig Sinn: warum S dimensionieren wenn die Variable im Code nicht benutzt wird? Und If whatever Then Else macht auch wenig Sinn.
Gruß
Peter
Gruß Mike
Gruß
Mike
wenn Du Blattschutz hast kannst Du aus welchem Grund auch immer keine Farben ändern - dazu musst Du ihn aufheben, auch wenn die betreffenden Zellen nicht gesperrt sind. Diesen Bug gabs auch schon bei 97.
Mit der Entf-Taste tust Du auch nichts löschen. Dann müsstest Du im zweiten Makro auch prüfen, ob Du gerade die Zelle "geleert" hast. Im ersten Makro kannst Du aber auch Leerzellen einfärben, die Frage ist dann, wieso einmal leer mit Farbe und einmal ohne...
gruss andre
ansonsten wie gesagt läuft der code unter 97 und ohne Blattschutz
gruss andre
der reine Code ohne Fehlerberücksichtigung, Blattschutz und sonstigen Dingen für das Einfärben wäre:
Gruß
Peter
Sub InhalteLöschen()
ActiveSheet.Unprotect
Application.EnableEvents = False
With Range("C36:Y66")
.ClearContents
.Interior.ColorIndex = xlNone
End With
Range("C36").Select
Application.EnableEvents = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Gruß
Mike
gruss andre