Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Objektfehler bei Suche im Makro

Objektfehler bei Suche im Makro
25.04.2005 14:22:34
Thorsten
Hallo Forumsteilnehmer,
ich habe da ein Problem,
mein Makro soll prüfen, ob in einer Spalte (z.B. "W") eines Tabellenblattes ein bestimmter Wert (Variable) vorhanden ist, den ich vorher über eine Inputbox festgelegt habe. Wenn der Wert vorhanden ist, dann klappt auch alles super, aber wenn der Wert nicht vorhanden ist, dann bricht das Makro immer ab und wechselt in den Debug-Modus.
Kann mir jemand vielleicht dazu einen Tip geben, wie ich das Makro weiterführen kann, auch wenn der gesuchte Wert nicht gefunden werden konnte?
Vorab schon mal vielen Dank
mfg
Thorsten

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Objektfehler bei Suche im Makro
25.04.2005 14:25:39
Hajo_Zi
Hallo Thorsten,
in Zeile 8 ist der Fehler vermute ich mal. Solltest Du Deinen Code posten könnte man es noch genauer beschreiben.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!" Dies gilt auch für Bert.
Anzeige
AW: Objektfehler bei Suche im Makro
25.04.2005 16:01:16
Thorsten
Vielleicht wirds dadurch deutlicher.
Ich möchte prüfen, ob "Such1" vorhanden ist, und wenn nicht dann soll das Makro mit "ende:" weitermachen
Such1 = InputBox("Was willste suchen?")
Columns("W:W").Select
Selection.Find(What:=Such1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If Such1 = False Then GoTo ende:
GoTo weiter:

weiter:
' Hier kommen weitere Befehle rein
ende:
'Nun ist schluß
AW: Objektfehler bei Suche im Makro
25.04.2005 16:14:09
Hajo_Zi
HAllo Thorsten,
da meine Hilfe nicht geht habe ich mal keine optimierung gemacht.

Option Explicit
Sub Test()
'   erstellt von Hajo.Ziplies@web.de 25.04.05
Dim Found As Range
Dim sSearch As String
sSearch = InputBox("Was willste suchen?", , "Suche")
Set Found = Columns("W:W").Find(sSearch, Range("W1"), xlFormulas, xlPart, xlByRows, xlNext, False, False)
If Found Is Nothing Then Exit Sub  'falls nicht gefunden wird sub verlassen
MsgBox Found.Address
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

"Wer Rechtschreibfehler findet, darf sie behalten!" Dies gilt auch für Bert.
Anzeige
Danksagung
26.04.2005 09:45:37
Thorsten
Danke für Deine Hilfe,
so klappt das super, habe hier mal wieder etwas ´dazu gelernt

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige