Namenfelder per VBA ansprechen

Namenfelder per VBA ansprechen via ActiveWorkbook.Names
Sub Summe_der_Namenfelder()
Dim name1 As Name, name2 As Name
Dim x As Double, y#, summe#
'Bereiche zuweisen
Set name1 = ActiveWorkbook.Names("mengen01")
Set name2 = ActiveWorkbook.Names("mengen02")
'Bereich mit einer Zelle
x = ActiveSheet.Range(name1).Value
'Bereich mit mehreren Zellen!
y = Application.WorksheetFunction.Sum(Range(name2))
'Summe bilden
summe = Format(y + x, "###0.00 ")
Set name1 = Nothing
Set name2 = Nothing
End Sub
'Hier wird der Namensbereich per Makro in den Vordergrund gebracht:
Sub Namensbereich_direkt_aktivieren()
Application.Goto Reference:= _
ActiveWorkbook.Names("DerName").Name
End Sub
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.