AW: Text ersetzen
10.12.2008 10:08:05
robert
Hi Tino,
ich habe schon einmal gesagt, Tino ist der Grösste!
Vielen Dank,funkt super, aber was ist an diesem Makro falsch,
dass es zwar beim aufzeichnen wandelt, aber über Makroaufruf nicht?
Sub Wandeln()
Range("A1:A104").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
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
Range("C2:O104").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
Range("E15").Select
End Sub