Laufzeitfehler 91
16.07.2013 19:30:14
TheBeginner
es stellt sich mir mal wieder ein Problem. Ich versuche mittels des folgenden Codes mir die Spalte in welchem sich der Maximalwert befindet zu detektieren.
Die Variablen var1 und var2 werden korrekt übergeben, da der Befehl "bereich.Select" noch ordnungsgemäß ausgeführt wird. Bei nachfolgenden Zeile erhalte ich dann die Fehlermeldung "Laufzeitfehler 91". Woran kann das liegen? Könnte mir bitte jemand ein paar Infos zukommen lassen.
'Maximalwert suchen
Cells(1, 51).Value = "Spalte mit Maximalwert"
Maximum_1 = WorksheetFunction.Max(Range(Cells(2, 3), Cells(var1, var2 + 2))
'Spalte suchen und Spaltennummer ausgeben
Set bereich = Range(Cells(2, 3), Cells(var1, var2 + 2))
bereich.Select
max_spalte_1 = Selection.Find(Application.Max(Selection)).Column
Cells(2, 51).Value = max_spalte_1
Vielen Dank
Richard