Runtime Error 9 in leichtem Prog
11.02.2009 03:42:00
San
ich hoffe ihr habt gut geschlafen.
Ich habe nachfolgendes Programm geschrieben.
Ich brauche es um festzustellen, was in einem bestimmten Tabellenblatt die nächste freie Zeile ist.
piofpa und numb wird laut MsgBox korrekt übermittelt.
Den Code habe ich von einem anderen Workbook in ein Neues kopiert, seitdem funktioniert er nicht
mehr und liefert mir die Fehlermeldung ""Runtime error 9 subscript out of range"".
Jetzt gibt es dazu doch einige Beiträge im www, ich konnte aber keine Lösung finden.
Der Fehler liegt in der Zeile If Workbooks...
Cash.xls existiert genau in dieser Form. Das übermittelte Worksheet existiert ebenfalls.
cel nimmt den Wert 5 an.
Kann mir einer bitte helfen, auch wenn es ein leichtes Prog ist.
Function free(piofpa As String, numb As Long)
Dim cel As Long
'MsgBox piofpa & " " & numb
For cel = numb To 1000
If Workbooks("Cash.xls").Worksheets(piofpa).Cells(cel, 1).Value = "" Then
free = cel
Exit For
End If
Next
End Function
Schönen Tag,
Sebastian
Anzeige