title image


Smiley Re: VBA - Namen dynamisch definieren
Erstmal danke für deine Hilfe.



Habe jetzt nach fast einer Stunde Tüftellei - nachdem ich auf untenstehenden Link gestoßen bin - folgenden funktionierenden Code gebastelt, vielleicht kann den ja mal jemand anderes auch gebrauchen:

Vgl. http://www.mrexcel.com/td0131.html



Sub Namen()

Sheets("Tabelle2").Activate

LastRow = Cells(65536, 1).End(xlUp).Row

LastCol = 1

MyArea = "='" & ActiveSheet.Name & "'!R2C1:R" & LastRow & "C" & LastCol

ActiveWorkbook.Names.Add Name:="Projektdefinition", RefersToR1C1:=MyArea



LastRow = Cells(65536, 1).End(xlUp).Row

LastCol = 2

MyArea = "='" & ActiveSheet.Name & "'!R2C2:R" & LastRow & "C" & LastCol

ActiveWorkbook.Names.Add Name:="Werte", RefersToR1C1:=MyArea



LastRow = Cells(65536, 1).End(xlUp).Row

LastCol = 8

MyArea = "='" & ActiveSheet.Name & "'!R2C8:R" & LastRow & "C" & LastCol

ActiveWorkbook.Names.Add Name:="Periode", RefersToR1C1:=MyArea



'[...]

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: