Fehlermeldung bei Ausführung über Button
13.01.2021 13:43:29
Manuel
dieses Forum hat mir schon bei vielen Problemen geholfen, aber diesmal konnte ich nichts passendes finden.
Ich habe folgenden Code:
Sub Schaltfläche1_Klicken()
Dim Datum As Date
Dim Spalte As Range
Dim Zielspalte As Integer
Datum = DateSerial(Year(Date), Month(Date), 1)
Set Spalte = Worksheets("Übersicht").Rows(4).Find(what:=Format(Datum, "MMM YY"), LookIn:= _
xlValues)
Zielspalte = Spalte.Column
Wenn ich den Code per Buttonklick ausführen will, wird ständig folgende Fehlermeldung gezeigt:
Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt".
Diese Meldung bezieht sich dann auf:
Zielspalte = Spalte.Column
Wenn ich den Code jedoch direkt aus dem Editor ausführe, läuft alles sauber durch.
Ich verstehe nun nicht, wieso das eine, aber das andere nicht geht.
Vielleicht könnt Ihr mich hier erleuchten.
Vielen Dank im Voraus und viele Grüße
Manuel