| 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 |
|
zurück