leider bin ich auch nach ein paar Stunden Internet-Rechereche nicht weitergekommen.
Ich habe folgendes Problem:
In einer ComboBox sollen die Namen der Tabellenblätter aus einer geschlossen Arbeitsmappe (Fahrzeughandlingsliste_neu) zur Auswahl stehen.
Wenn in der geöffneten Arbeitsmappe das ganze verfasse: Kein Problem
Sub UserForm_Initialize()
Dim Liste(8) As Variant
Dim n As Integer
Dim m As Integer
m = 2
For n = 0 To 8
Liste(n) = Workbooks("Fahrzeughandlingsliste_neu.xlsm").Worksheets(m).Name
m = m + 1
Next n
Me.ComboBox1.List = Liste
End Sub
Jetzt möchte ich aber eigentlich eine neue Mappe erstellen, in der nur die Auswahl stattfindet und die Name aus der geschlossenen Datei ausgelesen werden...
Hat mir jemand einen Tipp?
Natürlich zieht sich das Problem weiter und wird um eine weitere Schwierigkeit ergänzt..
In Abhängigkeit davon, was der Nutzer aus der Liste auswählt, muss aus der wünschenswert geschlossenen Datei "Fahrzeughandlingsliste_neu" ein Bereich in die neue Auswahl-Mappe kopiert werden(für jede Tabelle der gleiche Auswahl- und Zielbereich)
Bisher habe ich nur diesen recht stümperhaften und nicht sehr flexibelen Weg gefunden...
Private
Sub ComboBox1_Click()
Select Case ComboBox1.Value
Case Workbooks("Fahrzeughandlingsliste_neu.xlsm").Worksheets(1).Name
Workbooks("Fahrzeughandlingsliste_neu.xlsm").Worksheets(1).Range("B13:R37").Copy _
Destination:=Range("B13:R37")
Weiter muss ich das ja dann auch für die neun anderen Tabellenblätter machen..
Jemand Ideen?
Vielen Dank für Eure Hilfe!! :)