Vielleicht hab ich mich zu undeutlich ausgedrückt?!
Eigentlich ganz einfach für die Experten:
Mein Problem:
Ich möchte gern in verschiedenen Arbeitsblättern den Spalten, (sie besitzen aber keine Spaltenüberschrift) einen Namen vergeben. Allerdings soll der Name bzw. die Spalte nicht in jedem Arbeitsblatt vorkommen, sondern kann mit anderem Inhalt sein. Leider ist das unten stehende Macro so ausgelegt, daß es grundsätzlich in jedem Arbeitsblatt z. B. der Spalt "E" einen Namen verpaßt! und ich möchte eben im Arbeitsblatt x, y und z diesen Namen für die Spalte "E" nicht verwenden.
Hier noch das Macro:
Sub NamenVergeben()
Dim TB As Worksheet
Dim Adr$
Adr = Selection.Address
For Each TB In Worksheets
TB.Range(Adr).Name = TB.Name & "!Druck"
Next TB
Vielen Dank
H. John
End Sub