Heute suchen und Blatt zeigen
16.11.2002 16:24:08
Hary
Ich habe folgendes Problem:Ich habe Monatsblätter angelegt.Jan bis Dez. Das Datum steht in Spalte B (zb. 13.11.02) es wird aber mit einer Formel berechnet. Folgendes Makro habe ich eingebaut.
Sub HeuteSuchen()
Dim rng As Range
For Each rng In Range("B3:b33")
If CDbl(rng.Value) = CDbl(Date) Then
rng.Select
End If
Next rng
End Sub
Es funktioniert auch prächtig (die Zelle mit dem aktuellen Datum wird markiert), aber nur auf diesem Tabellenblatt.Ist das heutige Datum aber in einer anderen Tabelle gehts nicht.Die Suche muss also über alle Blätter gehen, wie bringe es dieses in dem Makro unter????
vielen Dank schon mal für die Hilfe
Hary