Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ActiveWorkbook.Names.Add - nicht ausgew. Sheet

ActiveWorkbook.Names.Add - nicht ausgew. Sheet
Peter
Guten Tag
Mit nachfolgender Codezeile definiere ich in im Sheet "Tabellenliste" den Bereich "XTabellen".
Leider funktioniert das jedoch nur, wenn die Tabelle "Tabellenliste" auch ausgewählt ist. Wie muss ich den Code anpassen, dass die Bereichsdefinition klappt, wenn eine andere Tabelle innerhalb von ActiveWorkbook ausgewählt ist?
Danke für eine Antwort.
Gruss, Peter
ActiveWorkbook.Names.Add Name:="XTabellen", RefersTo:=Sheets("Tabellenliste").Range(Cells(1, 1), Cells(58, 1))

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
richtig referenzieren!
23.11.2010 11:53:02
Erich
Hi Peter,
hattest du dieses Problem nicht gerade schon einmal? Ich meine
https://www.herber.de/forum/archiv/1188to1192/t1188230.htm
Probier mal

Sub abc()
ActiveWorkbook.Names.Add Name:="XTabellen", RefersTo:= _
Sheets("Tabellenliste").Range(Sheets("Tabellenliste").Cells(1, 1), _
Sheets("Tabellenliste").Cells(58, 1))
ActiveWorkbook.Names.Add Name:="XTabellen", RefersTo:= _
Range(Sheets("Tabellenliste").Cells(1, 1), _
Sheets("Tabellenliste").Cells(58, 1))
With Sheets("Tabellenliste")
ActiveWorkbook.Names.Add Name:="XTabellen", RefersTo:= _
.Range(.Cells(1, 1), .Cells(58, 1))
End With
' bringt Fehler 1004, wenn Sheets("Tabellenliste") nicht akriv ist:
MsgBox Sheets("Tabellenliste").Range(Cells(1, 1), Cells(58, 1)).Address
End Sub
Cells(1, 1) ist die Zelle A1 auf dem gerade aktiven Blatt.
Damit kann man einfach kein Range auf dem (anderen) Blatt "Tabellenliste" aufziehen.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: richtig referenzieren!
23.11.2010 12:00:08
Peter
Hallo Erich
Danke für die Antwort. Doch dieses Problem hatte ich - habe jedoch nicht die richtige Brücke geschlagen. Doch langsam aber sicher dämmerts mir - und verstehe die "Trageweite", wenn in einem Code nur "Cells" steht!
Danke vielmals.
Gruss, Peter

208 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige