Frage an Leo
08.09.2005 14:10:30
Sebastian
ich hätte noch ne kleine Frage zu meinen Code:
ub J_H_F_B_ersetzen()
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
End Sub
Ich aktiviere meinen Zellenbreich, in dem die Zellnamn absolut gesetzt werden sollen.
Nach dem Beenden des Ganzen ist die Spalte C aktiviert. Gibts einen Befehl das wieder der Bereich aktiviert ist, der am Anfang markiert war.
Gruss Sebastian