Office: (Office 2010) Dropdown-Kalender in Excel

Moin
Ist die Mappe in #7 deine Original Mappe??
Ansonsten mal Mappe hochladen ohne relevante Daten.
Fuer die Farbe ist das Makro "Farbe" zustaendig.
Ersetz
Code:

durch
Code:

Alles von Grundauf zu erklaeren wird schwierig.
Daher war auch meine Frage:

gruss hary

 

Die Original-Mappe ist riesig. So viele Register... Die relevanten Daten alle zu löschen, würde ewig dauern.. Ich habe zumindest im VBA-Editor unter Microsoft Excel Objekte die Arbeitsmappe und 13 Tabellen. Die Farbe wechseln müsste ich nun so hinkriegen.
Wie kopiere ich denn das Usermodul KalForm, kannst du mir das erklären? Ansonsten kopiert und fügt man doch genauso ein, wie üblich auch per Copy-Paste, oder gibt es im VBA-Editor Abweichungen?
Der Grundgedanke, die jeweiligen Module neu anzulegen und den Code einfach reinzukopieren war doch richtig, oder?*tongue.gif*
Gruß

 

Moin

Ja, geht aber auch im Manager.
Siehe Bild. Die (roten) Module/Form und Cls mit gedrueckter linken Maustaste in dein Projekt ziehen.
Beachte unter Tabelle1 ist noch ein Code den du kopieren und in den Code deines Tabellenblatt einfuegen und den Blattnamen anpassen musst.
Deinen Kontrollkaestchen dann noch das Makro "Farbe" zuweisen.
gruss hary

 

Jep, das Rüberziehen hat geklappt!!*biggrin.gif* Wo genau muss ich den Namen anpassen? Im Code selbst? Und was muss da stehen? Der Name meines Tabellenblatts? Ich habe insgesamt 13 verschiedene Tabellenblätter. Muss ich den Code in jedes dieser Blätter einfügen? Wahrscheinlich eine dumme Frage...
Habe jetzt mal den Namen meines 1. Tabellenblatts im Code geändert, was in Klammern steht, und auf Ausführen gedrückt. Da kommt nur eine Fehlermeldung, tut sich gar nichts.
Oh man... Ich weiß definitiv, dass ich nach diesem Projekt eine Excel-Schulung besuchen möchte...
LG

 

Moin
Der Kalender soll bei allen 13 Blaettern angezeigt werden??
Da kannst du den Code in den Code der Arbeitsmappe reinstellen und er wirkt bei allen Blaettern.
Code:

gruss hary

 

Juhuu! Es hat geklappt! Nur bei einer Spaltenreihe macht er bei Doppelklick nichts? Wieso? Bitte erkläre es mir. In den 4 Zellen stand vorher kein Datum. Ansonsten funktioniert alles einwandfrei.
Wenn ich das Makro Farbe einem Kontrollkästchen zuweise, gibt er mir eine Fehlermeldung: Laufzeitfehler 9. Index außerhalb des gültigen Bereichs. Die 4. Zeile mit den Rauten markiert.
LG

Option Explicit

Sub Farbe()
Dim obj_Sh As Variant
#####For Each obj_Sh In Worksheets("Tabelle1").Shapes#####
'---Rot oder Gruen
obj_Sh.TopLeftCell.Font.Color = IIf(obj_Sh.DrawingObject.Value = 1, RGB(0, 160, 50), vbRed)
Next
End Sub

 

Moin
Hast du in den betreffenden Zellen evtl. kein Kontrollkaestchen?
Ersetzt mal im Makro "Farbe"
Worksheets("Tabelle1")
durch
ActiveSheet

Der Fehler kommt, weil es das Blatt Tabelle1 nicht gibt.
Schreibe vom Handy, kein Com zur Hand.
Gruß hary

 

Guten Morgen Hary,
hab das Makro entsprechend geändert (statt "Tabelle1" in "ActiveSheet"), der zeigt mir trotzdem den gleichen Laufzeitfehler 9 an.
In den 4 betreffenden Zellen waren Kontrollkästchen vorhanden?! Was kann ich tun? Füge dir das noch einmal bei.*wink.gif*
LG

 

Ah, ich weiß nun, warum die 4 Zellen nicht funktioniert haben!! Weil diese verbunden und zentriert waren! Die Aufgabe habe ich schon mal gelöst. Bleibt nur noch das Makro Farbe übrig*Smilie

 

Moin
Lies nochemal ;-))

geht so:
Code:

gruss hary

 

Danke Hary, dass du so viel Geduld mit mir hast. Jetzt zeigt er mir Laufzeitfehler Nr. 438:

obj_Sh.TopLeftCell.Font.Color = IIf(obj_Sh.DrawingObject.Value = 1, RGB(0, 160, 50), vbRed)

 

Moin
Bei mir (Excel2007) geht alles.
Probier nocchmal den Anhang.
gruss hary

 

Ja, bei deinem Anhang funktioniert es. Die Makros stimmen mit meinen 1:1 überein?! Nach dem Zuweisen und Klicken sagt er mir Fehler 438.
Vielleicht mache ich beim Zuweisen des Makros etwas falsch? Auf Kontrollkästchen mit rechter Maustaste, Makro zuweisen, Makro entsprechend aussuchen und bestätigen?!
Kann es etwas mit den AddIns zu tun haben? Weil du vielleicht eine andere Version nutzt?
LG

 

Moin
Kann sein dass es an der Version liegt!?
Probehalber ersetz mal
Code:

durch
Code:

die 10 steht fuer dunkels Gruen.
gruss hary

 

Funktioniert leider nicht. Immer noch gleiche Fehlermeldung.*rolleyes.gif*