Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autoform bei klick farbe ändern.

Forumthread: Autoform bei klick farbe ändern.

Autoform bei klick farbe ändern.
07.03.2008 10:32:00
amin
Hallo alle zusammen,
ich möchte gern bei 7 Autoformen (Stern) in einem Tabellenblatt die Farbe ändern.
Einmal klicken = Farbe Gelb
Zweimal klicken = Farbe Weiß
Danke. Gruß amin

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autoform bei klick farbe ändern.
07.03.2008 11:18:00
Nepumuk
Hallo amin,
allen Sternen dieses eine Makro zuweisen:
Public Sub Farbwechsel()
    With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor
        If .RGB <> RGB(255, 255, 0) Then 'wenn farbe nicht gelb
            .RGB = RGB(255, 255, 0) 'dann mach es gelb
        Else
            .RGB = RGB(255, 255, 255) 'ansonsten mach es weis
        End If
    End With
End Sub

Gruß
Nepumuk

Anzeige
DANKE
07.03.2008 11:56:59
amin
Vielen Dank, funktioniert.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige