Hallo zusammen,
ich habe in meiner Excel-Datei u.a. eine UserForm0713. Diese beinhaltet 2 Codes:
1. Eine Druckanweisung
Private Sub CommandButton2_Click()
With Sheets("Betriebsergebnis Vergleiche") .PageSetup.PrintArea = "$A$2:$B$24"
.PrintOut
.PageSetup.PrintArea = ""
End With
End Sub
Funktioniert super.
2. Eine Anweisung bestimmte Daten aus einer Tabelle auszulesen.
Private Sub UserForm0713_Initialize()
With ListBox1
.ColumnCount = 2
.ColumnWidths = "5cm;3cm"
.ColumnHeads = False
ListBox1.RowSource = "Betriebsergebnis Vergleiche!A2:B24"
End With
End Sub
Die Listbox erscheint, zeigt aber nichts an. Ich kann mir den Code noch 100 mal ansehen ich finde den Fehler nicht. Die Zellen sind absolut identisch, die angesteuerte Tabelle ebenfalls. Kann mir vielleicht jemand helfen wo der Fehler liegt?
Danke vorab, LG Tom
|