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
692to696
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
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

On Error GoTo funktioniert auch ohne Fehler

On Error GoTo funktioniert auch ohne Fehler
06.11.2005 04:16:02
M.
Hallo,
Hab wieder mal ein kleines Problem.
Der On Error GoTo Befehl funktioniert auch ohne Fehler.
Z.B. bei dem Befehl:
Range("a7:c30").Select
On Error GoTo ende
Selection.Find(What:="Meier", SearchFormat:=False).Activate
ende:
MsgBox "nicht vorhanden"
wird Meier zwar gefunden, aber die MsgBox wird trotzdem aufgerufen.
Kann mir jemand weiterhelfen?
Besten Dank!
mfg
Karsten

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: On Error GoTo funktioniert auch ohne Fehler
06.11.2005 04:56:54
chris
Das ist deshalb so weil du durch den goto die textstelle direkt aufrufen würdest und die davorigen codezeilen überspringst.
Ist der text vorhanden wird der code nach dem ende: ganz normal ausgeführt.
Wozu on error machs doch so.

Sub neu()
Dim a As Range
Range("a7:c30").Select
Set cb = Selection.Find(What:="test", SearchFormat:=False)
If cb Is Nothing Then
MsgBox "nicht vorhanden"
Else
MsgBox "vorhanden"
End If
End Sub

P.s Rückmeldung wäre nett grüße Christian
AW: On Error GoTo funktioniert auch ohne Fehler
06.11.2005 08:52:50
M.
Hallo Christian
Wußte nicht dass, es sowas gibt. Klappt. Nochmal Danke.
Beste Grüße von Karsten
Anzeige
AW: On Error GoTo funktioniert auch ohne Fehler
06.11.2005 10:05:45
Sigi
Hallo Karsten,
es fehlte nur ein "Exit Sub", sonst wird die MsgBox selbstverständlich auch abgearbeitet.

Sub Makro()
Range("a7:c30").Select
On Error GoTo ende
Selection.Find(What:="Meier", SearchFormat:=False).Activate
Exit Sub
ende:
MsgBox "nicht vorhanden"
End Sub

Gruß
Sigi

174 Forumthreads zu ähnlichen Themen

On Error GoTo ErrorHandler
Heinz

Hallo Leute
Habe unteres Makro von " Timo " erhalten...besten Dank
Nun habe ich "On Error GoTo ErrorHandler" selbst eingebaut,aber es funkt. nicht so richtig, läuft wenn kein Fehler nicht weiter.
Könntet ihr mir bitte nochmals helfen ?
Danke Heinz
Option Explicit
Dim Gel...
23.12.2008 18:27:00
Thread-ID: 1035039
14 Beiträge
Anzeige
VBA Resume vier mal, dann Resume next
MBorn

Hallöle,
gibt es eigentlich sowas wie in der Überschrift beschrieben:
Resume 4 times: versuche das gleiche vier mal
Wenn es 4 x nicht klappt dann
Resume next: mach weiter
Ich hab noch nichts dazu gefunden, ihr vielleicht?
Danke,
Born
31.01.2009 16:52:00
Thread-ID: 1045686
6 Beiträge
On Error resume next
Dirk

Hallo zusammen,
habe Probleme mit dem Befehl on Error resume next. gilt dies nur für den nächsten Befehl, oder dann den rest der Prozedur? Kann ich die Fehlermeldungen wieder einschlten?
Mein Wissen langt nicht dafür :-)
03.02.2009 17:52:00
Thread-ID: 1046737
3 Beiträge
Anzeige
Excel4Makro - on error resume next
Michael

Hallo allerseits,
ich habe hier eine historisch gewachsenes sehr sehr umfangreiche Tabelle mit einer Mischung aus Excel4Makros und VBA.
Da liegt meine Problem. Ich suche den Befehl "on error resume next" also "fehler überspringen" für Excel4Makros. Kann mir da jemand helfen?
LG
...
16.12.2009 08:42:38
Thread-ID: 1124248
2 Beiträge
On Error Resume ohne Funktion an einem PC
Günter

Hallo Zusammen,
ich habe eine Fehler bei der Anwendung von "On Error Resume Next".
Hier die Funktion in der is es einsetze:
Public Function shape_Exists(Blatt As Object, shpName As String) As Boolean Dim Bild As Shape On Error Resume Next Set Bild = Blatt.Shapes(shpName) shape_Exi...
05.07.2010 15:01:05
Thread-ID: 1165466
8 Beiträge
OptionButtons per VBA: Automation Error
Sven

Hallo liebe Herber-Gemeinde,
ich hab grad das Problem, dass ich in einer langen Liste in einem Arbeitsblatt Optionbuttons _ per VBA hinzufügen möchte. Dazu benutze ich folgenden Code: With ActiveSheet For i = 2 To ende .OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, Displa...
20.07.2010 19:50:33
Thread-ID: 1167914
3 Beiträge
VBA: deutsche OK - englische Version: Error 13
Dominik

Folgeproblem:In einem Arbeitsblatt, erstellt in Excel 2000, kann in einer Zelle die Zeit ohne ":" eingegeben werden. Der ":" wird durch folgendes Makro ersetzt:Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row 20 Or Target.Column 9 Then Exit Sub
FormatTime (Target....
03.05.2002 12:58:38
Thread-ID: 118198
4 Beiträge
On Error Goto bleibt hängen
Jemp

Hallo Freunde
Ich habe eine Datei aus der ich jeden Montat verschiedene Zellen in eine separate Datei kopieren möchte und diese Datei wird dann gespeichert.
Weil mehrer Dateien auf diese Zieldatei zurückgreifen und die Datei ggfs schon erstellt oder offen ist muss das überprüft werden.<...
10.09.2010 10:03:54
Thread-ID: 1176789
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
13
3
5
2
5
1
7
2
3
3
7
1
4
8
6
3
4
6
5
1
2
4
2
2
2