Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
320to324
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
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verstehe "On Error" nicht

Verstehe "On Error" nicht
09.10.2003 08:41:14
Franz W.
Guten Morgen Fachleute,

ich habe in einer UF den Kalenderersatz von Hajo's Site (vielen Dank an Hajo dafür!). Damit wird aus drei Comboboxen ein Datum zusammengesetzt:

Dim AuszDat as Date
AuszDat = CDate(.cmbTagAlt & "." & .cmbMonatAlt & "." & .cmbJahrAlt)

Wird nun ein ungültiges Datum eingegeben (z.b. 31.02.2003) kommt der Debugger mit der MEldung: Typen unverträglich.

Um das abzufangen, habe ich eine On Error-Anweisung eingebaut:

With dlgKdCh
On Error GoTo errorhandler1
AuszDat = CDate(.cmbTagAlt & "." & .cmbMonatAlt & "." & .cmbJahrAlt)
Cells(rng.Row, 16) = AuszDat
On Error GoTo 0
GoTo weiter
End With
errorhandler1:
MsgBox "Ungültiges Datum ausgewählt!", vbCritical

Wenn nun ein jetzt ein ungültiges Datum eingegeben wird, kommt die Meldung "Ungültiges Datum ausgewählt!" und es geht wieder zurück zu UF. ABER NUR 1 MAL !!! Gibt der User noch ein Mal ein ungültiges Datum ein, GREIFT ON ERROR NICHT MEHR, sondern jetzt kommt der Debugger!!

Warum ist das so? Mache ich da was falsch? Kann man den Debugger irgendwie anders abfangen?

Für Eure Hilfe schon mal vielen Dank

Grüße
Franz

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verstehe "On Error" nicht
09.10.2003 08:45:59
Hajo_Zi
Hallo Franz

im Original kannst Du keinen 31.02.03 eingeben. Ich habe das jetzt Extra noch mal geprüft. Ich konnte mir eigentlich nicht vorstellen das ich so eine Datei hochlade.

Auf On Error sollte eigentlich im Programm verzichtet werden, da gibt es andere Mittel.


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
Warum sollte man auf On Error verzichten?
09.10.2003 08:48:03
Michael Scheffler
AW: Warum sollte man auf On Error verzichten?
09.10.2003 08:54:25
Hajo_Zi
Hallo Michael

ich finde es eine unsaubere Programmierung, wenn man in Programm auf einen Fehler laufen läst. Aber dies ist meine ganz persönliche Meinung.


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: Warum sollte man auf On Error verzichten?
09.10.2003 12:55:26
Michael Scheffler
Hallo Hajo,

klar ist es unsauber, wenn man vorher weiß, welche Fehler passieren, kann man das auch abfangen, z.B. Zahlen mit "IsNumeric".

Leider kennt man vorher nicht alle Fallstricke und kann für den Nutzer Servive betreiben - wie findest Du z.B. raus, ob eine bstimmte OLE-Anwendung installiert ist, da macht sich doch "On Error Resume" sehr gut und danach die Abfrage, ob ein Fehler auftrat oder nicht.

Und zudem gibt es Fehler, die keiner vorraussieht, wenn z.B. gewisse Daten fehlen. Aber Nepomuk hatte gestern die gleiche Ansicht, die er dann revidiert hat. Und da sage ich, ich schlage Euch für den Nobelpreis vor, Ihr seid die einzigen fehlefreien Programmierer auf der Welt:-) Falls Ihr nicht schon für Bill arbeitet, geht zu ihm, das würde die Computerwelt sehr bereichern.

Gruß

Micha
Anzeige
AW: Warum sollte man auf On Error verzichten?
09.10.2003 13:04:27
Hajo_Zi
Hallo Michael

das will ich nun nicht behaupten das ich Fehlerfrei programmiere. Aber in dem Beispiel von Franz das er von meiner Homepag geladen hat ging es auch ohne on Error. Nachdem er mir per mail geschrieben hat was er an der Datei geändert haben möchte und wo die Datei noch Fehler hat. Habe ich sie korrigiert und auch eine Lösung ohne On error gefunden.

Franz wußte ja genau wodurch der Fehler ausgelöst wurde (31.02.03) und bei so einer Aufgabenstellung ist doch die on Error Methode das falsche.

Natürlich gibt es Sachen wo man nicht drum kommt. Aber es sollte nicht die Verfahrensweise aufkommen ach da habe ich ein Fehler, also schreibe ich mal schnell on Error ohne mich darum zu kümmern warum der Fehler auftritt.


Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
Und jetzt perfekt!
09.10.2003 13:35:53
Franz W.
Hallo Michael

ich kann nur sagen, das von Hajo überarbeitete Tool ist perfekt. Ich habe jetzt mal alles was mir eingefallen ist, vorwärts und rückwärts ausprobiert und es funktioniert tatsächlich so, dass kein Fehler mehr übrig bleibt.

