Sub read_in()
starte_hier = ActiveWorkbook.Worksheets("BLATT_A").Range("B1").Value
hoehe = ActiveWorkbook.Worksheets("BLATT_A").Range("B2").Value
laenge = ActiveWorkbook.Worksheets("BLATT_A").Range("B3").Value
Dim array__(1 To 100, 1 To 100) As Double
Range(starte_hier).Select
For k = 1 To hoehe
    For i = 1 To laenge
        array__(k, i) = ActiveCell.Value
        MsgBox array__(k, i)
        ActiveCell.offset(0, 1).Select
        If i = laenge Then
            ActiveCell.offset(1, -laenge).Select
        End If
    Next i
Next k

MsgBox "hier sollte 0,7 raus kommen ......."
MsgBox array__(5, 3) ' sollte 0,7 sein!

End Sub