User-Form reagiert nicht mehr

Hallo Cracks,
hab an meiner User-Form gebastelt und stecke in der Sackgasse.
Keine Ahnung warum, aber nachdem alles bestens funktioniert hatte reagiert das Ding plötzlich garnicht mehr.
Ich fülle eine Combobox mit Werten aus einer Tabelle und warte nun bis der Inhalt der Combobox geändert wird um weiteren Code auszuführen. Da passiert aber überhaupt nichts mehr, keine Reaktion auf irgendwas. Excel lässt sich weiterhin normal bearbeiten, aus dem Code komme ich nur per Stop im VBA-Editor raus.
Über On Error (ein oder ausgeschaltet) komme ich nicht weiter.
Den Inhalt der Combobox kann ich zwar per Tastaur anzeigen und dann per Maus auswählen, die damit verbundenen Werte werden in den anderen Feldern auch angezeigt, aber das ganze System steht irgendwie still...
Wer weiß Rat?
Code auf Anfrage, starte erst mal den Rechner neu...
1000 Dank, Frank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Das UF fehlt natürlich noch... Wird das auch benötigt?
----------------------------------------------------------------------


Private Sub UserForm_Initialize()
Me.KrankDatumNeu.Visible = False
Set obj = Range("a4:a604")
For Each Item In obj
If Item  "" Then Me.StNr.AddItem Item
Next
End Sub


Private Sub StNr_Change()
On Error Resume Next
Me.EJahr = "Einstelldatum"
If Me.StNr.Value = "" Then Exit Sub
Me.KrankDatumNeu.Visible = True
z = Me.StNr.ListIndex + 4 'Zeile auslesen
Me.AzubiName = Cells(z, 3) & " " & Cells(z, 2)
Me.EJahr = Cells(z, 4)
Me.KTage = Cells(z, 34)
Me.Zyklen = Cells(z, 35)
Me.Mstr = Cells(z, 5)
If z > 3 Then Me.KrankDatumNeu.Visible = True
Call Lesen(z)
End Sub

Sub Lesen(z)
'Infogespräch x1
'Motivationsgespräch x2
'Mitarbeitergespräch x3
'Personalgespräch x4
'Gesundheitsgespräch x5
'Fehlzeitengespräch x6
'Abmahnung x7
Start = 1 '12, 23, 34 (MidString-Auswahl)
For i = 10 To 40 Step 10
For j = 1 To 7
nr = i + j
Controls("Info" & nr) = Mid$(Cells(z, j + 25), Start, 10)
Next j
Start = Start + 11
Next i
Me.LastDay = CDate(Cells(z, 36))
End Sub


Private Sub KrankDatumNeu_AfterUpdate()
'If Me.StNr.ListIndex  290 Then
Me.StufeNeu = "Rückfall auf Anfang"
Else
If Me.AnzahlTage


Private Sub KrankDatumNeu_Enter()
Me.KrankDatumNeu = Format(Date)
End Sub


Private Sub Mail_Click()
MsgBox "Mail versandt"
End Sub


Private Sub Schliessen_Click()
Unload AVP
End Sub

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

User-Form reagiert nicht mehr

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread