VBA - Datum suchen - Formatierungsproblem
17.06.2016 12:25:31
VictorB
für einen Projektplan möchte ich ein Datum aus Zelle D4 in Zeile 2 (hier stehen alle Daten von 01.01.2016 bis 31.12.2016) suchen. Benötigt wird die Spalte in der das Datum gefunden wird (diese Funktion ist noch nicht in meinem Code hinterlegt, ich bastel zunächst an der Suche des Datums). Meine Suche funktioniert aber bisher nur, wenn das Datum an beiden Stellen im Excelsheet als Text formatiert ist. Wie bringe ich VBA dazu, mit dem Datum zu arbeiten?
Mein Code sucht also nach dem Datum und soll bei Erfolg in die Zelle E18 "test2" schreiben.
Sub test()
Dim ws As Worksheet
Dim rng As Range
Dim targetDate As Range
Set ws = ThisWorkbook.Worksheets("Zeitlinie2")
Set targetDate = ws.Range("D4")
Set rng = ws.Range("G2:Z2").Find(What:=targetDate, LookAt:=xlWhole, MatchCase:=False)
If Not rng Is Nothing Then
ws.Range("E18").Value = "test2"
End If
End Sub
Anzeige