Kein Wert in Range-Objekt
29.01.2005 13:28:00
Johannes
ich habe eine Funktion, die mir in einer bestimmten Spalte nach einem Begriff sucht und mir die betreffende Zelle als Range-Objekt ausgibt.
(siehe Code unten)
Welches Ergebnis liefert die Funktion aber wenn der begriff nicht gefunden wurde.
Kann ich dieses Ergebnis dann auch in eine Funktion einsetzen um eine demenstprechende Fehlermeldung anzeigen zu können, bzw notwendige Schritte für den Vortlauf des Programms einleiten.
Wie zb If FindeInSpalte = Nothing Then ...
Würd mich über ne rasche Antwort freuen.
Danke.
Johannes
Function FindeInSpalte(Suchb As String, WS As Worksheet, Optional Spalte As Integer = 1, Optional AbZeile As Integer = 1, Optional BisZeile As Integer = 0) As Range
Dim Zelle As Range
If BisZeile = 0 Then BisZeile = WS.UsedRange.Rows.Count
For Each Zelle In WS.Range(WS.Cells(AbZeile, Spalte), WS.Cells(BisZeile, Spalte))
If Zelle.Value = Suchb Then Set FindeInSpalte = Zelle: Exit Function
Next Zelle
End Function