Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
744to748
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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!!!

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige