Combolist - Wert auswählen und Datei öffnen
17.03.2014 08:10:51
Sebastian
ich möchte gerne aus eine Combolist einen Monat wählen. Jeden Monat soll ein Dateipfad zugeordnet sein der dann mittels CommandButton "Bestätigen" geöffnet werden soll. Ich habe bis jetzt folgendes:
Private Sub CommandButton1_Click()
Dim intMonat As Integer
Dim Dateiname As String
Dim Pfad As String
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte erst Monat auswählen"
Else
intMonat = ComboBox1.ListIndex + 1
With Worksheets("Hauptmenü")
Pfad = "C:\XXX"
Dateiname = Cells(intMonat + 7, 20) ' Dateiname aus Zelle t8 auslesen
Application.Workbooks.Open (Pfad & Dateiname)
End With
Unload Me
End If
End Sub
Private Sub UserForm2_Initialize()
Dim intI As Integer
'AUswahlliste für Combobox erstellen
With Me.ComboBox1
For intI = 1 To 12
.AddItem Format(VBA.DateSerial(2014, intI, 1), "MMMM")
Next
End With
End Sub
MfG Sebastian