Range Definition

Sub Steigung()
Dim i As Integer
Dim p As Integer
Dim rg1 As Range
Dim rg2 As Range
i = 9
p = 10
Do
i = i + 1
p = p + 1
If IsEmpty(Worksheets("Tabelle2").Cells(p, 3)) Then Exit Do
Loop
Worksheets("Tabelle2").Activate
Set rg1 = Worksheets("Tabelle2").Range(Cells(10, 3), Cells(p, 3))
Worksheets("Tabelle1").Activate
Set rg2 = Worksheets("Tabelle1").Range(Cells(9, 5), Cells(i, 5))
Worksheets("Tabelle3").Activate
Range("A1").FormulaLocal = "=STEIGUNG( " & rg1 & ";" & rg2 & ")"
End Sub