VBA Name einfügen.
04.02.2013 09:57:30
Falk
folgendes Makro soll einer bestimmten Zelle eines jeden Tabellenblattes (z.B. A1) den gleichen Namen (z.B. Test1)mit dem Tabellenblattnamen (z.b. Tabelle1)geben.
Also für A1 in Tabelle1 wäre der Name dann Tabelle1_Test1, für A1 in Tabelle2 also Tabelle2_Test1.
Sub Namen_vergeben()
Dim SN As Worksheet
Dim x As Integer
x = ActiveWorkbook.Sheets.Count
For a = 1 To x
ActiveWorkbook.Worksheets(a).Select
Activesheet.Names.Add Name:=ActiveWorkbook.Worksheets(a).Name &"_Test1", RefersToR1C1:= _
"Tabelle"&a&"! R1C1"
Next
End Sub
Irgendwo ist aber ein Fehler in dem Teil ReferstoR1C1 enthalten, wenn ich nämlich ReferstoToR1C1:="Tabelle1!R1C1" schreibe funktioniert das.Und
Wenn ich Activebook verwende, gibt kommt es auch zu einer Fehlermeldung, warum? Ich brauch aber beide Versionen einmal mit Activesheet und ActiveBook.
Danke für die Hilfe im voraus ...
Gruß
Falk