AW: Einzelwerte aus Summen kopieren
19.05.2008 15:39:51
David
Hi.
Sub Makro1()
Range("A1:A9").Replace What:="=", Replacement:="'", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1:A9").Replace What:="+", Replacement:=";+", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1:A9").Replace What:="-", Replacement:=";-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1:A9").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)), _
_
TrailingMinusNumbers:=True
End Sub
Das zeichnet der Makrorecorder für die von Daniel beschriebenen Arbeitsschritte auf. Die Range-Anweisung müsste man natürlich entsprechend deiner Tabelle anpassen, aber ansonsten sollte das so klappen.
Gruß
David