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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen