UserForm Comobox mit Arbeitsblättern
21.01.2018 18:00:41
Michael
ich möchte folgende UserForm umsetzen:
Zuerst wähle ich über einen CommandButton eine Excel Datei aus.
Private Sub CommandButton1_Click()
Dim vFile As Variant
vFile = Application.GetOpenFilename()
If vFile = False Then Exit Sub
Me.Label1.Caption = vFile
Workbooks.Open vFile
End Sub
danach möchte ich in einer Combobox alle Arbeitsblätter sehen, die diese Arbeitsmappe besitzt um dann das richtige Arbeitsblatt mit einem weiteren CommandButton auszuwählen.
Private Sub UserForm_Initialize()
Dim ws As Worksheet
Dim wb As Workbook
Set wb = ThisWorkbook.Application.Workbooks.Open(vFile)
ComboBox1.Clear
For Each ws In wb.Worksheets
ComboBox1.AddItem ws.Name
Next
End Sub
Mit den Codes funktioniert es leider nicht, bzw. die Referenzierung im zweiten Code durch "vFile" klappt nicht.
Hat jemand eine Idee? über Rückmeldungen freue ich mich :)
Vielen Dank im Voraus und freundliche Grüsse
