RANG per Makro
18.02.2005 21:12:28
Peter
ich versuche die Funktion RANG in ein Makro
einzubauen.
Irgendwo hat sich ein Fehler eingeschlichen,
den ich nicht finde.
Wer kann helfen?
Peter
Sub Rangfolge()
Dim sh As Worksheet
Dim z%
Set sh = ActiveSheet
lastRow = IIf(Range("B65536") <> "", 65536, Range("B65536").End(xlUp).Row)
z = 3
Do Until IsEmpty(sh.Cells(z, 2)
Set rng = sh.Range("B3:B" & lastRow)
'= RANG(B3;$B$3:$B$20)
sh.Cells(z, 3) = Evaluate("=RANG(" & sh.Cells(z, 2).Address & ";" & rng.Address)
z = z + 1
Loop
End Sub