So da mein erstes Problem heute so schnell gelöst wurde, hier gleich noch eins. Das ist allerdings etwas komplexer.

Also was ich am Ende haben möchte ist folgendes:

• Button drücken und "Datei öffnen" Fenster öffnen - habe ich schon fertig!
• Excel Tabelle auswählen und öffnen - auch fertig!
• Dann öffnet sich ein UserForm mit 2 ComboBoxen - auch schon fertig!
• jetzt gehen die Probleme los. In der ersten ComboBox sollen alle in der Datei enthaltenen Tabellenblätter angezeigt werden
• Nach auswahl des Tabellenblatt sollen in der zweiten Comobox die die Überschriften der Spalten in diesem Tabellenblatt ausgewählt werden können, mit ("Spalte A" und dem entsprechend in Zelle A1 enthaltenen Text
• Wird die auswahle dann mit "OK" bestätigt soll der Inhalt in Spalte A (bzw. der einer anderen ausgewählten Spalte)  in ein neues Tabellenblatt kopiert werden

das wäre es dann soweit. Hier schon mal die Code Schnipsel die ich bisher geschrieben habe:

Sub Daten_Laden()

Dim strDateiPfad As String
Dim strTabellenblatt As String
Dim strMesswert As String

strDateiPfad = Application.GetOpenFilename
Workbooks.Open (strDateiPfad)
'Datei öffnen

usfDatenLaden.Show
'Userform laden

End Sub

Private Sub cbTabellenblatt_DropButtonClick()

' Tabellenbläter in erste ComboBox laden 
'Füllen tut er die ComboBox allerdings behält er die auswahl nicht...
cbTabellenblatt.Clear

    Dim wsTabelle As Worksheet
     
    For Each wsTabelle In Worksheets
        cbTabellenblatt.AddItem wsTabelle.Name
    Next wsTabelle

End Sub

Danke!