Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Button in While-Schlaufen einfärben

Forumthread: Button in While-Schlaufen einfärben

Button in While-Schlaufen einfärben
07.08.2007 13:20:12
peteregloff
1. hier mein Makro - in dieser Schlaufe soll, die Farbnummer angezeigt und der Button mit der angewählten Farbe eingefärbt werden. Mit der Stop-Funktion geht es aber ohne diese funktioniert das Makro nur beim ersten und letzten Durchgang.
2. Wie kann die Farbnummer direkt der Variablen "iFar" übergeben werden ohne in cell(1,1) zu schreiben?

Private Sub cmd_Farben_Click()
Do While iFar >= 0
Tabelle1.Cells(1, 1).Select
Application.Dialogs(xlDialogPatterns).Show  ' Farbtabelle einblenden
iFar = Tabelle1.Cells(1, 1).Interior.ColorIndex
If iFar


Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Button in While-Schlaufen einfärben
07.08.2007 13:32:00
Ramses
Hallo
Sei mir nicht böse, aber weshalb sollte das Makro mehrfach laufen =
Tabelle1.Cells(1, 1).Interior.ColorIndex = xlNone
Damit hat die Variable den Wert -4142 (bin aber nicht 100% sicher ob genau diese Zahl, aber auf jeden Fall einen Minuswert)
Daher kommt deine Anweisung
If iFar < 0 Then Exit Sub
zum tragen = Ausstieg
Abfragen kannst du auch so
iFar = CInt(Inputbox("Farbnummer eingeben","Titeltext")
Gruss Rainer

Anzeige
AW: Button in While-Schlaufen einfärben
07.08.2007 15:23:52
peteregloff
Ich glaube, Du hast mich falsch verstanden Rainer, der Ausstieg aus der Schleife funktioniert schon, aber der Button (cmd_Farben.backColor), mit dem das Makro gestarete wird, wird nur beim ersten und letzten mal mit der gewählten Farbe eingefärbt. (Zum auslesen der Farbnummer, soll das Makro mehrmals durchlaufen können!!)
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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