Hallo Experten,
ist es irgendwie möglich den Autoformen per Mausklick Farben zu geben?
habe 20 Autoformen (Kreise), und da möchte ich bei jedem einzelnen 2 Farben zuordnen,per Mausklick.
d.h. Standardmässig sollten die Kreise Grün sein, und wenn ich mit der Maus draufklicke sollte die Farbe nach rot wechseln. Beim nächsten Mausklick wiederum Grün.
Ich brauche das ganze um Zimmerbelegungen zu simulieren. Bett frei = Grün, wenn Besetzt ein Mausklick und dann rot und umgekehrt.
Ist dies realisierbar mit z.B. VBA??
d.h. Standardmässig sollten die Kreise Grün sein, und wenn ich
mit der Maus draufklicke sollte die Farbe nach rot wechseln.
Beim nächsten Mausklick wiederum Grün.
Ist dies realisierbar mit z.B. VBA??
Hi Sascha,
die Farben musst du dir noch anpassen. Weise jeder Autoform das nachfolgende Makro zu.
Option Explicit
Sub tt()
ActiveSheet.Shapes(Application.Caller).Select
Select Case Selection.ShapeRange.Fill.ForeColor.SchemeColor
Case 4
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 3
Case 3
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 4
Case Else
End Select
ActiveCell.Select
End Sub
Gruß
Reinhard
Hallo Reinhard,
Vielen Dank schon mal, aber irgendwie funktioniert es nicht.
bekomme einen fehler: typen unverträglich.
habe das makro in ein neues modul eingebaut, sowie in:diesearbeitsmappe als auch im blatt selber.
zudem ändert es wohl die farbe (ändert sich aber nichts wenn ich diese definieren will), von schwarz nach weiss aber nur wenn ich mit der maus klicke und draufbleibe.
was genau mache ich denn falsch?
Vielen Dank schon mal, aber irgendwie funktioniert es nicht.
bekomme einen fehler: typen unverträglich.
was genau mache ich denn falsch?
Hi Sascha,
du machst nichts falsch, Fehler lag bei mir.
Makro geht davon aus dass die Autoformen schon die Farbnummer 3 oder 4 haben, danach funktioniert es wie geplant.
Gehe mal auf Extras–Makro–Aufzeichnen, dann färbe beliebige Zelle in deiner Wunschfarbe 1, dann formatiere eine beliebige andere zelle in deiner Wunschfarbe 2 und beende den Makrorekorder. Im aufgezeichneten Code siehst du dann deine beiden Farbnummern. Diese nimmst du anstelle von Nummer 3 und 4.
Dann lass einmalig folgenden Code laufen, danach haben alle Autoformen deine Farbe 1. Im Sub tt() musst du dann auch noch die Farbwerte anpassen, dann klappt alles.
Sub tt2()
Dim bild
For Each bild In ActiveSheet.Shapes
bild.Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 4
Next bild
End Sub
Ich habe es eben getestet, es funktioniert.
Gruß
Reinhard
Hallo Reinhard,
Super, hat bestens geklappt! *freu*
Vielen lieben Dank!!!
Auf dich war schon immer verlass…
Cool…
Liebe Grüsse
Sascha