Fehler bei Listbox.Rowsource
05.06.2018 11:28:13
Starkl
ich bin tatsächlich an ein Problem gestoßen, wo ich mich Frage, ob es sich um einen Programmfehler in Excel handelt - Ich weiß das haben schon viele gedacht und sind eines besseren belehrt worden ... Ich hoffe das werde ich auch.
Bei einem Formularaufruf wird ein darin befindliches Listenfeld mit den Daten aus einer Tabelle befüllt. Wird das Formular das erste mal geöffnet, dann funktioniert das Makro Fehlerfrei. Die Listbox wird mit den Werten aus der Tabelle befüllt.
Beim zweiten Aufruf des Formulars kommt immer eine Fehlermeldung:" Ungültiger Eigenschaftswert. RowSource konnte nicht gesetzt werden. Laufzeitfehler 380"
Beim schließen den Formulars verwende ich bereits "unload me", so dass eigentlich jedesmal exakt der gleiche Ablauf sein müsste....
Anbei der eingekürzte Code:
Private Sub UserForm_Activate()
S = "Stammdaten"
M= MR Tabellenblattname
Application.ScreenUpdating = False
Me.LBMengenregulierung.Clear
Me.LBMengenregulierung.ColumnCount = 11
Me.LBMengenregulierung.ColumnHeads = False
Me.LBMengenregulierung.ColumnWidths = "0cm;2cm;7,5cm;1,9cm;2,2cm;2,2cm;2,2cm;2,2cm;2,2cm;2,2cm; _
_
_
2cm"
Me.LBMengenregulierung.RowSource = ""
'Alle alten Einträge in der Tabelle löschen
Sheets(M).Range("A2:P500").ClearContents
Die Tabelle neu mit einer Schleife befüllen
For ZeileS = 3 To 200
'Befüllen der Tabelle
Anweisung
ZeileM = ZeileM + 1
End If
Next
Application.ScreenUpdating = True
Quelle = CStr("'" & M & "'!A2:K" & ZeileM - 1)
FRMMengenregulierung.LBMengenregulierung.RowSource = Quelle
End Sub