ich möchte gerne aus einem Order alle Dateien und die Zahl von "N1" in eine UF.ComboBox einlesen.
Da verschiedene Dateien in dem Ordner sind sollten nur die ausgelesen werden die mit "B_" beginnen
Leider wird nur die erste Datei in der zweispaltigen ComboBox angezeigt.
Warum?
Danke!
Gruß
Mirel
Private Sub CommandButton1_Click()
Dim sPath As String, sDatei As String, sTab As String, sZelle As String, bezug As String
Dim sName As String
sPath = "H:\Muster\Muster1\Mappen\Huber\Best"
sTab = "Bestellung"
sZelle = "N1"
sName = Dir(sPath & "*.xlsx")
Do While sName > ""
If sName Like "B_*" Then
sDatei = sName
MsgBox sDatei
UFP.cboBest_Bestellung.AddItem Left(sName, Len(sName) - 5)
UFP.cboBest_Bestellung.List(UFP.cboBest_Bestellung.ListCount - 1, 1) = fcn(sPath, sDatei, sTab, sZelle)
End If
sName = Dir
Loop
With UFP.cboBest_Bestellung
If .ListCount = 0 Then
.Enabled = False
Else
.Enabled = True
.ListIndex = -1
End If
End With
End Sub
Private Function fcn(sPath, sDatei, sTab, sZelle)
'code Excel-Inside
Dim arg As String
'datei vorhanden?
If Right(sPath, 1) > "\" Then sPath = sPath & "\"
If Dir(sPath & sDatei) = "" Then
fcn = "Datei nicht gefunden"
Exit Function
End If
arg = "'" & sPath & "[" & sDatei & "]" & sTab & "'!" & Range(sZelle).Range("A1").Address(, , xlR1C1)
fcn = ExecuteExcel4Macro(arg)
End Function