Combo in Userf. aus geschl. Datei mit Arr befüllen
09.03.2018 17:19:22
STeve
möchte eine Combobox1 in einer Userform3 aus einer geschlossenen Datei (und soll auch geschlossen bleiben) befüllen:
1.) Wenn ich anstatt der Variablen LetzteZeile einen Fixwert (zur Zeit 50 Einträge) eingeben läuft die Befüllung der Arr problemlos.
Mit Variable kommt die Fehlermeldung : Konstanter Ausdruck erforderlich
2.) ....jedoch funktioniert Me.ComboBox1.List = Arr auch mit fixer Zeilenangabe nicht.
3.) ....auch die Auszählung der letzten Zeile-
LetzteZeile = Workbooks(strFile).Sheets(strTable).Range("A65536").End(xlUp).Row
klappt so nicht.
Public LetzteZeile As Integer
Private Sub UserForm_Initialize() ' die Userform wird hier eingespeist
Dim r As Integer
Dim c As Integer
Dim strPath As String
Dim strFile As String
Dim strTable As String
strPath = "C:\ Neuer Ordner"
strFile = "Personelle Veränderungsmeldung_neu_1.3..xlsm"
strTable = "Mitarbeiterverwaltung"
If Right(strPath, 1) "\" Then strPath = strPath & "\"
LetzteZeile = Workbooks(strFile).Sheets(strTable).Range("A65536").End(xlUp).Row
Dim Arr(1 To LetzteZeile, 1 To 6)
For r = 1 To LetzteZeile
For c = 1 To 6
Arr(r, c) = ExecuteExcel4Macro("'" & strPath & "[" & strFile & "]" & strTable & "'! _
_
" & Cells(r, c).Address(, , xlR1C1))
Next c
Next r
Me.ComboBox1.ColumnCount = 6
Me.ComboBox1.List = Arr ' wird auch mit const. Zeilenangabe nicht befüllt
UserForm3.Show
End Sub
Besten Dank für eure Hilfe.
STeve