Programmfehler .find
15.06.2019 21:02:38
Kevin
in der folgenden .find Funktion werden Zahlen miteinander verglichen. Aus diesem Grund sollte die Suche immer erfolgreich sein. Ich habe bereits herausgefunden woran mein Programm scheitert, weiß aber nicht wieso.
Vielleicht hat jemand von euch eine Idee, ich komme nicht weiter.
Sub SuchenUndFinden1()
'Variablen
Dim finden As Range
Dim n As Integer
For n = 9 To 17
'If Abfrage HT 7-2 + Kurve 4 + Aufstellraum R1
If Arbeitsbereich.Cells(22, 6).Value = "" _
And Arbeitsbereich.Cells(28, 6).Value = "" _
And Arbeitsbereich.Cells(28, 3).Value = "" Then
'Then Werte für HT 7-2 aus Kurve 4
Set finden = Tabelle93.Range("H8:H107").Find(what:=Formblatt.Cells(n,
5).Value, LookAt:=xlWhole)
Formblatt.Range(n, 6).Value = finden.Offset(0, 1).Value
End If
Next
Der Fehler liegt wohl an der Angabe des Ziels. Wenn ich das Ziel ("H8:H107") angebe, kommt der Fehler, wenn ich es auf ("H:H") ändere, wird der richtige Wert gefunden.
Die Fehlermeldung ist dann logischerweise Runtime-Error 91
Ich danke vielmals für jedes Reindenken und jede Idee
Beste Grüße
Anzeige