Namen einer Spalte ermitteln

Sub Name_für_Zellen_alle_Silos_vergeben()
Set Mappe = Workbooks("Chargenliste-NSP1.xls")
Set GB = Mappe.Worksheets("Granulatbunker")
Set DGB = Mappe.Worksheets("Daten Granulatbunker")
Set CD = Mappe.Worksheets("Chargendaten")
Set CA = Mappe.Worksheets("Chargenanalysen")
Set SP = Mappe.Worksheets("Produkte Spezifikationen")
Dim test As String
For Y = 2 To 42 Step 7
For x = 2 To 26 Step 2
On Error Resume Next
test = DGB.Cells(Y - 1, x).Name.Name
If test <> "" Then
DGB.Cells(Y, x).Name = "Charge" & test
DGB.Cells(Y + 1, x).Name = "Typ" & test
DGB.Cells(Y + 2, x).Name = "Menge" & test
DGB.Cells(Y + 3, x).Name = "Datum" & test
DGB.Cells(Y + 4, x).Name = "Zeit" & test
DGB.Cells(Y + 5, x).Name = "Gesperrt" & test
End If
test = ""
Next x
Next Y
End Sub