AW: Holprig aber vieleicht hilfts
benno
https://www.herber.de/bbs/user/12177.xls
Sub Makro4()
ActiveCell.Select
Dim benno
benno = ActiveCell
ActiveCell.Offset(0, 1).Range("A1").Select
Dim benno1
benno1 = ActiveCell
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Replace What:="$", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveCell.Replace What:=(benno), Replacement:=(benno1), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveCell.Offset(1, -2).Range("A1").Select
End Sub
lg benno