Hi little21,
da hab ich eh gleich das richtige vermutet. Die Lösung ist ein Makro. Im klinischen Versuch hab ich es probiert, es funktioniert und sieht so aus:
Sub Makro1()
'
' Makro1 Makro
' Makro am 16.12.00 von nn aufgezeichnet
'
'
Range("B2:B40").Select
Selection.Replace What:="=", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False
Selection.Copy Destination:=Range("A2:A40")
Range("B2:B40").Select
Selection.Replace What:=" ", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False
End Sub
Damit habe ich bei den Formeln aus Spalte B mit suchen/ersetzen Das "=" gegen Leerzeichen getauscht, alle auf Spalte A kopiert und wieder mit suchen/ersetzen in Spalte B das Leerzeichen gegen "=" ersetzt.
Voila.
------------------
Sector
|