Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
488to492
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
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Error zurücksetzen

Error zurücksetzen
25.09.2004 20:57:52
Alex
Hallo Forum
Habe folgendes Problem
On Error GoTo sprung
Cells.Find(What:=ger, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
zeile = ActiveCell.Row
total(typ) = Cells(zeile, totalspalte).Value
contract(typ) = Cells(zeile, contractspalte).Value
warranty(typ) = Cells(zeile, warrantyspalte).Value

sprung:
Err.Clear
Next
Leider wird der Error nicht zurückgesetzt und beim nächsten nicht gefundenen Objekt stoppt das Programm.
Wie kann ich die Fehlermeldung auf 0 zurücksetzen
Danke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Error zurücksetzen
RAnton
hallo alex
hast dus mal so probiert?
On Error GoTo 0
Deaktiviert alle aktivierten Fehlerbehandlungsroutinen in der aktuellen Prozedur.
Gruß
Anton
AW: Error zurücksetzen
Ramses
Hallo
die einfachste Hau-Ruck-Methode ist anstelle der Sprungmarke "On Error Resume Next" zu verwenden, ... denn was anderes machst du mit deiner Variante ja auch nicht
On Error Resume next
Cells.Find(What:=ger, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
zeile = ActiveCell.Row
total(typ) = Cells(zeile, totalspalte).Value
contract(typ) = Cells(zeile, contractspalte).Value
warranty(typ) = Cells(zeile, warrantyspalte).Value
Next
Gruss Rainer

Hallo Alex,
auf Ramses seinen Vorschlag aufbauend, damit die Variablen nicht gefüllt werden.

Sub test()
Dim Total() As String
Dim Contract() As String
Dim Warranty() As String
On Error Resume Next
For I = 1 To 10
Cells.Find(What:=ger, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If Err = 0 Then
zeile = ActiveCell.Row
Total(typ) = Cells(zeile, totalspalte).Value
Contract(typ) = Cells(zeile, contractspalte).Value
Warranty(typ) = Cells(zeile, warrantyspalte).Value
Else
Err = 0
End If
Next
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro SP2 und Excel Version 2003 SP1.



und vorne beißt,
sauf Klosterfraumelissengeist
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige