Herbers Excel-Forum - das Archiv

Suchen

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
Excel-Beispiele zum Thema "Suchen"
Zellinhalt suchen und Zelle auswählen Suchbegriff über mehrere Tabellenblätter suchen.
Suchen und weitersuchen Zahl +/- 1 suchen
Ein Zeichen in einer Formel suchen Datum suchen und Wert eintragen
Wert in Tabelle suchen und in UserForm ausgeben Letzte Zelle mit Inhalt suchen
Textdatei nach Begriff durchsuchen und Fundzeile importieren Wert in Array suchen, ohne jedes Datenfeld abzufragen