Hallo zusammen

ich habe ein kleines Problem mit VBA.
Es geht darum, ich habe einen Kalender, und möchte nun vereinzelne Daten aus einer einen Anden Tabelle auslesen und im Kalender den Namen des Festdatums hineinschreiben.

Die Meldung, welche ich bekomme ist: "Laufzeitfehler 1004, Methode 'Range' für das Objekt '_Worksheet' is fehlgeschlagen"

Hier ist noch der Source-Code:

Set ws = ThisWorkbook.Sheets("Festdaten")
Set upperleft = ws.[A3]
For i = 1 To 50
If ws.[D3].Offset(i, 0).Text = " " Then
Set lowerright = ws.[D3].Offset(i - 1, 0)
Exit For
End If
Next
Set FestdatenRng = ws.range(upperleft, lowerright) <== Hier kommt die Meldung
ReDim FestdatenDatum(Festdaten.Rows.Count - 1)
ReDim FestdatenNamen(Festdaten.Rows.Count - 1)
i = 0
For Each rowRng In FestdatenRng.Rows
If rowRng.Cells(3).Text <> " " Then
FestdatenDatum(i) = CDate(CDbl(Ostern) + rowRng.Cells(3))
Else
FestdatenDatum(i) = DateSerial(jahr, rowRng.Cells(2), rowRng.Cells(1))
End If
FestdatenNamen(i) = rowRng.Cells(4)
i = i + 1
Next rowRng
dat = CDate(Int(dat))
For i = 0 To UBound(FestdatenDatum())
If dat = FestdatenDatum(i) Then
Festdaten = FestdatenNamen(i): Exit For
End If
Next
Festdaten = " "

Vielen Dank im voraus

Jan Appl