Got it. Here's the code for future reference:
Sub telefonstat()
Dim myfile As Variant
myfile = Application.GetOpenFilename( _
FileFilter:="Csv (*.CSV), *.csv", _
Title:="Wählen Sie Ihre CSV-Datei", _
ButtonText:="Öffnen")
If myfile = False Then Exit Sub
Workbooks.OpenText Filename:=myfile, _
Origin:= _
xlWindows, StartRow:=10, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1)), DecimalSeparator:=".", ThousandsSeparator:=" ", _
TrailingMinusNumbers:=True
Rows("1:1").Select
Selection.Font.Bold = True
Columns("F:F").Select
Selection.Style = "Percent"
Columns("J:J").Select
Selection.NumberFormat = "0"
Columns("L:L").Select
Selection.NumberFormat = "0"
Columns("P:P").Select
Selection.NumberFormat = "0"
Columns("S:S").Select
Selection.Style = "Percent"
Columns("T:T").Select
Selection.Style = "Percent"
Columns("A:AB").Select
Selection.ColumnWidth = 20
Rows("1:1").RowHeight = 34
Rows("1:1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A2:AB500").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A1").Select
End Sub
Bookmarks