Referenzieren
01.11.2004 00:39:59
Fritz
Ich möche, ohne das Tabellenblatt "Kalender" zu aktivieren, die Zelle suchen,
die das aktuelle Datum enthält und dann z.B in: Cells(Zeile, 5) etwas eintragen.
Kann ich natürlich wieder nicht.
Könnt Ihr mir bitte auf die Sprünge helfen?
Vielen Dank schon mal.
Grüße, Fritz
Sub AktuellesDatum()
Dim Datum As Date, Zeile As Long, ZeileGefunden As Boolean
'''Wie kann ich referenzieren, ohne das Blatt zu aktivieren, auf dem sich
'''die Datumsreihe befindet - Sheets("Kalender")
Datum = Date
For Zeile = 2 To 600
If Cells(Zeile, 1).Value = Date Then
ZeileGefunden = True
Exit For
End If
Next Zeile
End If
If ZeileGefunden Then
MsgBox Address
End If
End Sub