Excel-Absturz bei 2. Durchlauf/Kompilierten Code

Hallo!
Ich habe folgendes Problem und brauche dabei dringend Hilfe:
Ich habe eine Exceldatei mit 11 Formularen, die von einem Startformular aus gestartet werden. Eines der Formulare hat etwa 450 Labelboxen mit je einer Doppelclick-Proceduren. Wird auf eine der Labels ein doppelklick gemacht, wird folgender Code ausgeführt:


Private Sub Label424_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Call MAInfo(424) ' Variable = LabelNr
End Sub

Bis zum Einbau dieses Formulars hat die Datei fehlerfreii funktioniert.
Beim ersten Start der Formulare ist alles ok, wenn ich die Datei aber danach speichere ( die Datei wird ca. 400 KB größer) und das Formular noch einmal aufrufe, stürzt Excel ab:
"Excel hat einen Fehler verursacht und wird geschlossen. Ein Fehlerprotokoll wurde erstellt.."
Der gleiche Effekt tritt auf, wenn ich im VBA-Editor den Code kompiliere und danach speichere... das Programm stürzt ab.
wenn ich den Quellcode schrittweise durchlaufen lasse, ist alles ok, woran kann das liegen?
Wo finde ich dieses Fehlerprotokoll? ich nutzte Win2kPro und Excel 2000 SP3.
Ich habe auch schon versucht, pausen in die Codeausführung einzubauen, hat aber nicht geklappt, wie bekomme ich das hin?
Ich bin für jeden Rat dankbar...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Gerd,
die Prozedur steht in UserForm8 und dient als Übersicht, an welchem Datum wieviele Mitarbeiter Urlaub haben. Doppelklick auf diese Zahl gibt dann die Namen der Mitarbeiter aus.


Private Sub Label3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Call MAInfo(3) ' Urlaub am 3. des Monats
End Sub

'------------------
Function MAInfo(Index1 As Integer)
Dim Tag As Integer
Dim datum As Date
Dim MAListe
If Index1 >= 1 And Index1 Tag = Index1
Bereich = "1"
Abteilung = "A"
' Gekürzt; Es wird der Monat und Die Abteilung ermittelt
Else
TempMsg = MsgBox("Fehler Fkt MAInfo")
Exit Function
End If
datum = Tag & "." & Monat & "." & Year(Date)
For x = 2 To LaufNrMax ' letzter Eintrag in der Tabelle
If datum = Cells(x, 4).Value Then
If Cells(x, 9).Value = Bereich And Cells(x, 8).Value = Abteilung Then
MAListe = MAListe & Chr(13) & Cells(x, 3).Value
End If
End If
Next
TempMsg = MsgBox("Folgende Mitarbeiter haben am gewählten Tag Urlaub: " _
& Chr(13) & MAListe, vbInformation + vbOKOnly, "Urlaubsplaner - Info")
End Function
Wie schon gesagt, wenn ich im Debugger Schrittweise den Code ausführe, ist alles ok, nur wenn ich das Formular normal öffne, stürzt Excel ab.
mfg
Timo

Beliebteste Forumthreads (12 Monate)

Excel-Absturz bei 2. Durchlauf/Kompilierten Code

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel-Absturz bei 2. Durchlauf/Kompilierten Code

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread