Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige