Listbox
14.12.2015 17:58:33
Armbruster
Hallo Leute,
ich habe folgenden Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Listbox UF Buchführung
frmBuchführung.lbAuto.RowSource = "'" & Sh.Name & "'!A144:B148"
frmBuchführung.lbUrlaub.RowSource = "'" & Sh.Name & "'!A137:B141"
frmBuchführung.lbSpielbergfreieMonate.RowSource = "'" & Sh.Name & "'!A129:B133"
frmBuchführung.lbRücklagenKonto.RowSource = "'" & Sh.Name & "'!A151:B155"
End Sub
Das problem ist dabei, dass die Werte in den Listboxen nur angezeigt werden, wenn ich ein Tabellenblatt gewechselt habe. ich hätte aber gerne, dass die Werte immer angezeigt werden wenn ich die jeweilige UF offen haben.Wie muss der Code heißen und wo muss ich den hinschreiben.
Vielen Dank für Eure Hilfe