Hi rainberg,
so jetzt hab ichs mal getestet und mit den vorhandenen Beispieldaten geht das auch wunderbar.
Da meine Daten natürlich anders aussehen, also noch mit einem Header und so Zeugs kannst du mir sicher sagen wo man in deinem Macro den Bereich eingrenzt in dem die Ersetzungen gemacht werden sollen.
Ich bräuchte sowas wie, erst ab Zeile x und nur die Spalten B, C und F.
Leider kann hier sogar das x sich verändern da drüber die Tage eines Monats angezeigt werden die ja mal 30 mal 31 sind. Darunter kommen dann erst Daten die angepasst werden müssen in den Spalten B, C und F die aber auch eine Überschrift haben.
Zum besseren Verständnis poste ich hier mal den Macrocode, daran kann man glaube ich ganz gut erklären was wo gemacht wird.
[code]Sub Makro1()
'
' Makro1 Makro
'
' Tastenkombination: Strg+a
'
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:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="#", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1)), TrailingMinusNumbers:=True
End Sub[/code]
Vielen Dank schon mal
Fabian
