Combobox mit überlangen Texten läßt excel
Mario
nachdem ich nun eine tolle Excel-Datei habe, die Daten aus einer anderen Datei/Tabelle nutzt, habe ich das Problem, daß die Texte in der Combobox länger sind, als die Combobox Platz bietet.
Daraufhin stürzt Excel97 unter NT4 ab mit der Fehlermeldung:
excel.exe
Zugriffsverletzung(0x0000005),Adresse: 0x00000100
Nun ist guter Rat teuer . . . :-)
Habt Ihr eine Idee?
VBA sagt derzeit folgendes:
Arbeitsmappe:
Option Explicit
Private Sub Workbook_Activate()
Tabelle1.ComboBox1.ListFillRange = "Tabelle2!A1:A" & Worksheets("Tabelle2").Range("A1").End(xlDown).Row
Tabelle1.ComboBox2.ListFillRange = "Tabelle3!A1:A" & Worksheets("Tabelle3").Range("A1").End(xlDown).Row
End Sub
Tabelle1:
Option Explicit
Private Sub ComboBox1_Change()
Tabelle1.ComboBox1.ListFillRange = _
"Tabelle2!A1:A" & Worksheets("Tabelle2").Range("A1").End(xlDown).Row
[A11] = ComboBox1.Text
End Sub
Private Sub ComboBox2_Change()
Tabelle1.ComboBox2.ListFillRange = _
"Tabelle3!A1:A" & Worksheets("Tabelle3").Range("A1").End(xlDown).Row
[B8] = ComboBox2.Text
End Sub
Viele Grüße
Mario
Anzeige