Das soll natürlich kein Beitrag zur generellen Diskussion über On Error sein, die hat schon trotzdem ihre Berechtigung. Und auch will ich Deinen Hilfstipp noch durchspielen. Weiß ja nie, wozu ich's mal brauchen kann ;-))

Grüße
Franz
AW: Verstehe "On Error" nicht
09.10.2003 08:49:36
Franz W.
Hallo Hajo,

oh, dann hab ich wohl durch meine Anpassungen da was unterschlagen, werd ich mir gleich noch mal anschauen.

Gibt es für mein On Error-Problem trotzdem eine Erklärung? Warum greift diese nur ein Mal und kein zweites Mal?

Grüße
Franz
Anzeige
AW: Verstehe "On Error" nicht
09.10.2003 08:52:33
Michael Scheffler
Hallo Franz,

ich kenne den Code nicht, aber vor jede Error-Marke gehört ein "Exit Sub", sonst wird der Code ja trotzdem durchlaufen

Gruß

Micha
AW: Verstehe "On Error" nicht
09.10.2003 09:09:42
Franz W.
Hallo Michael,

hier ein Teil aus meinem Code (ich hoffe ausreichen), der in einem normalen Modul steht:


Sub ...()
nochmal:
dlgKdCh.Show
If Result = False Then Exit Sub
sFind = Format(dlgKdCh.cmbMieterAlt.Value, "000")
If sFind = "" Then Exit Sub
Set rng = Columns(1).Find(what:=sFind, lookat:=xlWhole, LookIn:=xlValues)
Worksheets("Ablesungen").Unprotect
y = rng.Row
Worksheets("Ablesungen").Unprotect
With dlgKdCh
On Error GoTo errorhandler1
AuszDat = CDate(.cmbTagAlt & "." & .cmbMonatAlt & "." & .cmbJahrAlt)
Cells(rng.Row, 16) = AuszDat
GoTo weiter
End With
errorhandler1:
On Error GoTo 0
MsgBox "Ungültiges Datum ausgewählt!", vbCritical
dlgKdCh.MultiPage1.Value = 0   ' Wählt das erste Blatt aus
GoTo nochmal
End Sub


Aber auch so geschrieben...

On Error GoTo errorhandler1
AuszDat = CDate(.cmbTagAlt & "." & .cmbMonatAlt & "." & .cmbJahrAlt)
On Error GoTo 0

... ändert nichts.

Vielleicht kannst Du damit was anfangen

Grüße
Franz
Anzeige
AW: Verstehe "On Error" nicht
09.10.2003 09:49:17
Michael Scheffler
Hallo Franz,

das hier ist schlicht gesagt Sch...:

End With
errorhandler1:
On Error GoTo 0
MsgBox "Ungültiges Datum ausgewählt!", vbCritical
dlgKdCh.MultiPage1.Value = 0 ' Wählt das erste Blatt aus
GoTo nochmal
.
.
.
End Sub


EIN GOTO ist in Ordnung, aber nicht meherere. Das "On Error..."-Konstrukt ist für Deinen Fall nicht das Richtige, da hat Hajo recht. Bei Dir reicht ein If-Konstrukt etc.

Eine Fehlerbehandlung sieht so aus:


Sub FehlerTest()
On Error GoTo Fehler
Dim doubTest As Double
doubTest = 1 / 0
Exit Sub
Fehler:
MsgBox Err.Description & " " & Err.Number
Err.Clear
End Sub

Anzeige
AW: Verstehe "On Error" nicht
09.10.2003 10:40:42
Franz W.
Hallo Michael,

vielen Dank für Deine Mühe, ist ja interessant, was Du das rausfindest, werd mich mal reindenken. Und dann Deinen Ersatz testen. Muss nur jetzt mal weg. Ich gib Dir aber schon noch Bescheid.

Vielen Dank und Grüße
Franz
AW: Verstehe "On Error" nicht
09.10.2003 08:56:42
Hajo_Zi
Hallo Franz

soweit ich mich erinnere muß der Fehler wieder zurück gesetzt werden.
Err.Clear


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/
Anzeige
AW: Verstehe "On Error" nicht
09.10.2003 09:03:51
Franz W.
Hallo Hajo,

habe in meinem Code zurückgesetzt mit dem, das ich bisher gelernt habe: On Error Goto 0. Hab jetzt auch Err.Clear versucht, bringt aber auch nix. Und eigentlich sollte der Fehler ja auch nicht gelöscht werden, er besteht ja nach nochmaliger Eingabe eines falschen Datums nach wie vor. Nur sieht er's irgendwie nicht mehr so...?

Grüße
Franz
AW: Verstehe "On Error" nicht
09.10.2003 09:12:16
Hajo_Zi
Hallo Franz

warum verwendest Du nicht en Originalcode?? Dort gab es dieses Problem nicht.


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: Verstehe "On Error" nicht
09.10.2003 09:14:12
Franz W.
Hallo Hajo,

ja, da bin ich hiermit schon dran. Wollte nur grundsätzlich zum Lernen für die Zukunft auch gerne diese On Error-Geschichte durchschaut haben.

Grüße
Franz

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 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
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4