Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1324to1328
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
1324to1328
1324to1328
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UF-CommandButton lt.Zellwert färben...

UF-CommandButton lt.Zellwert färben...
22.08.2013 12:49:57
robert
Hi,
mit dem Button-TISCHE- startet ein(e) Userform.
Mein Wunsch-die Button-Nr., die im Blatt-TISCHPLAN- in Spalte A
vorhanden sind, einzufärben(BackColor)-Farbe egal.
Danke fürs reinschauen
Gruß
robert
https://www.herber.de/bbs/user/86984.xlsm

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

Betreff
Datum
Anwender
Anzeige
AW: UF-CommandButton lt.Zellwert färben...
22.08.2013 15:40:24
hary
Moin robert 
Private Sub UserForm_Initialize()
Dim cmd As CommandButton
Dim i As Long
Dim a As Variant
For Each cmd In Me.Controls
If Left(cmd.Name, 6) = "Tische" Then
i = Mid(cmd.Name, 7, Len(cmd.Name) - 5)
a = Application.Match(i, Worksheets("Tischplan").Range("A:A"), 0)
If IsNumeric(a) Then
cmd.BackColor = vbGreen
End If
End If
Next
End Sub

gruss hary

AW:ein wenig bunter ;-))
22.08.2013 15:43:15
hary
Hallo nochmal 
Private Sub UserForm_Initialize()
Dim cmd As CommandButton
Dim i As Long
Dim a As Variant
For Each cmd In Me.Controls
If Left(cmd.Name, 6) = "Tische" Then
i = Mid(cmd.Name, 7, Len(cmd.Name) - 5)
a = Application.Match(i, Worksheets("Tischplan").Range("A:A"), 0)
If IsNumeric(a) Then
cmd.BackColor = vbGreen
Else
cmd.BackColor = vbBlue
End If
End If
Next
End Sub

gruss hary

Anzeige
Danke hary, funkt super !!! owT Gruß.
22.08.2013 15:58:05
robert

Links zu Excel-Dialogen

CommandButton UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige