Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1260to1264
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
Inhaltsverzeichnis

Hintergrundfarbe von Textfeldern in UserForm änder

Hintergrundfarbe von Textfeldern in UserForm änder
Textfeldern
Hallo zusammen,
ich habe eine UserForm mit 25 Textfeldern in die ich mittels Schleife die Werte aus einer Spalte übertrage. Wie kann ich erreichen, dass der Hintergrund dieser Textfelder in einer anderen Farbe dargestellt wird, wenn in der Spalte die Werte 1,2 oder 3 stehen.
Danke für eure Hilfe und schönen Freitag.
Gruß
Niko

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Hintergrundfarbe von Textfeldern in UserForm änder
27.04.2012 11:01:13
Textfeldern
Hi Nico,
es gibt die Eigenschaft BackColor - die kannst du per Code ändern.


AW: Hintergrundfarbe von Textfeldern in UserForm änder
27.04.2012 12:37:00
Textfeldern
Hallo Beverly,
danke für deine Rückmeldung.
Das weiß ich - mich interessiert, wie ich die If-Bedingung (wenn in .Cells(i + 6, 22) die Werte 1,2 oder 3 stehen, dann im Textfeld txtGesamtTN die BackColor in RGB... ändern) in die For-Schleife einbinde.
With Worksheets("Auswertung")
For i = 1 To 25
Me("txtGesamtTN" & i) = .Cells(i + 6, 19)
...
Next i
End With
Gruß
Niko
Anzeige
AW: Hintergrundfarbe von Textfeldern in UserForm änder
27.04.2012 12:47:18
Textfeldern
Hallo,
wenn nur die 3 Werte vokommen, würde ich das so machen:
Private Sub UserForm_Initialize()
Dim i, arrColors
arrColors = Array(RGB(255, 0, 0), RGB(0, 255, 0), RGB(0, 0, 255))
With Worksheets("Auswertung")
For i = 1 To 25
Me("txtGesamtTN" & i) = .Cells(i + 6, 19)
Me("txtGesamtTN" & i).BackColor = arrColors(.Cells(i + 6, 19) - 1)
Next i
End With
End Sub

Gruß
Rudi
AW: Hintergrundfarbe von Textfeldern in UserForm änder
27.04.2012 13:00:39
Textfeldern
Hi Nico,
eine Möglichkeit:
   With Worksheets("Auswertung")
For i = 1 To 25
Me.Controls("txtGesamtTN" & i) = .Cells(i + 6, 19)
Select Case .Cells(i + 6, 19)
Case 1, 2, 3
Me("txtGesamtTN" & i).BackColor = RGB(255, 0, 255)
End Select
Next i
End With



Anzeige
Vielen Dank für eure Hilfe - es funktioniert (owT)
27.04.2012 13:24:55
Niko
Hi

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige