RefersToR1C1Local Zelle.Zuordnen

Sub Makro3()
Dim N
For N = 1 To 30
ActiveWorkbook.Names.Add Name:="Ö" & N, RefersToR1C1Local:="=Zelle.zuordnen(17;Tabelle1!r[-"  _
& N & "]c)"
Next N
End Sub

Btw: Wie ermittle ich ohne Vba den Inhalt der Zelle oberhalb einer Zelle, wenn dazwischen eine unbekannte Anzahl Zeilen ausgeblendet sind?
Durch diese Problematik kam ich auf den obigen Code um dann halt in einer Riesenformel zu prüfen ob die Zelle obendrüber ausgeblendet ist oder auch die Zelle 2 Zeilen obendrüber auch usw.
Gibt es da einen viel eleganteren Ansatz?
Bei www.excelformeln fand ich leider nichts.
Danke ^ Gruß
Reinhard
Gruß
Reinhard