Range.Column (Excel)
Gibt die erste Spalte am Anfang des angegebenen Bereichs als Zahl zurück.
Spalte A entspricht dem Rückgabewert 1, Spalte B dem Wert 2 usw. Die Zahl der letzten Spalte im Bereich können Sie folgendermaßen zurückgeben: myRange.Columns(myRange.Columns.Count).Column
Dim lngColumn As Long
lngColumn = ActiveCell.Column