Option Explicit
Public Sub CommandButton2_Click()
Dim wb As Workbook, strFilter As String
Dim varFilename As Variant, Blattname As String
strFilter = "Excel-Dateien(*.csv*), *.csv*"
ChDrive "D"
varFilename = Application.GetOpenFilename(strFilter)
If varFilename = False Then Exit Sub
Set wb = Workbooks.Open(varFilename)
ThisWorkbook.Worksheets("Blatt2").Range("A1:B95").Copy
Blattname = Replace(Mid$(varFilename, InStrRev(varFilename, "\") + 1), ".csv", "")
wb.Worksheets(Blattname).Range("L1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub