MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

 
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 29.06.2017, 14:01   #1
Tomte2301
Neuer Benutzer
Neuer Benutzer
Standard VBA - Userform mit 2 Listen

Hallo zusammen,

ich bin noch relativ neu in VBA und hänge momentan an einem Problem.
Und zwar habe ich eine Userform erstellt, welche aus mehreren Button und 2 Listen erstellt. Das Tool soll nun folgendes machen:
Klicke ich auf einen Button, so sollen alle Unterordner eines bestimmten Verzeichnis aufgelistet werden.
Wählt man dann in dieser Liste einen Unterordner aus, so sollen die sich darin befindlichen Dateien in der Listbox2 auflisten.

Die Auflistung der Unterordner in Listbox 1 klappt bisher. Eine automatische Auflistung der Dateien von diesem Unterordner jedoch nicht.
Könnte mir hier jemand bitte behilflich sein, oder hat Ideen dazu ?

Hier mein Code, den ich bisher habe um die Listen zu befüllen.

Code:

Sub OrdnerListen(strOrdner2)
   
    Dim Ordner
    Dim FSO As Object
    Dim arrDateien()
    Dim intDateien
    Dim arrDateien2()
    Dim intDateien2
    Dim intCounter As Integer
    Dim strName
   
    
    Set FSO = CreateObject("Scripting.filesystemobject")
   
    For Each Ordner In FSO.getfolder(strOrdner2).subfolders
        
         intDateien = intDateien + 1
      ReDim Preserve arrDateien(1 To intDateien)
      arrDateien(intDateien) = Ordner.Name
      
        FormVertrag.ListBox1.AddItem arrDateien(intDateien)
        
    Next
    
    For intCounter = 0 To FormVertrag.ListBox1.ListCount - 1
      If FormVertrag.ListBox1.Selected(intCounter) Then
      
        strName = strOrdner2 & "" & arrDateien(intDateien)
        
      Do While strName <> ""
      intDateien2 = intDateien2 + 1
      ReDim Preserve arrDateien2(1 To intDateien2)
      arrDateien2(intDateien2) = strName
      strName = Dir()
    Loop
    End If
   Next intCounter
   
   For intCounter = 0 To UBound(arrDateien2)
      FormVertrag.ListBox2.AddItem arrDateien2(intDateien2)
   Next
        
 
End Sub
Tomte2301 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
 


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:10 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.