Laufzeitfehler 91
18.04.2018 16:15:45
Idence
Option Explicit
Dim Dt As Range
Sub Faerben()
Range("I10").Activate
Set Dt = Tabelle1.Range("M2:T2").Find(what:=Tabelle1.Range("J9").Value, lookat:=xlWhole) _
Tabelle1.Range(ActiveCell.Row, Dt.Column).Activate
End Sub
Damit möchte ich die richtige Spalte und Zeile ermitteln (->ergibt eine Zelle), um später verschiedene Dinge mit der Zelle anzustellen. Doch leider kann ich die Zelle noch nicht aktivieren. Es kommt die Fehlermeldung "Laufzeitfehler 91" und nach einem Klick auf "Debuggen" erscheint die ZeileTabelle1.Range(ActiveCell.Row, Dt.Column).Activate
gelb.
Hat jemand eine Idee, woran dies liegen könnte?
Vielen Dank im voraus.
Gruß
Idence