Automatische Suche

Bild

Betrifft: Automatische Suche von: Christoph
Geschrieben am: 07.04.2005 15:45:23

Hi Leute,

ich möchte das beim öffnen der Tabelle das aktuelle Datum aus der Spalte D
herrausgesuchtwird und dann farblich hinterlegt wird. Hat von euch jemand eine Idee?

Gruß
Christoph

Bild


Betrifft: AW: Automatische Suche von: =Peter=
Geschrieben am: 07.04.2005 15:49:59

Hallo Christoph,

wie wäre es mit einer bedingten Formatierung in der betreffenden Spalte:

Formel ist =D1=Heute() und ein entsprechendes Format auswählen. Die Bedingte Formatierung soweit wie notwendig nach unten ziehen.

HTH
Gruß
Peter


Bild


Betrifft: AW: Automatische Suche von: Christoph
Geschrieben am: 07.04.2005 17:43:21

Ne du ich such ne VBA-Lösung, welche diese Zelle auch gleich aktiviert.


Bild


Betrifft: AW: Automatische Suche von: Ceyser Soze
Geschrieben am: 07.04.2005 18:15:19

Hi Chritsoph,
das makro startet in Tabelle1, zeile 1, spalte d. es funktioniert nur, wenn keine leerzeilen zwischen dem ersten und letzten wert stehen. Für eine andere Lösung fehlen infos.


      
Private Sub Workbook_Open()
Dim i As Long
i = 1
With Sheets(1)
Do Until IsEmpty(.Cells(i, 4)) = True
    
If CDate(.Cells(i, 4).Value) = Date Then
        .Cells(i, 4).Interior.ColorIndex = 3
        .Cells(i, 4).Select
    
End If
    i = i + 1
Loop
End With
End Sub
 

     Code eingefügt mit Syntaxhighlighter 3.0

Gruß
CS


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Automatische Suche"