Name jeder Spalte in einer Tabelle excel/vba

Question

Ich versuche, jede Spalte in einer Excel-Tabelle durch ihre Kopfzeile zu benennen. Zum Beispiel, wenn eine Spalte die Überschrift "Katze" hat, möchte ich, dass die Spalte "Katze" genannt wird. Auf diese Weise kann ich in einer Formel auf cat verweisen, anstatt die Spalte mit A: A anzugeben.

Ich kann das ganz gut mit einer einzigen Spalte, aber wenn ich versuche, es mit vielen meiner Prozedur schlägt fehl. Hier ist mein Code.

Sub defineName() 

Dim numColumns As Long 
Range("A1").Select 
numColumns = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column 



Columns("A:A").Select 
For cat = 0 To numColumns 
    Selection.Offset(0, I).Select 
    ActiveWorkbook.Names.Add Name:=cat1, RefersToR1C1:="activesheet.cat1" 
Next cat 
End Sub 

Im ziemlich sicher, dass mein Problem ist, dieser Teil

Name:=cat1, RefersToR1C1:="activesheet.cat1" 

und es iteriert nicht, wie ich denke, es ist.

Ich wünschte fast, ich könnte

Name:=[cat]1, RefersToR1C1:="activesheet.[cat]1" 

aber das funktioniert auch nicht. Hat jemand eine Idee?

Answer 1

Siehe meinen Vorschlag oben, aber hier ist alternative Code. Das Benennen der gesamten Spalte scheint jedoch nicht sehr effizient zu sein. Nachdem ich Toms Vorschlag gesehen habe, denke ich, dass das ein besserer Ansatz ist.

Sub defineName() 

Dim numColumns As Long, cat As Long 

numColumns = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column 

For cat = 1 To numColumns 
    Columns(cat).Name = Cells(1, cat) 
Next cat 

End Sub