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

Makros starten wenn...

Forumthread: Makros starten wenn...

Makros starten wenn...
15.03.2006 13:35:47
Fritz
Hallo Schönen Tag!
Hab eine Frage ist es möglich das wenn z.B die Zelle A1 grün eingefärbt ist beim Klick auf eine Schaltfläche das makro 1 gestartet wird und wenn die zelle A1 blau eingefärbt ist beim Klick auf die selbe schaltfläche das makro 2 gestartet wird?
Danke
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makros starten wenn...
15.03.2006 13:42:36
Harald
Hallo Fritz,
der Code für den Button könnte z.B. so aussehen
if range("a1").interior.colorindex = 4 then call makro1
if range("a1").interior.colorindex = 41 then call makro2
Wenn du den Farbindex benötigst
MsgBox ActiveCell.Interior.ColorIndex
Ensteht die Färbung durch bedingte Formatierung, mußt du die Bedingung abfragen. Nicht der farbindex selbst.
Gruss Harald
Anzeige
AW: Makros starten wenn...
15.03.2006 13:45:11
UweD
Hallo
hier ein Muster https://www.herber.de/bbs/user/31926.xls

Private Sub CommandButton1_Click()
Dim Farbe
Farbe = ActiveSheet.Range("A1").Interior.ColorIndex
If Farbe = 50 Then 'grün
Call Makro1
ElseIf Farbe = 41 Then 'blau
Call Makro2
End If
End Sub

Sub Makro1()
MsgBox "Zelle ist grün"
End Sub
Sub Makro2()
MsgBox "Zelle ist blau"
End Sub
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Makros starten wenn...
15.03.2006 14:11:59
Fritz
Danke für die schnelle Lösung!!!
;

Beliebteste Forumthreads (12 Monate)

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