Wer kann mir helfen?
Sub NamenZeile()
Dim lngRow As Long
Dim varAdre As String
Dim intpointer1 As Integer
Dim intpointer2 As Integer
varAdre = ActiveWorkbook.Names("tost").RefersToR1C1
intpointer1 = InStr(1, varAdre, "!R")
intpointer2 = InStr(intpointer1, varAdre, "C")
lngRow = Mid(varAdre, intpointer1 + 2, intpointer2 - intpointer1 - 2)
End Sub
Sub oder_so()
MsgBox Range("Test").Row
End Sub