Spaltenbuchstabe aus (erster) Range-Spalte ableit.
Peter
Mit nachfolgender Funktion leite ich aus einem benannten Bereich den Spaltenbuchstaben ab.
Beispiel:
In Tabelle "Tabelle1" wird Zelle B14 mit "ABC" benannt.
In B15 trage ich folgende Funktion ein:
=spBuNa(abc)
Das Ergebnis liefert mir - wie gewollt - "B"
Weshalb erhalte ich, wenn ich im Direktbereich ?spBuNa(abc) eintrage die Fehlermeldung:
"Feler beim Kompilieren: Argumenttyp ByRef unverträglich"
Gruss, Peter
Function spBuNa(sName As Range) As String
Dim lngSpa As Long, rg As String
lngSpa = [sName].Column
rg = Cells(1, lngSpa).Address(True, False)
spBuNa = Left(rg, InStr(1, rg, "$") - 1)
End Function