datum finden
15.12.2004 19:56:14
Micha
ich habe den folgenden Code. Er soll mir das Tagesdatum aus Spalte B suchen.
Leider musste ich aber das Datum mit Addition bilden, weil ich pro Tag zwei Zeilen benötige. Also so:
01.01.2005
=b1+0 ergibt ja 01.01.2005
=b2+1 ergibt ja 02.01.2005
=b3+0 ergibt ja 02.01.2005
usw. Nun funktioniert aber der Code nicht mehr, weil es kein echtes Datum ist. Was kann ich machen? Entweder kann mir jemand bei dem Code helfen, oder ist es besser ein Makro zu schreiben, was die Daten erneuert. Das ganze findet natürlich auf 12 Monatsblättern statt.. :-(
Hier der Code:
Private Sub Workbook_Open()
Dim SuBe As Range
Dim s As Date
'Application.ScreenUpdating = False
Worksheets(Month(Date)).Select
s = Date
Set SuBe = Range("B1:B" & Rows.Count). _
Find(s, lookat:=xlWhole)
If Not SuBe Is Nothing Then
Range("B" & SuBe.Row).Select
Else
MsgBox "Tagesdatum nicht gefunden !", vbOKOnly + vbExclamation, _
"Dezenter Hinweis für " & Application.UserName & ":"
End If
Set SuBe = Nothing
'Application.ScreenUpdating = True
End Sub
Kann mir jemand helfen?
Vielen Dank, Micha