ich möchte einen Wert in eine andere Tabelle übertragen. In dieser anderen Tabelle ist eine Liste in der ich in Spalte 2 das Datum per Loop suche um dann den dazugehörigen Wert in der Zeile dazuzuschreiben. Beim ausführen bekomme ich aber den folgenden Fehler:
Laufzeitfehler '1004'
Anwendungs- oder objektorientierter Fehler
mein Code sieht wie folgt aus:
Dim datumheute As Date
Dim datumZiel As Date
Dim Zeile As Integer
Dim sendersheet As Worksheet
Dim zielsheet As Worksheet
Dim ayVal As String
Set sendersheet = ActiveWorkbook.ActiveSheet
datumheute = sendersheet.Range("E4")
ayVal = sendersheet.Range("N32")
Set zielsheet = Workbooks.Open(Filename:="L:\Ordner\Tabelle.xlsm").Worksheets("2016")
Worksheets("2016").Activate
Do Until Worksheets("2016").Cells(Zeile, 2) = "ENDE"
datumZiel = zielsheet.Cells(Zeile, 2)
If datumZiel = datumheute Then
zielsheet.Cells(Zeile, 5) = ayVal
Exit Do
End If
Zeile = Zeile + 1
Loop
Der Debugger schmeißt den Fehler bei "Do Until ..." raus.
Kann mir jemand auf die Sprünge helfen?