Gruppe
Allgemein
Problem
Wie kann ich den selben Bereichsnamen in mehreren Tabellenblättern vergeben?
StandardModule: basMain
Sub NamenVergeben()
Dim wks As Worksheet
Dim sAdr As String
sAdr = Selection.Address
For Each wks In Worksheets
wks.Range(sAdr).Name = wks.Name & "!Druck"
Next wks
End Sub