Hallo,

danke für die Tips!
Habe das Problem jetzt auch soweit gelöst! Bekomme jedoch jetzt den Fehler "400" und kann mir nicht ganz erklären welche ursache das hat!

Ich poste mal den Code, vllt findet einer von auch was! Danke!

'Public Variablen zu übergrbae der Variablen aus dem Userform. In eigenem Modul angelegt
Public oMesswertWorkbook As Workbook
Public oTempWorkbook As Workbook
Public strGewaehlteTabelle As String
Public intGewaehlteTabelle As Integer
Public strGewaehlteSpalteDatum As String
Public intGewaehlteSpalteDatum As Integer
Public strGewaehlteSpalteMesswert As String
Public intGewaehlteSpalteMesswert As Integer
Public strErsterMesswert As String


Sub Daten_Laden()

Dim strTempWorkbook As String
Dim strDateiPfad As String
Dim strTabellenblatt As String
Dim strMesswert As String
Dim wsTabellen As Worksheet

Dim lngMesswertSpalte As Long
Dim lngDatumSpalte As Long

Dim lngZeilenzaehler As Long
Dim strTabellenName As String

Dim lngLetzteZeile As Long

Dim oWS_Temp As Worksheet
Dim oWS_Messwert As Worksheet

Set oTempWorkbook = Workbooks(TempWorkbook)
Set oWS_Temp = oTempWorkbook.Worksheets(sWSName_Temp)


strDateiPfad = Application.GetOpenFilename
Set oMesswertWorkbook = Workbooks.Open(strDateiPfad)

On Error GoTo Fehler

For Each wsTabellen In oMesswertWorkbook.Worksheets
        usfDatenLaden.cbTabellenblatt.AddItem wsTabellen.Name
    Next wsTabellen

usfDatenLaden.Show


'MsgBox strErsterMesswert

Set oWS_Messwert = oMesswertWorkbook.Worksheets(strGewaehlteTabelle)
MsgBox oWS_Temp.Name


lngLetzteZeile = oWS_Messwert.UsedRange.Rows.Count
lngMesswertSpalte = 2


oMesswertWorkbook.Worksheets(strGewaehlteTabelle).Select
oWS_Messwert.Range(oWS_Messwert.Cells(strErsterMesswert, intGewaehlteSpalteDatum), oWS_Messwert.Cells(lngLetzteZeile, intGewaehlteSpalteDatum)).Copy

'oTempWorkbook.Activate
'Der fehler tritt schon auf, wenn ich einfach nur die Andere Mappe aufrufen möchte, in die die Daten kopiert werden soll!

oWS_Temp.Range(oWS_Temp.Cells(1, 2), oWS_Temp.Cells(1, 2)).Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
        
Exit Sub
Fehler:
MsgBox "Fehler in Sub Fehler0" & vbCrLf & "Fehlernummer: " & Err.Number & _
    vbCrLf & "Fehlerbeschreibung: " & Err.Description
        
End Sub

'Coder für die Boxen im Userform

Sub cbDatum_Change()

strGewaehlteSpalteDatum = usfDatenLaden.cbDatum
intGewaehlteSpalteDatum = usfDatenLaden.cbDatum.ListIndex + 1
End Sub

Sub cbTabellenblatt_Change()

Dim strMesswert As String
Dim lngAnzahlSpalten As Long
Dim wsAktiveTabelle As Worksheet
Dim intSpaltenzaehler As Integer

intGewaehlteTabelle = usfDatenLaden.cbTabellenblatt.ListIndex + 1
strGewaehlteTabelle = usfDatenLaden.cbTabellenblatt

lngAnzahlSpalten = oMesswertWorkbook.Worksheets(strGewaehlteTabelle).UsedRange.Columns.Count

For intSpaltenzaehler = 1 To lngAnzahlSpalten
    cbDatum.AddItem Cells(1, intSpaltenzaehler)
Next intSpaltenzaehler

End Sub
Private Sub txtMesswertZeile_Change()
strErsterMesswert = usfDatenLaden.txtMesswertZeile.Value
End Sub


Private Sub OK_Click()
Unload Me
End Sub

Private Sub Abbruch_Click()
Unload Me
End
End Sub

Danke!