Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1852to1856
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
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Fehler, dann....

Wenn Fehler, dann....
20.10.2021 07:52:13
Martin
Guuuuuten Morgen =)
ich habe eine simple Funktion.
Jetzt würde ich gerne, dass bei einem Fehler statt dem Debugger eine andere Operation (z.B. MsgBox oder Eintrag in die Zelle) ausgeführt wird, sonst wie gehbat.
Dankeschön schonmal :)
p.s. die Kommentare sind für mich, damit ich es später besser nachvollziehen kann ;)
Dim Zeit1, Zeit2 As Date
For i = 33 To 36
Zeit1 = Cells(i, 4).Value
Zeit2 = Cells(i, 5).Value
'DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
MsgBox DateDiff("n", Zeit1, Zeit2) 'n=Minuten, h=Stunden,s=Sekunden, d=Tage
Next i

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

Betreff
Datum
Anwender
Anzeige
AW: Wenn Fehler, dann....
20.10.2021 08:00:43
Oberschlumpf
Hi Martin,
versuch es so...

Dim Zeit1, Zeit2 As Date
On Error GoTo Fehler
For i = 33 To 36
Zeit1 = Cells(i, 4).Value
Zeit2 = Cells(i, 5).Value
'DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
MsgBox DateDiff("n", Zeit1, Zeit2) 'n=Minuten, h=Stunden,s=Sekunden, d=Tage
Next i
Fehler:
If Err.Number > 0 Then
MsgBox "Es ist ein Fehler aufgetreten"
End If
...Hilfts?
Ciao
Thorsten
btw...Zeit1 musst du auch als Date deklarieren
AW: Wenn Fehler, dann....
20.10.2021 09:54:11
Martin
Hallo Thorsten,
ja vielen Dank!
Habe es noch leicht angepasst. Den On Error in die Forschleife gezogen, da es die Errornummer sonst nicht zurücksetzt?!
Ebenso den Sprungmarker Fehler am Ende der Forschleife.
Ist das On Error immer aktiv sobald es einmal durchschritten wurde?
Weil der Fehler passiert ja beim Füllen von Zeit1 und 2.
Dankeschön.
Anzeige
AW: Wenn Fehler, dann....
20.10.2021 10:17:29
Oberschlumpf
Hi Martin,
versuch es noch mal mit meinem Code (etwas von mir verändert):

Dim Zeit1, Zeit2 As Date
On Error GoTo Fehler
For i = 33 To 36
Zeit1 = Cells(i, 4).Value
Zeit2 = Cells(i, 5).Value
'DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
MsgBox DateDiff("n", Zeit1, Zeit2) 'n=Minuten, h=Stunden,s=Sekunden, d=Tage
Next i
Fehler:
If Err.Number > 0 Then
MsgBox "Es ist ein Fehler aufgetreten"
End If
On Error GoTo 0 'das letzte Zeichen ist eine Null, es ist nicht ein O wie Otto!
Ja, wenn On Error Goto irgdwas, dann ist On Error immer EINgeschaltet
Daher hilft es nix, wenn du On Error... innerhalb von For... einfügst.
Aber das konntest du noch nicht wissen.
Mein Fehler war, dass ich vergessen hatte, unterhalb von Fehler: On Error... mit On Error GoTo 0 wieder AUSzuschalten
Jetzt sollte alles auch mit meinem Code funktionieren.
Hilfts?
Ciao
Thorsten
Anzeige
AW: Wenn Fehler, dann....
20.10.2021 10:44:17
Martin
Seltsamerweise reicht es aus On Error GoTo Fehler in die Forschleife zu packen, um nicht if Err.Number > 0 bei weiteren Durchgängen auszulösen.
Alternativ habe ich in der Ifschleife noch Err.Number = 0 gesetzt.
Blöd so oder gut?
Bin irgendwie etwas skeptisch noch mehr On Errors reinzupacken, da ich jeden Durchgang der Forschleife erneut auf den Fehler schauen möchte.

Dim Zeit1, Zeit2 As Date
For i = 33 To 36
On Error GoTo Fehler
Zeit1 = Cells(i, 4).Value
Zeit2 = Cells(i, 5).Value
'DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
MsgBox DateDiff("n", Zeit1, Zeit2) 'n=Minuten, h=Stunden,s=Sekunden, d=Tage
Fehler:
If Err.Number > 0 Then
MsgBox "Es ist ein Fehler aufgetreten bei " & i
Err.Number = 0
End If
Next i

