Nochmal Problem mit Formula
14.09.2005 12:03:03
Sebastian
weil meine Beiträge nicht mehr im Forum stehen schreib ich,den von gestern nochmal rein.
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
!! Posz = ActiveCell.Row
!!Selection.Replace What:="$B$6", Replacement:="$B$Posz", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
aktPosition.Select
End Sub
Wie schon gesagt möchte ich eine Variable deklarieren, in der die Zeilennummer von der Zelle links oben im aktivierten Zellenbereich(die weiß bleibt)steht. Ich weis leider nicht wie die genaue Syntax aussieht.
Gruss Sebastian