Formel in variable zeile eintragen
11.03.2004 11:38:03
Stefan
habe mit hilfe von christoph (danke nochmal) folgendes makro erstellt
mein problem ist nur, das ich nicht weiß ob die erste formel wirklich in c1 eingetragen werden darf. wie kann ich es machen, das die formel in spalte c dort eingetragen wird, wo in spalte b auch die erste zahl steht?
beispiel, wenn in der erste wert in celle b5 steht, dann muß die formel in c5 eingetragen werden
vielen dank für eure hilfe
Sub Formel()
Dim letzteR As Integer
Dim i As Integer
Selection.SpecialCells(xlLastCell).Select
letzteR = ActiveCell.Row
Range("A1").Select
Do
If ActiveCell.Value = "*" Then
i = ActiveCell.Row
lz = [a65536].End(xlUp).Row
[c1] = "=IF(B" & 1 & "="""","""",if(B" & 1 & "=" & 0 & ","""",_
if($B$" & i & "="""","""",if($B$" & i & "=" & 0 & ","""",_
B" & 1 & "/$B$" & i & "))))"
[c1].AutoFill Destination:=Range("C1:C" & lz), Type:=0
Range("C1:C" & lz).Select
Selection.NumberFormat = "0.0%"
End If
ActiveCell.Offset(1, 0).Select
Loop While ActiveCell.Row kleiner= letzteR
End Sub