Laufzeitfehler 91
17.12.2020 10:44:14
Sabrina
ich habe folgendes Makro:
Sub Werte_übertragen()
Dim rngDatum As Range
Sheets("XXX").Select
Range("G7").Select
Selection.Copy
With Worksheets("2021")
Set rngDatum = .Range("B7:B430").Find(Worksheets("2021").Range("W1").Value, LookIn:=xlValues, _
_
lookat:=xlWhole)
rngDatum.Offset(1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
End Sub
Kopieren aus XXX Zelle G7 und in 2021 soll das Datum welches in W1 steht im Bereich B7:B430 gefunden werden und dann in die Spalte daneben einfügen.
Ich nutze diesen Code bereits in einer anderen Datei und dort funktioniert es einwandfrei.
Hier bekomme ich aber den Fehler:
Objektvariable oder With-Blockvariable nicht festgelegt.
Ich weiß aber nicht warum. Kann mir jemand sagen, was ich falsch gemacht hab?
Danke & LG