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

Fehler Suchfunktion unterdrücken

Forumthread: Fehler Suchfunktion unterdrücken

Fehler Suchfunktion unterdrücken
25.01.2005 12: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
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18