Hallo
auf select kann in 99% verzichtet werden.
Ungetestet..
wb.columns(1).TextToColumns Destination:=wb.Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
True
wb.columns(1).NumberFormat = "0"
LG UweD
|