Anzeige
AW: Wenn Fehler, dann....
20.10.2021 11:23:29
Oberschlumpf
hi, melde mich heut abend wieder - muss jetzt zur Arbeit
AW: Wenn Fehler, dann....
20.10.2021 11:25:39
Oberschlumpf
du könntest mir per upload eine kleine Bsp-datei mit deinem code zeigen. dann könnte ich dir den code einbauen...
einige bsp-daten sollten auch enthalten sein - halt alles so in der datei von dir, dass diese auch zu deiner frage passt
AW: Wenn Fehler, dann....
20.10.2021 14:03:41
Martin
Hi Thorsten,
klappt ja beides bzw. alles drei ;)
Vielen lieben Dank jedenfalls für dein Angebot, brauche ich vielleicht eher mal wenn ich echt nicht mehr weiter weiß.
Ich war vor allem neugierig, ob die beiden Lösungen schlecht programmiert sind, a) nicht dass es mir später auf die Füße fällt b) ich was lernen kann.
Dir noch einen guten Tag auf Arbeit und nochmal Danke!
Grüße Martin
Anzeige
AW: Wenn Fehler, dann....
20.10.2021 17:39:27
Oberschlumpf
Hi Martin
ja, deine Version ist "schlecht" programmiert.
Es reicht völlig, den Befehl On Error Goto... nur 1x auszuführen.
So lange das ganze Makro nicht beendet ist. und so lange mit On Error GoTo 0 die Fehlerverfolgung nicht wieder de-aktiviert wird, ist sie aktiv.
Deswg ist es also überflüssig, den On Error...-Befehl in deine For/Next-Schleife einzubinden.
Ja, ich weiß - das - funktioniert auch...aber trotzdem ist es unsauber programmiert.
Ciao
Thorsten

310 Forumthreads zu ähnlichen Themen

ZÄHLENWENN mit 2 Bedingungen
oblivion

Hallo, hab mal eine Frage zur Funktion ZÄHLENWENN.
Die Funktion lautet ja allgemein so =ZÄHLENWENN(A1:A15;"=19").
Ich würde aber gerne diese Funktion so erweitern, dass er mir alle Werte zählt, die kleiner als 19 sind, aber größer als 0.
Ich bekomme es nicht hin. Gibt es da eine Lö...
04.09.2008 18:07:33
Thread-ID: 1007473
3 Beiträge
Anzeige
Wenn/Dann Formel
maxx_1985

Hallo liebe Excel-Experten,
haette evtl. jemand eine Idee fuer das folgende Problem.
Wenn in einer Zelle #NA kommt, soll Excel ausgeben: "Manual Input Needed"
=if(A1="#NA",Manual Input Needed",A1) --- diese Formel funktioniert leider nicht.
Ganz lieben Dank Euch im Voraus!
...
25.09.2008 15:44:23
Thread-ID: 1012359
7 Beiträge
verschachtelte Wenn-Funktion?
Karin

Hallo zusammen,
in einer Spalte stehen Nachnamen. Nun soll in einer weiteren Spalte die E-Mail-Adresse für diesen Namen angezeigt werden. Mit einer mit "&" verschachtelten Wennfunktion komme ich nicht weiter. Es kommt die Meldung "Formel zu lang". Den gleichen Effekt habe ich mit der Fu...
18.10.2008 17:41:43
Thread-ID: 1017371
7 Beiträge
Anzeige
Wenn Dann - Formel
thorsten

Hallo,
ich habe ein datei hochgeladen als Beispiel und dort meine Frage, bzw. Problem genau geschildert.
https://www.herber.de/bbs/user/56190.xls
Ich denke, oder hoffe, dass das kein Problem ist - aber für mich einfach unlösbar - da Laie.
Vielen Dank für die Hilfe
Viele Grü...
22.10.2008 12:12:00
Thread-ID: 1018302
8 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
wenn/dann/sonst???
m-andi

Hallo zusammen,
in VBA bin ich noch ein Depp,
ich bräuchte bitte eure Hilfe.... das Problem ist folgendes:
Ich habe in einem Feld (J24) entweder tags, nachts, immer oder nie stehen,
Bei Tags soll es in die Felder G29 und G45:G52 ein "ja" schreiben, in die Felder G30:G44 ein "ne...
15.11.2008 13:30:42
Thread-ID: 1024753
4 Beiträge
Wenn > Dann Formel
William

Hallo Experten
Brauche für diese Tabelle bessere Lösung.
bis jetzt habe ich es nur geschafft wenn ich aller Werte "D" zusammen sortiert habe.
Währe schön wenn das ohne sortieren klappen könnte.
in etwa so:
wenn in Spalte B wert "D" vorkommt, dann in spalten C;Z die Summe erm...
23.11.2008 13:41:15
Thread-ID: 1027076
4 Beiträge
Wenn-Dann-Funktion als Makro
Sulley

Hallo zusammen,
ich hänge an einem Makro fest.
Matthias L und fcs (Vielen dank noch mal an dieser Stelle) haben mir mal jeder ein super makro gebaut, mit welchem ich Daten von einer Tabelle ans Ende einer anderen Tabelle schicken kann. Hat auch super geklappt.
Hier nochmal das Makro...
24.11.2008 16:47:36
Thread-ID: 1027372
11 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
15
6
6
1
7
9
3
3
10
4
2
3
2
10
8
21
3
1
1
4
5
2
2
11