Suchen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Suchen
von: Gregor
Geschrieben am: 23.03.2005 16:45:38
Hallo zäme
Mit fogendem Befehl suche ich in einer Spalte nach dem Eintrag "Hallo".
Ich möchte nun alle Einträge suchen in der zB in Spalte D irgend ein Datum steht (nicht bloss aktuelles). Welchen Eintrag muss ich anstelle von "Hallo" setzen. Evt. irgendwas mit Format(Date)?
Set SuBe = Worksheets(Quellblatt).Range(Cells(Beginn, 4), _
Cells(intLastRow, 4)).Find("Hallo", lookat:=xlWhole)
Vielen Dank

Bild

Betrifft: AW: Suchen
von: Fritz
Geschrieben am: 23.03.2005 17:11:54
Hallo Gregor,
ich würde es mal so versuchen:

Sub xxx()
Dim I&, LetzteZeile&
LetzteZeile = Cells.SpecialCells(xlCellTypeLastCell).Row
For I = 1 To LetzteZeile
    Cells(I, 4).Select
    If IsDate(Cells(I, 4)) Then
        MsgBox ("Datum")
    Else
        MsgBox ("kein Datum")
    End If
Next
End Sub

Bild

Betrifft: AW: Suchen
von: Gregor
Geschrieben am: 23.03.2005 19:55:06
Hallo Fritz
Danke für deinen Tipp, ich werde das so einbauen.
Gruss Gregor
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Suchen"