Laufzeitfehler 91 bei Suche
23.09.2021 18:43:05
M@tt
ich habe bei folgendem Code ein Problem
Sub test()
Dim Auswertejahr As Integer
Dim max As Variant
Dim gesucht As Range
Auswertejahr = ThisWorkbook.Worksheets("Dashboard").Cells(26, 6).Value
max = Application.WorksheetFunction.Large(Sheets("Strom" & Auswertejahr).Range("L2:L70"), 1)
Worksheets("Dashboard").Cells(61, 3).Value = max
Set gesucht = ThisWorkbook.Worksheets("Strom" & Auswertejahr).Range("L2:L70").Find(what:=max)
MsgBox ("Strom" & Auswertejahr)
MsgBox (gesucht)
End Sub
Gehe ich über gesucht steht Nothing
Die Zelle mit dem höchsten Wert ist benutzerdefiniert formatiert mit #,00#;;;
Es steht darin eine Zahl mit 2 Nachkommastellen, welche aus einer Berechnung aus Werten mit 3 Nachkommastellen stammt.
Gebe ich z.B. von Hand eine 2000 in die Zelle ein, lasse den Code dann laufen, dann funktioniert der Code.
Vielen Dank für Eure Zeit
Gruß Matthias