Werte referenzieren über Bereichsnamen
21.08.2005 20:04:45
Stephan
ich wäre dankbar für einen Ratschlag zur Verwendung von Bereichsnamen in VBA.
(Siehe Beispiel: https://www.herber.de/bbs/user/25879.xls)
Das Beispiel enthält zwei Tabellenblätter (es könnte auch weitere gleich strukturierte Blätter geben!) , welche jeweils drei benannte Zellen aufweisen nämlich: Titel, Anfangsdatum, Enddatum
Diese sind jeweils auf das einzelne Blatt bezogen und beim Einfügen eines neuen Blattes durch Kopieren eines Bestehenden werden die Namen auch wieder lokal bezogen vergeben.
Wie kann ich nun diese Namen (beziehungsweise die Werte der durch die Namen referenzierten Bereiche) richtig ansprechen?
Folgende Routine, die auch in der Beispieldatei enthalten ist, zeigt das gewünschte Prinzip, funktioniert aber nicht!
Sub WerteDrucken() 'Unter Verwendung von Namen
Dim i As Integer
For i = 1 To Sheets.Count
Debug.Print Sheets(i).Names("Titel").Value
Debug.Print Sheets(i).Names("Anfangsdatum").Value
Debug.Print Sheets(i).Names("Enddatum").Value
Next i
End Sub
Vielen Dank für eure Bemühungen
Stephan S.