Problem mit .Find bei Suche nach Datum
16.01.2017 16:15:12
Philipp
Ich habe folgendes Problem:
Ich habe einen Dynamischen Kalender angelegt in dem die Daten in Formelabhängigkeit stehen (Das _ Datum wird nur in der Ersten Zeile schriftlich angegeben, der Rest setzt sich aus A2=A1+1, A3=A2+1 etc. zusammen). Nun möchte ich ein Makro schreiben, dass bestimmte Daten (Geburtstage) in diesem Kalender sucht und in die gefundene Zeile den Namen zum Geburtstag einträgt. Bisher sieht mein Code wie folgt aus:
Private Sub CommandButton3_Click()
Dim Tag As String
Dim Fund As Range
Dim k As Integer
k = 6
Do Until Worksheets(1).Cells(k, 51).Value = ""
Tag = Worksheets(1).Cells(k, 51).Value '"Test"
Set Fund = Worksheets(2).Range("A:A").Find(What:=Tag, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not Fund Is Nothing Then
Worksheets(2).Cells(12, Fund.Row).Value
k = k + 1
Else
k = k + 1
End If
Loop
End Sub
Mit dem Zähler k werden alle Geburtstage abgelaufen und mit Find im Kalender gesucht.
Vielen Dank schonmal
Grüße
Phil