|
Was mir jetzt erst auffällt: den Code für das Füllen der ComboBox56 hast Du (nur) auf UserForm1, nicht auf UserForm2: Wieso füllt die sich überhaupt?
Zweitens: Du füllst die ComboBoxen mit konstantem Bereich A3:A1000: Hier wäre es sinnvoll, nur den wirklich belegten Bereich zu übergeben:
statt
ComboBox56.RowSource = "AUSWERTUNG!A3:A1000"
Dim LetzteZeile As Long
With ThisWorkbook.Sheets("AUSWERTUNG")
LetzteZeile = .Cells(.Cells.Rows.Count, 1).End)xlUp).Row
ComboBox56.RowSource = "AUSWERTUNG!A3:A" & CStr(LetzteZeile"
End With
Warum der Code jetzt beim blättern "stolpert" weiß ich auch nicht. Möglich wäre ein Timing Problem, da ja jede Bewegung des Cursors die Prozedur
Private Sub ComboBox56_Change()
erneut auslöst, so daß evtl. die Befehle sich überschneiden oder widersprechen.
Setz mal versuchsweise direkt nach den Prozeduraufruf ein paar DoEvents. Vielleicht hilft das.
Private Sub ComboBox56_Change()
DoEvents
DoEvents
Und was war das mit dem Escape?
Severus
|