Private Sub cmd_Start_Click()
Dim Export_FSP_Kunden_Dateinamen As String
Dim Export_FSP_Kunden_Tabellenname As String
Dim Export_FSP_Kunden_Quelle As Worksheet
Dim Export_FSP_Kunden_Ziel As Worksheet
Dim Export_FSP_Kunden_ZielRanche As Range
Dim asdf As String
Export_FSP_Kunden_Dateinamen = Right(Me.txt_Export_FSP_Kunden, Len(Me.txt_Export_FSP_Kunden) - InStrRev(Me.txt_Export_FSP_Kunden, "\", , vbTextCompare))
MsgBox (Export_FSP_Kunden_Dateinamen)
Export_FSP_Kunden_Tabellenname = "_vExport_FSP_Kunden"
On Error Resume Next
Workbooks.Open Filename:=Me.txt_Export_FSP_Kunden
On Error GoTo 0
Export_FSP_Kunden_Quelle = Workbooks(Export_FSP_Kunden_Dateinamen).Worksheets(Export_FSP_Kunden_Tabellenname)
Export_FSP_Kunden_Ziel = Workbooks(ThisWorkbook.Name).Worksheets("Export_FSP_Kunden")
Export_FSP_Kunden_ZielRanche = Export_FSP_Kunden_Ziel.Range("A1")
Export_FSP_Kunden_Quelle.UsedRange.Copy Export_FSP_Kunden_ZielRanche
End Sub