Wenn ich versuche, das Formular, welches auf folgendes Script zugreift auszuführen, bekomme ich die Fehlermeldung "Else ohne If"
Code:
Private Sub CommandButton1_Click()
FrameResults.TextBoxInvid.Text = TextBoxSearch.Text
With Workbooks("Inventarliste2009.xls").Worksheets("KLD86").Range("b2:b1000")
Set res = .Find(TextBoxSearch.Text)
If res Is Nothing Then
With Workbooks("Inventarliste2009.xls").Worksheets("KLD88").Range("b2:b1000")
Set res = .Find(TextBoxSearch.Text)
ElseIf res Is Nothing Then
With Workbooks("Inventarliste2009.xls").Worksheets("KLD96").Range("b2:b1000")
Set res = .Find(TextBoxSearch.Text)
ElseIf res Is Nothing Then
With Workbooks("Inventarliste2009.xls").Worksheets("KLDna").Range("e2:e500")
Set res = .Find(TextBoxSearch.Text)
End If
FrameResults.TextBoxDesc.Text = res.Row
End With
End Sub
Ich habe bereits nach diese Fehlermeldung im Netz gesucht, jedoch leider ohne sonderlichen Erfolg, da die Lösung des Problems meist darin lag, nach dem Then einen Zeilenumbruch einzufügen, was jedoch bei mir von Anfang an der Fall war.
Würde mich über eine schnelle Antwort dazu sehr freuen (bin in ca 1h in der Mittagspause) (-;
Registrieren
Login
