✔ OrdnerAuswahl durch ComboBox

[InExplicit]

Hi leute!

wie kann ich durch eine ComboBox SubOrdner anzeigen und auswählen!?

z.b. ich hab auf C: einen ordner liegen mit dem namen Test

subordner von test sind: 2006, 2007, 2008

wie kann ich mir in einer ComboBox die Subordner vom Ordner Test anzeigen lassen !?

Bitte schnell ist dringend!

Danke

Lg InEx

 

[Jacka]

Hi!

Versuch es mal so:

  Private Sub Form_Load()
  Dim cFile As String
  Dim iAtt as Variant
 
cFile = Dir("C:\test\", vbDirectory) ' Alle Ordner im Verzeichnis ausgeben
Do While cFile <> "" ' Wiederholen bis cFile=""
    cFile = Dir ' Aufruf der Funktion ohne Parameter!!
      iAtt = GetAttr("C:\test\" & cFile) ' Check ob cfile ein Ordner ist ..
         If CBool(iAtt And vbDirectory) = True Then
            Combo1.AddItem cFile ' .. wenn ja dann zu Combobox hinzufügen
         End If
Loop
End Sub

Wenn du dir Ordner anzeigen lassen willst, benutze doch die DirListBox.

Viele Grüße,
Jacka

 

[InExplicit]

HI Jacka,


danke erstma werd das gleich versuchen!

Listbox verwenden ich aus dem grund nicht weil ich darunter eine Listbox habe in der mir dann die ganzen dateien innerhalb des gewählten Verzeichniss angezeigt werden!

Und es ist einfach schöner zum aussuchen wenn ich mir denn Ordner via ComboBox aussuchen kann und darunter dann eine ListBox ist wo ich mir die datei aussuchen kann.


Aber wie gesagt danke und ich meld mich obs geklappt hat oder nicht!

Lg InEx

 

[InExplicit]

Musste es zwar in die UserForm_Activate
aber ansonsten ging es gut!


Danke Jacka


Lg InEx

// EDIT

Nun hab ich noch eine Frage wie kann ich auf die Auswahl einer ComboBox reagieren!?

Lg InEx

 

[Jacka]

Hi!

Zum Beispiel so:

Private Sub Combo1_Click()
   MsgBox Combo1.Text
End Sub

Den ausgewählten Text kannst du dann weiterverwenden, in eine Variable schreiben oder so.

UserForm_Activate

Bitte schreibe das nächste mal dazu, dass es sich um Excel/VBA handelt.
VB und VBA unterschiedlich und es kann dann sein, das Code dann nicht funktioniert.

Viele Grüße,
Jacka

 

[InExplicit]

Joa das hab ich auch schon gemerkt denn in VBA wäre das ganze ja ziehmlich leicht aber mit denn eigenheiten von VB-Excel bzw überhaupt VB-Office ist das ganze etwas schwerer!

Deshalb sage ich Danke für deine Hilfe und das nächste mal werd ichs dazu posten das es sich um Excel-VB handelt ;-)

Thx @jacka

Lg

InEx