Ausgelesene Datei-Liste in Userfom anklickbar anze

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub OrdnerAuslesen() Dim Ordnerpfad As Variant Dim dat As FileDialog Dim Datei As String Dim x As Long Dim DateiListe() Set dat = Application.FileDialog(msoFileDialogFolderPicker) With dat .Title = "I-Stufen-Ordner" .InitialFileName = "C:\" 'oder was auch immer If .Show = -1 Then For Each Ordnerpfad In .SelectedItems Datei = Dir(Ordnerpfad + "\*.*") Do While Datei "" x = x + 1 ReDim Preserve DateiListe(1 To x) DateiListe(x) = Datei Datei = Dir 'Loop For n = 1 To x Worksheets(1).Cells(n, 1) = DateiListe(n) Next n Loop Next Ordnerpfad End If End With i = 1 UserForm1.Label2.Caption = "Auswahlliste der zur Verfügung stehenden I-Stufen-Container." UserForm1.Label3.Caption = "Auswahl" For i = 1 To Sheets("Tabelle1").Cells(Rows.Count, "A").End(xlUp).Row UserForm1.Label1.Caption = Cells(1, 1).Value UserForm1.Label4.Caption = Cells(2, 1).Value Next UserForm1.Show vbModeless End Sub

Sub OrdnerAuslesen() Dim x As Long Dim DateiListe() Dim oFS As Object, oFldr As Object, oFile As Object Set oFS = CreateObject("Scripting.filesystemobject") With Application.FileDialog(msoFileDialogFolderPicker) .Title = "I-Stufen-Ordner" .InitialFileName = "C:\" 'oder was auch immer If .Show = -1 Then Set oFldr = oFS.getfolder(.SelectedItems(1)) End If End With If Not oFldr Is Nothing Then ReDim DateiListe(1 To oFldr.Files.Count, 1 To 1) For Each oFile In oFldr.Files x = x + 1 DateiListe(x, 1) = oFile.Name Next Sheets(1).Cells(1, 1).Resize(x) = DateiListe With UserForm1 With .ListBox1 .MultiSelect = 1 .ListStyle = 1 .List = DateiListe End With .Show vbModeless End With End If End Sub

Okay...habe es nun doch schon selber rausbekommen. Falls mal jemand etwas ähnliches sucht:

Sub Datei_Liste()
With Application
.EnableEvents = False
.ScreenUpdating = False
.ShowWindowsInTaskbar = False
.DisplayAlerts = False
End With
Dim Ordnerpfad As Variant
Dim dat As FileDialog
Dim Datei As String
Dim x As Long
Dim DateiListe()
Worksheets(2).Range("A:A").Delete
Set dat = Application.FileDialog(msoFileDialogFolderPicker)
With dat
.Title = "Liste"
.InitialFileName = "C:\" 'oder was auch immer
If .Show = -1 Then
For Each Ordnerpfad In .SelectedItems
Datei = Dir(Ordnerpfad + "\*.*")
Do While Datei  ""
x = x + 1
ReDim Preserve DateiListe(1 To x)
DateiListe(x) = Datei
Datei = Dir
'Loop
For n = 1 To x
Worksheets(2).Cells(n, 1) = DateiListe(n)
Next n
Loop
Next Ordnerpfad
End If
End With
Dim ctrlLbl As msforms.Label
Dim ctrlChk As msforms.CheckBox
Dim itxtCount As Integer
Dim i As Integer
'ctrLbl.Height = 20
For i = 1 To Worksheets(2).Cells(Rows.Count, "A").End(xlUp).Row
Set ctrlLbl = UserForm1.Controls.Add("Forms.Label.1")
Set ctrlChk = UserForm1.Controls.Add("Forms.CheckBox.1")
With ctrlLbl
.Name = "Label: " & i
.Top = .Height * i + 20
.Left = 20
.Height = 20
.Width = 250
.Caption = Worksheets(2).Cells(i, 1).Value
End With
With ctrlChk
.Name = "Container: " & i
.Top = .Height * i + 20
.Left = 295
.Height = 10
.Width = 10
End With
Next i
UserForm1.Show vbModeless
Worksheets(2).Range("A:A").Delete
With Application
.EnableEvents = True
.ScreenUpdating = True
.ShowWindowsInTaskbar = True
.DisplayAlerts = True
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Ausgelesene Datei-Liste in Userfom anklickbar anze

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ausgelesene Datei-Liste in Userfom anklickbar anze

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread