Abbruchbedingung
31.08.2006 11:53:18
Christian
haben einen kleinen Code der mir eine Projektnummer sucht, wie folgt:
Private Function getProjCellAddress(projNumber As String) As String
With Worksheets("Budget_Ist2006").Range("D16:D65000")
.Select
Set projCell = .Find(projNumber)
End With
getProjCellAddress = projCell.Address 'Rückgabe Adresse der Zelle als String
End Function
wenn nun keine Projektnummer gefunden wir bekomme ich folgenden Fehler:
Laufzeitfehler'91':
Objektvariable oder With-Blockvariable nicht festgelegt.
Ist es Projektnummer gibt die er nicht findet und nicht finden soll.
Nun mein Problem:
Wenn keine Projktnummer gefunden wird soll er die funktion abbrechen und mit der nächsten Schleife der Main weitermachen:
Public Sub main()
Dim projNumber As String
Dim i As Long
For i = 15 To 41
Worksheets("Priorisierung").Select
projNumber = Range("C" & CStr(i)).Value
If projNumber "" Then
bool = getProValues(projNumber, CStr(i))
End If
Next i
End Sub
hoffe mich versteht jemand was ich will : )
Danke schoneinmal
Gruß Christian