(Zelle C3 = 01.01.2002, D3 01.02.2002.....
Sub test()
Dim Dt As Date
Dim rngbereich As Range
Dim Nsp As Integer
Dim j As Variant
Dim t As Variant
Dim m As Variant
Dim mo As Variant
Dim Nz As Integer
Dim Ns As Integer
Dim rngbereich1 As Range
Workbooks("Datum.xls").Activate
Worksheets("Eingabe").Activate
Dt = Cells(1, 1).Value
j = Year(Dt)
t = Day(Dt)
m = Month(Dt)
'Cells(1, 3) = "0" & "1" & "." & "0" & Month(Dt) & "." & Year(Dt)
'Cells(1, 3) = j
'Cells(1, 4) = m
'Cells(1, 5) = t
If m = 1 Then mo = "01" & "." & "0" & m & "." & j
If m = 2 Then mo = "01" & "." & "0" & m & "." & j
If m = 3 Then mo = "01" & "." & "0" & m & "." & j
If m = 4 Then mo = "01" & "." & "0" & m & "." & j
If m = 5 Then mo = "01" & "." & "0" & m & "." & j
If m = 6 Then mo = "01" & "." & "0" & m & "." & j
If m = 7 Then mo = "01" & "." & "0" & m & "." & j
If m = 8 Then mo = "01" & "." & "0" & m & "." & j
If m = 9 Then mo = "01" & "." & "0" & m & "." & j
If m = 10 Then mo = "01" & "." & m & "." & j
If m = 11 Then mo = "01" & "." & m & "." & j
If m = 12 Then mo = "01" & "." & m & "." & j
Cells(1, 3) = mo ' Überprüfung, ob Wert stimmt
'Eintrag soll gefunden weden
Set rngbereich1 = Worksheets("Eingabe").Rows(3).Find(what:=mo, lookat:=xlWhole)
If Not rngbereich1 Is Nothing Then
Ns = Rows(3).Find(mo).Columns
Nz = Columns(1).Find(t).Rows
Cells(Nz, Ns) = "Tobi ist eine Haflingerfan"
Cells(Nz, Ns).Select
Selection.Columns.AutoFit
Else
MsgBox ("Fehler")
End If
End Sub