Private Sub CommandButton2_Click()
Dim wb As Excel.Workbook
Dim format As Range
Dim lngLast As Range
strFilter = "Excel-Dateien(*.csv*), *.csv*"
ChDrive "D"
ChDir "D:\xxxx\"
strFilename = Application.GetOpenFilename(strFilter)
If strFilename = False Then Exit Sub
Set wb = Workbooks.Open(strFilename)
Set wb = Workbooks.Open(strFilename).Sheets(1)
wb.Columns(1).TextToColumns Destination:=wb.Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=Fales, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
True
wb.Columns(3).NumberFormat = "0"
wb.Rows("1:1").Select
Selection.Insert Shift:=xlDown
Workbooks("Datei A.xlsx").Worksheets("Blatt2").Range("A1:B95").Copy
ActiveSheet.Cells(1, 12).Select
Selection.PasteSpecial Paste:=xlPasteAll
Workbooks("Datei A.xlsx").Worksheets("Blatt2").Range("D2").Copy
ActiveSheet.Cells(2, 5).Select
Selection.PasteSpecial Paste:=xlValue
For Each format In Selection
format.FormulaLocal = format.Text
Next
With wb
lngLast = Cells(Rows.Count, 1).End(xlUp).Row
Range("E2").AutoFill Destination:=Range("E2:E" & lngLast)
End With
wb.Columns("A:M").EntireColumn.AutoFit
Application.Dialogs(xlDialogSaveAs).Show (strFilename)
End Sub