Sub
ErsetzenUndSpeichern()
Columns(
"A:A"
).
Select
Selection.Replace What:=
","
, Replacement:=
";"
, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=
False
, SearchFormat:=
False
, _
ReplaceFormat:=
False
Selection.Replace What:=
"."
, Replacement:=
","
, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=
False
, SearchFormat:=
False
, _
ReplaceFormat:=
False
Selection.TextToColumns Destination:=Range(
"A1"
), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=
False
, Tab:=
True
, _
Semicolon:=
True
, Comma:=
False
, Space:=
False
, Other:=
False
, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1)), TrailingMinusNumbers:=
True
Cells.
Select
Cells.EntireColumn.AutoFit
ActiveWorkbook.SaveAs Filename:= _
"E:\OneDrive\Masterarbeit\### Messungen\#03 04.08.2016 0830 Uhr\Excel\TB_BK3_.xlsx"
_
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=
False
End
Sub