Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Fehler #Wert Div/0 VBa abfragen

Fehler #Wert Div/0 VBa abfragen
SteffenS
Hallo,
wie kann ich #Wert und Div/0 per VBA abfragen.
Ich möchte gern diese Zellen in meiner Mappe umgehen.
Mit If ActiveCell.Value = "#Wert" geht es leider nicht.
Danke Euch im Voraus.
MFG
Steffen Schmerler
Anzeige

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

Betreff
Benutzer
Anzeige
If ActiveCell.Text = "#WERT!" Then... oT
24.08.2009 22:02:14
{Boris}
Grüße Boris
Danke Dir
24.08.2009 23:26:48
SteffenS
das ging so.
MFG
Steffen
AW: Fehler #Wert Div/0 VBa abfragen
24.08.2009 22:20:24
Josef
Hallo Steffen,
vielleicht reicht ja

If IsError(Zelle) Then

Gruß Sepp

Anzeige
...falls nicht, kann auch direkt nach dem...
24.08.2009 22:37:03
Luc:-?
...jeweiligen F-Wert gefragt wdn, Steffen...
If ActiveCell = CVErr(xlErrValue) bzw = CVErr(xlErrDiv0) Then...
Gruß Luc :-?
PS: Es gibt in XL massenhaft sog Enumerationen, viel mehr als bspw in Word; so auch für xlFehlerwerte. Wenn man eine Variable als XlCVError deklariert, wdn diese bei jeder Zuweisung vom VBE automatisch angeboten.
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Fehler #Wert und Div/0 in Excel VBA abfragen


Schritt-für-Schritt-Anleitung

Um in Excel #Wert und Div/0 Fehler per VBA abzufangen, kannst du die folgenden Schritte befolgen:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu:

    • Klicke im Projekt-Explorer mit der rechten Maustaste auf "VBAProject (dein Dokument)" und wähle Einfügen > Modul.
  3. Gib den VBA-Code ein:

    • Verwende den folgenden Code, um Fehler abzufangen:
    Sub FehlerAbfangen()
       Dim Zelle As Range
       Set Zelle = ActiveCell
    
       If IsError(Zelle.Value) Then
           If Zelle.Value = CVErr(xlErrValue) Then
               MsgBox "Es gibt einen #Wert! Fehler."
           ElseIf Zelle.Value = CVErr(xlErrDiv0) Then
               MsgBox "Es gibt einen Div/0 Fehler."
           End If
       End If
    End Sub
  4. Führe das Makro aus:

    • Stelle sicher, dass die Zelle, die du überprüfen möchtest, aktiv ist und drücke F5, um das Makro auszuführen.

Häufige Fehler und Lösungen

  • Fehler: "Typen unverträglich"
    Lösung: Stelle sicher, dass du die richtigen Datentypen verwendest. Überprüfe, ob die Zelle tatsächlich einen Fehler enthält.

  • Fehler: Das Makro wird nicht ausgeführt
    Lösung: Vergewissere dich, dass das Makro in der richtigen Arbeitsmappe gespeichert ist und dass die Sicherheitsstufe für Makros es erlaubt, sie auszuführen.


Alternative Methoden

Eine weitere Möglichkeit, Fehler in Excel zu behandeln, besteht darin, die Funktion IFERROR oder IF(ISERROR(...)) direkt in Excel-Formeln zu verwenden. Zum Beispiel:

=IFERROR(A1/B1, "Div/0 Fehler")

Diese Methode kann helfen, #div/0 Fehler direkt in deinen Excel-Formeln abzufangen, ohne VBA verwenden zu müssen.


Praktische Beispiele

  1. Fehler #Wert abfangen und anzeigen:

    • Wenn du in einer Zelle einen Wert erwartest, der jedoch fehlerhaft ist, kannst du den folgenden VBA-Code verwenden, um den Fehler abzufangen.
    If IsError(ActiveCell.Value) Then
       MsgBox "Fehler gefunden: " & ActiveCell.Text
    End If
  2. Div/0 Fehler abfangen:

    • Verwende den folgenden Code, um einen Div/0 Fehler abzufangen und eine alternative Nachricht anzuzeigen.
    If ActiveCell.Value = CVErr(xlErrDiv0) Then
       MsgBox "Div/0 Fehler aufgetreten!"
    End If

Tipps für Profis

  • Verwende Enumerationen wie xlErrValue und xlErrDiv0, um deinen Code lesbarer und wartungsfreundlicher zu gestalten.
  • Teste immer deinen Code mit verschiedenen Zellwerten, um sicherzustellen, dass alle Fehler korrekt abgefangen werden.
  • Füge Fehlerbehandlungsroutinen in deine VBA-Projekte ein, um potenzielle Fehler systematisch zu behandeln.

FAQ: Häufige Fragen

1. Wie kann ich andere Fehler abfangen?
Du kannst weitere Fehler mit CVErr abfangen, indem du die entsprechenden Fehlerwerte wie xlErrRef oder xlErrNum verwendest.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der bereitgestellte VBA-Code funktioniert in den meisten Excel-Versionen, die VBA unterstützen, einschließlich Excel 2010 und neuer.

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