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

Forumthread: VBA: Fehlermeldung abfangen

VBA: Fehlermeldung abfangen
12.09.2022 08:57:20
Erwin
Guten Morgen,
mit nachfolgendem Corde entferne ich derzeit Zeilen, die einen bestimmten Namen enthalten:

Sub OTTO_entfernen()
Range("A1").Select
Cells.Find(What:="OTTO", After:=ActiveCell, LookIn:=xlFormulas2, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Range("A1:F1").Select
Selection.Delete Shift:=xlUp
ActiveWindow.SmallScroll Down:=-200
End Sub
Wenn aber OTTO nicht vorhanden ist, kommt eine Fehlermeldung.
Wie kann ich das umgehen bzw. eine MsgBox bekommen?
Danke schon mal - Erwin
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Fehlermeldung abfangen
12.09.2022 09:09:09
Pierre
Hallo Erwin,
auch, wenn es nicht allzu gern gesehen ist, in deinem Fall könnte es aber vielliecht trotzdem helfen:
Am Anfang des Codes schreibe mal "On Error Resume Next".
Gruß Pierre
AW: VBA: Fehlermeldung abfangen
12.09.2022 09:10:24
{Boris}
Hi,
für Methoden, die ein Objekt zurückgeben (sollen), muss man erst einmal prüfen, ob das Objekt überhaupt existiert. Das macht man, indem man eine Objektvariable ins Spiel bringt, die man dann auf Nothing bzw. Not Objektvariable Is Nothing prüft:

Sub weg_mit_OTTO()
Dim C As Range
Set C = Cells.Find(What:="OTTO", After:=Range("A1"), LookIn:=xlFormulas2, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If Not C Is Nothing Then
Range(Cells(C.Row, 1), Cells(C.Row, 6)).Delete shift:=xlUp
Else
MsgBox "Keinen OTTO gefunden.", vbInformation, "Hinweis..."
End If
End Sub
VG, Boris
Anzeige
AW: VBA: Fehlermeldung abfangen
12.09.2022 09:18:19
Erwin
Guten Morgen,
@ Pierre: Leider funktioniert deine Lösung nicht, weil der Code dann automatisch den nächsten Eintrag löscht, auch wenn da nicht OTTO steht.
@ {Boris}: Super das klappt und auch danke für die Erklärung.
Euch noch einen schönen Tag - Erwin
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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