With ThisWorkbook.Names(sRng).RefersToRange ?
04.12.2012 16:41:30
Peter
Ich habe die Lösung, versteht aber nicht ...
... weshalb mit untenstehnde Formel die letzte Spalten-Nr. korrekt ermittelt.
Weshalb erhalte ich mit der Funktion nLetzteSpalte die korrekte Spaltennumer der letzten Spalte eines Bereiches? .Cells.Count liefert doch die Anzahl Zellen eines Bereiches.
Kann mir jemand Berechnung dieser Funktion erklären?
Vielen Dank und Gruss, Peter
Function nLetzteSpalte(sRng As String) As Long ''''Funktioniert auch, wenn ThisWorkbook _
nicht aktiv ist
With ThisWorkbook.Names(sRng).RefersToRange
nLetzteSpalte = .Cells(.Cells.Count).Column
'Debug.Print .Name
Debug.Print .Cells.Count
'Debug.Print nLetzteSpalte
End With
End Function
https://www.herber.de/bbs/user/82888.xlsm