Inhaltsverzeichnis
Die Standardfunktion „Spalte“ von Excel gibt die Zahl und nicht den Buchstaben der Spalte zurück, z.B.:
Spalte(E4) - gibt die Zahl 5 anstelle des Buchstabens E . zurück
Column(AD12) gibt die Zahl 30 statt AD zurück.
Die folgende Funktion gibt den Buchstaben und nicht die Nummer der Spalte zurück. In den obigen beiden Beispielen haben wir also die Buchstaben E bzw. AD. Die Routine gibt leer zurück, wenn mehr als eine einzelne Zelle referenziert wird:
Funktion Alpha_Column(Cell_Add As Range) As String Dim No_of_Rows As Integer Dim No_of_Cols As Integer Dim Num_Column As Integer No_of_Rows = Cell_Add.Rows.Count No_of_Cols = Cell_Add.Columns.Count If ((No_of_Noof) "" Exit Function End If Num_Column = Cell_Add.Column If Num_Column < 26 Then Alpha_Column = Chr(64 + Num_Column) Sonst Alpha_Column = Chr(Int(Num_Column / 26) + 64) & Chr((Num_Column Mod 26) + 64) Ende Wenn Endfunktion
