Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

aktuelles Datum finden Button rot färben

Betrifft: aktuelles Datum finden Button rot färben von: Achim H.
Geschrieben am: 11.11.2014 19:43:57

Hallo

Wer kann mal schauen

Beim Öffnen der Datei soll in der Tabelle Planungen Kalender automatisch nach dem aktuellen Datum in E4 bis NE4 gesucht werden. Wenn das aktuelle Datum gefunden wurde dann nachschauen ob in den darunter befindlichen Zellen (Zeile)7 oder 8 ein Texteintrag vorhanden ist. Wenn ja soll der Commmand Button rot werden. (Mit diesen Code wäre für mich sichergestellt das ich gleich sehe ob am aktuellen Tag Infos vorhanden sind .)

Gruß Achim h.

https://www.herber.de/bbs/user/93691.xlsx

  

Betrifft: AW: aktuelles Datum finden Button rot färben von: Crazy Tom
Geschrieben am: 11.11.2014 20:29:20

Hallo Achim

das hier wäre ein Weg

Option Explicit

Private Sub Workbook_Open()
    Dim Suchergebnis As Range
    With Sheets("Planungen Kalender")
    Set Suchergebnis = .Rows(4).Find(Date, LookIn:=xlValues, lookat:=xlWhole)
        If Not Suchergebnis Is Nothing Then
            If Suchergebnis.Offset(3, 0).Value <> "" Or Suchergebnis.Offset(4, 0).Value <> ""  _
Then
                .CommandButton1.BackColor = vbRed
            Else
                .CommandButton1.BackColor = &H8000000F
            End If
        End If
    End With
End Sub

das gehört unter DieseArbeitsmappe

aber nicht vergessen, die Datei als xlsm zu speichern

MfG Tom


  

Betrifft: danke von: Achim h.
Geschrieben am: 11.11.2014 21:10:10

Danke für die Hilfe.
Ich schaue morgen ob es funzt dann habe ich mehrä Zeit
Gruß Achim .h


 

Beiträge aus den Excel-Beispielen zum Thema "aktuelles Datum finden Button rot färben"