Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehler Suchfunktion unterdrücken

Forumthread: Fehler Suchfunktion unterdrücken

Fehler Suchfunktion unterdrücken
25.01.2005 11:18:33
Daniel
Hallo,
ich möchte über einen Button einen Text aus einem Textfeld suchen. Wenn der Text nicht vorhanden ist, soll eine Fehlermeldung kommen und es kann der Text verbessert werden...
Meine Code bis jetzt:
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Activate
Danke schon einmal...
Daniel
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler Suchfunktion unterdrücken
bst
Hallo Daniel,
nimm sowas:
Dim found As Range
Set found = Cells.Find( ... ) ' OHNE den .Activate am Ende
If found Is Nothing Then
MsgBox "Nicht gefunden"
Else
MsgBox found.Address
End If
HTH, Bernd
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige