Gleiche Bereichsnamen in allen Tabellen
08.03.2008 21:36:00
Peter
Ich möchte mit nachfolgendem Makro in einem Workbook in allen Tabellen den gleichen Bereichsnamen definieren (beim Fenster "Namen definieren" ist dann jeweils links der Name und rechts die aktive Tabelle ersichtlich)
Wenn ich den Makro laufen lasse, gelingt dies nur in der ersten Tabelle. Bei Blatt 2 erhalte ich eine Fehlermeldung (Anwendungs- oder Objektdefinierter Fehler) bei der Zeile Set Bereich.
Was ist da falsch?
Danke für eine Rückmeldung.
Peter
Sub AA()
Dim lngAnf As Long, lngEnd As Long
Dim NM As String
Dim i As Integer
Dim Bereich As Range
lngAnf = 1
lngEnd = 10
ThisWorkbook.Activate
For i = 1 To ActiveWorkbook.Worksheets.Count
NM = Worksheets(i).Name
Set Bereich = Worksheets(i).Range(Cells(lngAnf, 1), Cells(lngEnd, 1)) 'Spalte A
ActiveWorkbook.Names.Add _
Name:=NM & "!_Cx", _
RefersTo:=Bereich, Visible:=True
Next i
End Sub
Anzeige