Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige