Re: Problem mit (.Find)
27.11.2002 15:39:59
Christian
Hallo PhillippDie Find-Methode liefert als Ergebnis einen Verweis auf das gefundene Range-Objekt (Zelle) zurück. Wenn die Suche erfolglos ist, wird der Variable ein 'Nothing' zugewiesen. Wichtig bei der Suche ist auch die Activate-Methode (oder .Select-Methode). Nur dann kann die .Find-Methode überhaupt ausgeführt werden.
Und so könnte der Code aussehen:
Sub SucheNullString()
Dim zelle As Range
With Worksheets("Tabelle1").Range("A1:A50")
.Activate
Set zelle = .Find("")
If zelle Is Nothing Then
MsgBox "keine leere Zelle gefunden", 48, "suchen"
Else
MsgBox "Die erste leere Zelle ist in '" & zelle.Address & "'", 48, "suchen"
End If
End With
End Sub
Selbstverständlich gäbe es auch noch andere Möglichkeiten. Z.B. die '.End(..)'-Methode o.ä.
Gruss Christian