ComboBox_Change Ereignis nicht auslösen
18.02.2009 21:11:00
Dirk
Ich bitte um eure Hilfe
Ich habe in einem Tabellenblatt eine ComboBox. In der ComboBox stehen Daten (z.B.: 02.01.2009, 03.01.2009, usw.)
Über einen CommandButton rufe ich eine InputBox auf. In der InputBox kann ich eine Jahreszahl eingeben.
Mit folgendem Code wird nun eine Datumsfolge in Spalte C eingetragen und die ComboBox wieder mit dem neuen Datum gefüllt und der Index auf 0 gesetzt.
Sub Jahr_ändern()
Dim Jahr As Integer
With Sheets("Arbeitstage")
On Error GoTo Ende
Jahr = InputBox(prompt:="Bitte geben sie das Kalenderjahr ein:" & vbNewLine & "(zwischen 2009 _
_
und 2100)", Title:="Eingabe Jahr")
If Jahr > 2008 And Jahr
Dabei löse ich leider auch das Ereignis ComboBox1_Change aus.
Das Ereignis soll aber nicht ausgelöst werden.
Ich zermatere mir seit Tagen mein Gehirn, komme aber auf keine Lösung.
Daher bitte ich um HILFE!!!!!
LG
Dirk R.
Anzeige