Office: (Office 2016) Labelfarbe

Hi zusammen,

ich habe folgendes Problem :

Ich habe in einem Arbeitsblatt 2 Zellen in denen ich ein Datum stehen habe : (04.06.2016) und (05.06.2016)
Ziel soll es sein, das sich die Labelfarbe in der Userform ändert, sobald das erste Datum kleiner ist als das zweite.

Code:

If Sheets("Tabelle1").Range("K3") > Sheets("Tabelle1").Range("V1") Then
Me.Label19.ForeColor = &H80FF&
End if

und das funktioniert nicht, hat jemand hier eine Idee?
Die Labelfarbe soll sich wirklich nur dann ändern, wenn das Datum ab 1.Tag überschritten ist

Vielen Dank

Mfg Trojan

 

Ich weiß nicht, ob dir das weiterhilft, ich habe folgenden Code um Tabellenblätter (in meinem Fall Monatsblätter) einzufärben, wenn sie aktuell sind:

Code:

Private Sub Workbook_Open()
   Dim arrMonate()
   Dim bytZaehler As Byte
   If Worksheets(Format(Date, "mmm")).Tab.Color <> 255 Then
      arrMonate = Array("Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")
      For bytZaehler = 0 To 11
         If arrMonate(bytZaehler) = Format(Date, "mmm") Then
             Worksheets(arrMonate(bytZaehler)).Tab.ColorIndex = 3
         Else
             Worksheets(arrMonate(bytZaehler)).Tab.ColorIndex = 14
         End If
      Next bytZaehler
   End If
End Sub

 

Hi ,

Danke für die schnelle Antwort.
Ich denke nicht, das ich das damit hinbekomme.
Hierzu ist meine VBA Erfahrung nicht ausreichend :-(

Mfg Trojan


Edit habe das Problem gelöst Beitrag erledigt.
Habe es mit einer Formel gelöst, die in einer weiteren Zelle steht.

Code:

=WENN(K3>V1;"Korrekt";"Falsch")

in Zelle Z1 geschrieben, Im VBA habe ich es nun so geschrieben:

Code:

If Sheets("Tabelle1").Range("Z1") = "Korrekt" Then
Me.Label19.ForeColor = &H80FF&
Else
Me.Label19.ForeColor = &HC000&
End If

sicher nicht der optimale weg, aber es klappt prima.

Mfg Trojan