Spaltenbeschriftung auslesen

In diesem Beispiel zeigen wir Ihnen, wie sich die Spaltenbeschriftung, also die Buchstaben der Spalten z. B. A, B, C, etc. über eine benutzerdefinierte Funktion (UDF) auslesen lässt.

Mit Hilfe der in Excel integrierten Standardfunktion =SPALTE(Bezug) kann die Spaltennummer ausgelesen werden. So liefert die Formel =SPALTE(E11) die Spaltennummer 5 zurück, da die Spalte E die fünfte Spalte auf dem Tabellenblatt ist.

Umgekehrt gibt es keine Standardfunktion, um den Buchstaben E der fünften Spalte zu ermitteln. Um dies zu realisieren, erfassen Sie einfach folgenden VBA-Code in einem neuen Code-Modulblatt.

Public Function Spaltenbezeichnung(intSpaltennummer As Integer) As String
  If intSpaltennummer <= 0 Or intSpaltennummer > Columns.Count Then
    Spaltenbezeichnung = CVErr(xlVar)
  Else
    Spaltenbezeichnung = Left$(Cells(1, intSpaltennummer).Address(False, False), _
      Len(Cells(1, intSpaltennummer).Address(False, False)) - 1)
  End If
End Function

Wenn Sie nun die neue Funktion =SPALTENBEZEICHNUNG(5) in eine beliebige Zelle eingeben, erhalten Sie als Ergebnis die Spaltenbezeichnung E für die fünfte Spalte.

Um nun beispielsweise in einer Zeile die Spaltenbezeichnungen dynamisch einzutragen, können Sei die beiden Funktionen SPALTENBEZEICHNUNG() und SPALTE() kombinieren.

Tragen Sie beispielsweise in Zelle A3 die Formel =SPALTENBEZEICHNUNG(SPALTE()) ein und kopieren Sie diese über das Ausfüllkästchen bis zur Spalte K nach rechts. Damit werden die Spaltenüberschriften A-K automatisch eingetragen, siehe Abbildung.