Hallo Excelexperten,

habe folgendes Problem mit einer meiner Exceldatei.

Ich habe ein Excelfile mit ComboBoxen für meine Datenauswertung erstellt. Alles sieht gut aus; ich kann das File aufmachen ausfüllen mit meinen Daten, speichern oder neu öffnen. Es funktioniert, bis ich eine zweite Exceldatei aufmache. Es spielt keine Rolle, ob ich eine leere Excelmappe, oder eine xlsx-Datei oder eine xlsm-Datei aufmache. Soweit ich eine zweite Datei aufmache, kommt die folgende Meldung mit Laufzeitfehler:

Laufzeitfehler 438
Objekt unterschützt diese Eigenschaften oder Methode nicht

Beenden oder Debuggen
Wenn ich debugge, geht das Popup mit Codierung auf zeigt wo der Fehler sein könnte.
z.B. jetzt bei der unteren Fall, war das Zeil "ComboBox 14 gelb markiert, so dass irgendein Fehler da sein sollte.

Aber es zeigt jedes mal ein anderes ComboBox, wo der Fehler sein sollte.


Private Sub ComboBox11_Change()
ActiveSheet.ComboBox11.Value = Format(ActiveSheet.ComboBox11.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox12_Change()
ActiveSheet.ComboBox12.Value = Format(ActiveSheet.ComboBox12.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox13_Change()
ActiveSheet.ComboBox13.Value = Format(ActiveSheet.ComboBox13.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox14_Change()
ActiveSheet.ComboBox14.Value = Format(ActiveSheet.ComboBox14.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox15_Change()
ActiveSheet.ComboBox15.Value = Format(ActiveSheet.ComboBox15.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox16_Change()
ActiveSheet.ComboBox16.Value = Format(ActiveSheet.ComboBox16.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox17_Change()
ActiveSheet.ComboBox17.Value = Format(ActiveSheet.ComboBox17.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox18_Change()
ActiveSheet.ComboBox18.Value = Format(ActiveSheet.ComboBox18.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox19_Change()
ActiveSheet.ComboBox19.Value = Format(ActiveSheet.ComboBox19.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox20_Change()
ActiveSheet.ComboBox20.Value = Format(ActiveSheet.ComboBox20.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox21_Change()
ActiveSheet.ComboBox21.Value = Format(ActiveSheet.ComboBox21.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox22_Change()
ActiveSheet.ComboBox22.Value = Format(ActiveSheet.ComboBox22.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox23_Change()
ActiveSheet.ComboBox23.Value = Format(ActiveSheet.ComboBox23.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox24_Change()
ActiveSheet.ComboBox24.Value = Format(ActiveSheet.ComboBox24.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox25_Change()
ActiveSheet.ComboBox25.Value = Format(ActiveSheet.ComboBox25.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox26_Change()
ActiveSheet.ComboBox26.Value = Format(ActiveSheet.ComboBox26.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox27_Change()
ActiveSheet.ComboBox27.Value = Format(ActiveSheet.ComboBox27.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox28_Change()
ActiveSheet.ComboBox28.Value = Format(ActiveSheet.ComboBox28.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox29_Change()
ActiveSheet.ComboBox29.Value = Format(ActiveSheet.ComboBox29.Value, "dd.mm.yyyy")
End Sub

Private Sub ComboBox30_Change()
ActiveSheet.ComboBox30.Value = Format(ActiveSheet.ComboBox30.Value, "dd.mm.yyyy")
End Sub
Danke für eure Hilfe