Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
428to432
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
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abfrage auf iserror (IstFehler)

Abfrage auf iserror (IstFehler)
21.05.2004 13:34:31
Mario
Hallo Leute,
wollte mal fragen wie ich vba die Abfrage auf iserror formuliere, ich möchte das er überall "Test" reinschreibt wo dieser Fehler "#WERT!' steht, ich weiß schpnmal soviel das ich das am besten in einer Schleife realisiere...
kann es ja mal seber versuchen... glaube aber nich das es stimmt... also:
Dim a as Single
a = "#WERT!"
If IsError(a) = True Then
a = "Test"
End if
? ich glaube ihr könnt mir da etwas besser helfen *hehe*
MfG Mario

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage auf iserror (IstFehler)
Kurt
hi Mario,
klappt das ?

Sub Ersetzen()
Dim Bereich As Range
Dim Zelle
Set Bereich = Range(ActiveSheet.UsedRange.Address)
For Each Zelle In Bereich
If Zelle.Text = "#WERT!" Then Range(Zelle.Address) = "Test"
Next
End Sub

und Tschüss Kurt
AW: Abfrage auf iserror (IstFehler)
Ramses
Hallo
Deine Feedback Rate ist genauso schlecht wie dein Code-Ansatz ;-)

Sub Find_Wert_Error()
Dim myC As Range
For Each myC In ActiveSheet.UsedRange
If myC.Errors.Item(xlEvaluateToError).Value = True Then
myC.Value = "Test"
End If
Next
End Sub

Gruss Rainer
Anzeige
AW: Abfrage auf iserror (IstFehler)
21.05.2004 13:52:34
Mario
Hy,
najo sag ich doch *hehe* , ich danke dir :)
bis dann
Mario
Merci :-) Geschlossen o.T.
Ramses
...
Na ja - unter xl97 funktioniert der Code schon mal
Boris
Hi Rainer,
...nicht;-)
Grüße Boris
Schön ....
Ramses
Hallo Boris
...dann hat er das aber auch gar nicht probiert :-))
Was meckert EXCEL denn ?
Hat 97 die Errors Variante überhaupt?
Gruss Rainer
Nein - genau das ist des Pudels Kern...
Boris
Hi Rainer,
..die Errors-Variante gibbet nicht...
Aber vielleicht hat er sich ja nur in der Excelversion vertan;-))
Grüße Boris
Schade, ... also ein Grund zum updaten :-)) o.T.
Ramses
...

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige