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.

 

   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800