Tabellenkalkulation VBA

Question

Hallo Leute,

Ich habe mal wieder eine Frage.
Ich möchte gerne eine Inputbox erstellen, in welcher der User nur Werte aus einer Dropdownliste wählen kann. Die Daten(Exceldateien) sind in alle einem Ordner abgelegt.

Gruß Hajo

Answer 1

Hallo Hajo,

mit einer Inputbox wirst du das nicht hinbekommen.

Du müsstest dir eine Userform mit einer Combobox erstellen, aus der der Nutzer dann die entsprechende Datei auswählen kann.
Die Userform kannst du über einen entsprechenden Button starten.
Die Combobox kannst du mit den Dateinamen aus einem Verzeichnis wie folgt füllen:

Private Sub CommandButton1_Click()

Dim strPfad As String
Dim strDatnam As String

'Pfad Anpassen
strPfad = "C:\Users\nutzer\documents\"
strDatnam = Dir(strPfad & "*.xl*")

'Excel-Dateien aus Pfad in Combobox einlesen
Do While Len(strDatnam)

UserForm1.ComboBox1.AddItem strDatnam
strDatnam = Dir

Loop

'1. Eintrag der Userform auswählen
UserForm1.ComboBox1.ListIndex = 0

'Userform aufrufen
UserForm1.Show

End Sub

Gruß

M.O.