Live-Forum - Die aktuellen Beiträge
Datum
Titel
05.10.2025 23:18:01
Summewenns aber mit VBA
05.10.2025 11:43:19
Bed. Format. Spezialfall, Möglich, die Registerfarbe nutzen?
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
04.10.2025 17:44:54
Power Query - Filtern einer Spalte mittels einer Liste
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchfunktion erzeugt Laufzeitfehler

Forumthread: Suchfunktion erzeugt Laufzeitfehler

Suchfunktion erzeugt Laufzeitfehler
07.05.2004 22:43:27
RonaldoHH
Hallo,
habe wirklich sehr wenig Erfahrung mit VBA und benötige dringend Eure Hilfe !
Habe folgende Suchfunktion, die bei negativen Suchergebnissen immer einen Laufzeitfehler hervorruft. Was muss ich tun, damit das Programm trotzdem weiterläuft, auch wenn nichts gefunden wird ? Würde mich freuen, wenn Ihr mir helfen könntet.
Selection.Find(What:="Beispiel", After:=ActiveCell, LookIn:=xlformulas, LookAt_
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchfunktion erzeugt Laufzeitfehler
Boris
Hi Ronaldo,
Option Explicit

Sub such_mich()
Dim C As Range
Set C = Selection.Find(What:="Beispiel", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not C Is Nothing Then
C.Activate
Else
MsgBox "Nix gefunden...", , "Hinweis..."
End If
End Sub

Grüße Boris
Anzeige
AW: Suchfunktion erzeugt Laufzeitfehler
07.05.2004 23:02:20
RonaldoHH
Hallo Boris,
vielen vielen Dank für Deine schnelle Antwort ! ! ! Hast mir super weitergeholfen. Jetzt funktioniert alles ! !
Vielen Dank nochmal !
Grüße aus Hamburg
AW: Suchfunktion erzeugt Laufzeitfehler
07.05.2004 22:51:30
Josef
Hallo Ronaldo!
Versuch's mal so.
Dim rng As Range
Set rng = Selection.Find(What:="Beispiel", After:=ActiveCell, LookIn:=xlformulas, LookAt_
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not rng Is Nothing Then rng.Activate
Wobei das Activate wahrscheinlich nicht nötig ist!
Aber ich weis ja nicht was du danach tun willst.
Gruß Sepp
Anzeige
Oups.... zu spät! o.T.
07.05.2004 22:52:16
Josef
Gruß Sepp
53 Sekunden...! Das ist voll in der Toleranz:-) oT
Boris
Grüße Boris
AW: Suchfunktion erzeugt Laufzeitfehler
07.05.2004 23:04:20
RonaldoHH
Hallo Sepp !
Danke für Deine Hilfe, doch Boris war ein wenig schneller ! :-)
Bis dann
Ronaldo
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige