Schleife
01.06.2005 14:26:08
Dani
Ich habe eine Art-Suchfunktion gebaut. Die Resultate werden in einer ListBox aufgeführt. Wenn ich nun ein Suchresultat anklicke wird das Resultat in eine Zelle gschrieben. Leider funktioniert das nicht. Die Fehlermeldung kommt an der Stelle mit "suchwert =". Meldung: Laufzeitfehler 9, Index ausserhalb des gültigen Bereichs. Ich habe die gleiche Suchfunktion in einer anderen Datei, dort geht alles wunderbar. An was kann das liegen?
Private Sub cmb_uebernehmen_Click()
Suchbegriff = CStr(hauptbuch.Ausgabe.Value)
For i = 7 To 3000
If CStr(Worksheets("HB-Plan").Cells(i, 13).Value) = Suchbegriff Then
suchwert = Sheets("HP-Plan").Cells(i, 2).Value
Worksheets("buchbel").Cells(5, 2) = suchwert
End If
Next i
Unload hauptbuch
End Sub
Besten Dank
Gruss Dani