#DIV/0! mit Text ersetzen

Forumthread: #DIV/0! mit Text ersetzen

27.02.2006 12:45:37

Gabor

Hallo liebe Helfer,
ich möchte gern die Fehlermeldungen #DIV/0! in den Zellen A13 und C20 mit dem Text "Bitte Wert eingeben" ersetzen.
der Code:


Sub Fehlerkorrektur()
Range("A13").CurrentRegion.SpecialCells(Type:=xlCellTypeFormulas, Value:=xlErrors).Value = "Bitte Wert eingeben"
End Sub

funktioniert nur wenn wirklich ein Fehler vorliegt. Wenn aber ein richtiger Wert in der Zelle steht kommt es zu einem Laufzeitfehler.
Ich denke eine If Abfrage wäre hier besser.
Wie -- legt in Zelle A13 eine Fehlermeldung vor schreibe "Bitte Wert eingeben", wenn kein Fehler vorliegt lass alles wie es ist.
Danke für alle Antworten
Gábor

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: #DIV/0! mit Text ersetzen

27.02.2006 13:08:42

Franz
AW: #DIV/0! mit Text ersetzen

27.02.2006 13:32:32

Gabor
AW: VBA-Variante

27.02.2006 14:02:36

Franz
AW: VBA-Variante

28.02.2006 02:44:10

Gábor

AW: #DIV/0! mit Text ersetzen

27.02.2006 13:08:42

Franz

Hallo Gábor,
für die Lösung des Problems braucht es kein VBA.
Paase die Formeln in A13 und C20 nach folgendem Schema an:


=WENN(ISTFEHLER(A1/B1);"Bitte Wert in Zelle XYZ eingeben!";A1/B1)

Dann wird entweder das Rechenergebnis oder der Hinweis angezeigt.
Gruß
Franz

AW: #DIV/0! mit Text ersetzen

27.02.2006 13:32:32

Gabor

Danke für die schnelle Antwort - ich kann die Formel aber erst heute Abend testen. Vom Prinzip her wird das funktionieren. Ich muss das aber trotzdem irgendwie in ein Makro einbauen da die Zellen A13 und C20 auch per Makro mit einer SVERWEIS Funktion gefüllt werden, nur wenn kein Datensatz für zu Verfügung steht müssen per Hand die entsprechenden Eingaben eingefügt werden - welche danach in die Liste mit aufgenommen werden. Und beim nächsten Durchlauf mit zur Verfügung stehen.
Eine VBA Variante wäre mir lieber.
Gábor

AW: VBA-Variante

27.02.2006 14:02:36

Franz

Hallo Gábor


Sub Fehlerkorrektur()
If IsError(Range("A13").Value) Then
Range("A13").CurrentRegion.SpecialCells(Type:=xlCellTypeFormulas, Value:=xlErrors).Value = "Bitte Wert eingeben"
End If
End Sub

Gruß
Franz

AW: VBA-Variante

28.02.2006 02:44:10

Gábor

Vielen Dank Franz mit der Variante kann ich arbeiten.
Gábor

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die Fehlermeldungen #DIV/0! in Excel durch einen benutzerdefinierten Text wie "Bitte Wert eingeben" zu ersetzen, kannst du eine VBA-Lösung oder eine Formel verwenden. Hier zeigen wir beide Methoden.

VBA-Methode:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

Füge den folgenden Code ein:

Sub Fehlerkorrektur()
   If IsError(Range("A13").Value) Then
       Range("A13").CurrentRegion.SpecialCells(Type:=xlCellTypeFormulas, Value:=xlErrors).Value = "Bitte Wert eingeben"
   End If
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus, um die #DIV/0!-Fehlermeldungen zu ersetzen.

Formel-Methode:

Klicke auf die Zelle, in der du die Berechnung durchführen möchtest (z.B. A13).

Verwende die folgende Formel:

=WENN(ISTFEHLER(A1/B1);"Bitte Wert in Zelle XYZ eingeben!";A1/B1)

Diese Formel zeigt den Hinweis an, wenn ein Fehler auftritt, und das Ergebnis, wenn die Berechnung erfolgreich ist.

Häufige Fehler und Lösungen

Laufzeitfehler bei der VBA-Methode: Stelle sicher, dass die Zelle A13 tatsächlich einen Fehlerwert enthält. Das Skript prüft nur, ob ein Fehler vorhanden ist, bevor es die Ersetzung vornimmt.
Formel zeigt nicht den gewünschten Text an: Überprüfe, ob die Zellen A1 und B1 gültige Werte sind. Wenn einer der Werte nicht vorhanden ist, wird automatisch #DIV/0! angezeigt.

Alternative Methoden

Neben der Verwendung von VBA oder Formeln kannst du auch die Bedingte Formatierung nutzen, um #DIV/0! visuell zu ersetzen oder zu verdecken. Allerdings wird der Wert nicht tatsächlich ersetzt; es ist mehr eine visuelle Lösung.

Wähle die Zellen aus, die betroffen sind.
Gehe zu Start > Bedingte Formatierung > Neue Regel.
Wähle Nur Zellen formatieren, die enthalten.
Setze die Regel auf Zellwert gleich #DIV/0! und formatiere die Schriftfarbe auf die Hintergrundfarbe.

Praktische Beispiele

Hier sind Beispiele, wie du #DIV/0! in verschiedenen Szenarien ersetzen kannst:

Beispiel mit SVERWEIS:

Wenn du mit einem SVERWEIS arbeitest und #DIV/0! aufgrund fehlender Daten auftritt, kannst du den Text "Bitte Wert eingeben" als Platzhalter verwenden:
```
=WENN(ISTFEHLER(SVERWEIS(D1;A1:B10;2;FALSCH));"Bitte Wert eingeben";SVERWEIS(D1;A1:B10;2;FALSCH))
```
Einfaches Berechnungsbeispiel:

Um #DIV/0! bei einer Division zu vermeiden:
```
=WENN(B1=0;"Bitte Wert in B1 eingeben";A1/B1)
```

Tipps für Profis

Nutze die IFERROR-Funktion in Excel, um Fehler einfacher zu handhaben:
```
=IFERROR(A1/B1;"Bitte Wert eingeben")
```
Bei häufigen Fehlern wie #WERT! kannst du ähnliche Methoden anwenden, um diese durch 0 oder einen Text zu ersetzen.

FAQ: Häufige Fragen

1. Wie kann ich #DIV/0! durch 0 ersetzen? Verwende die Formel:

=WENN(ISTFEHLER(A1/B1);0;A1/B1)

2. Kann ich #DIV/0! auch durch einen leeren Text ersetzen? Ja, du kannst die Formel anpassen:

=WENN(ISTFEHLER(A1/B1);"";A1/B1)

3. Funktioniert das auch in älteren Excel-Versionen? Ja, die beschriebenen Methoden sind in den meisten Excel-Versionen ab 2007 verfügbar.

Beliebteste Forumthreads (12 Monate)