Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
736to740
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
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

#DIV/0! mit Text ersetzen

#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
Anzeige
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
Anzeige
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

56 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige