Labels abhängig von Zelleninhalt einfärben
27.12.2024 14:09:36
Chris
ich möchte folgende per VBA lösen:
Von S1:Y1 steht: Mo, Di, Mi, Do Fr, Sa, So (jeweils nur ein Eintrag pro Zelle)
In einer Userform sind sieben Labels (Caption "Mo", "Di" usw.)
Excel nun bei Mausklick die jeweiligen Spalten von S von Y durchsuchen.
Bspw: Klick in A17, suche in S17, T17,U17...Y17. Wenn dort NICHT der Eintrag "--" vorhanden ist,
dann färbe das entsprechende Label in rot.
Bsp: in S17, U17, V17 steht nicht "--" (d. h. irgendetwas anders), dann werden die Label Mo, Mi, Do eingefärbt.
Ich habe einen Ansatz, komme jedoch nicht weiter. Ich denke zwei Schleifen sind nötig:
Sub x
Dim iCnt As Control
Dim i As Long
i = 19
For Each iC In TL
For iL = 40 To 46
LabCap = UF.Controls("Label" & iL).Caption
If iCnt.Name = "Label" & Li Then
If Sheets("Test").Cells(ActiveCell.Row, i).Value > "--" Then
TL.Controls("Label" & iL).BackColor = vbRed
End If
End If
Next
Next
Hoffe meine Beschreibung ist verständlich.
Gruß
Chris
Anzeige