Problem mit Formula
09.09.2005 14:22:21
Sebastian
Also hier der Code:
Sub J_H_F_B_ersetzen()
Dim aktPosition As Range
Set aktPosition = Selection
With Range(Cells(6, 2), Cells(65536, 2).End(xlUp))
.Replace What:="J", Replacement:="$J$", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
End With
With Range(Cells(6, 4), Cells(65536, 4).End(xlUp))
.Replace What:="H", Replacement:="$H$", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
.Replace What:="F", Replacement:="$F$", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
End With
With Range(Cells(6, 3), Cells(65536, 3).End(xlUp))
!!! .FormulaR1C1 = "=(RC[-1]-R6C2)*R[1]C[5]" !!!
.Replace What:="H", Replacement:="$H$", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
End With
Range("C1:C65536").Select
Selection.Replace What:="$H$?", Replacement:="$H$8", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:="$H$?", Replacement:="$H$8", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
aktPosition.Select
End
Sub
Die Zeile wo ich die Ausrufezeichen reingeschrieben habe is die Entscheidende.
Mit R6C2 wird mit jetzt überall wo ich die Spalte C aktivierte habe $B$6 reingeschrieben. Ich möchte aber, dass nur $B$? reinschreibt, also die Zahl läst wie siehst und keine 6 reinschreibt. Was muss ich ändern?
Wäre drigend!
Danke im voraus
Gruss Sebastian