Office 2003: Namensliste mit Werten

[maximumm]

Hallo,

unter Excel 2003 lässt sich eine Liste mit den definierten Bereichsnamen einfügen. Die Liste wird über das Menü >Einfügen >Namen >Einfügen >Schaltfläche Liste hinzugefügt. Eingefügt wird der Name und die Zelladresse.

Soweit so gut. Gibt es aber auch eine Möglichkeit, zusätzlich noch den Wert des Namens neben der Zelladresse auszugeben?

Vielen Dank für euere Antworten und Tipps

LG

Max

[Officer]

Hallo Max,

das lässt sich ganz leicht mit einer Formel erledigen.
Wenn Du die Liste eingefügt hast, kannst Du mit Hilfe einer Formel den Wert ermitteln, der sich hinter dem eingefügten Zellbezug verbirgt.

Im Beispiel, siehe Anhang, wurde die Liste ab Zelle E2 eingefügt. Die Zellbezüge befinden sich demnach am Zelle F2. Mit Hilfe der folgenden Formal kann dann der Wert ermittelt werden: =INDIREKT(RECHTS(F2;LÄNGE(F2)-1))

Diese Formel einfach soweit wie nötig nach unten ziehen und du hast für alle Namen den entsprechenden Zellinhalt ausgelesen.

Gruß

Officer

[ae]

Guten Morgen zusammen,

na, da will ich doch glatt zeigen, dass ich auch schon wach bin.
Da ich sehr viel mit SAP basierten Auswertungen zu tun habe und oft eine Vielzahl von Namen verwende, nutze ich meist VBA für diese Aufgabe.
Das Tabellenblatt Namen wird automatisch beim Aktivieren zunächst geleert und dann erneut mit den entsprechenden Namen, Bereichen und Werten gefüllt.

Code: Visual Basic

1. Private Sub Worksheet_Activate()
2. Dim zeile As Long
3. Dim n As Name
4. 'Bildschirmaktualisierung ausschalten
5. Application.ScreenUpdating = False
6.  
7. 'Die bereits vorhandenen Daten werden gelöscht
8. ActiveSheet.Cells.ClearContents
9.  
10. 'Die Überschriften in A1 und B1 werden gesetzt
11. ActiveSheet.Range("A1") = "Verwendeter Name"
12. ActiveSheet.Range("B1") = "Bereich des Namens"
13. ActiveSheet.Range("C1") = "Bereich des Namens"
14.  
15. 'Die Startzeile wird auf 2 gesetzt
16.     zeile = 2
17.      
18. 'In der For werden in Spalte A der jeweilige Name und
19. 'in Spalte B der dazugehörige Bereich eingetragen
20.  
21.      For Each n In ActiveWorkbook.Names
22.          Cells(zeile, 1) = n.Name
23.          Cells(zeile, 2) = "'" & n.RefersTo
24.           Cells(zeile, 3) = Format(n.RefersTo, 0)
25.          zeile = zeile + 1
26.      Next n
27. 'Da SAP häufig als Text formatiert bügle ich mit Daten Text in Spalten drüber
28.    
29. Columns("C:C").Select
30.     Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
31.         TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
32.         Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
33.         :=Array(1, 1), TrailingMinusNumbers:=True
34. Range("A1").select
35. 'Bildschirmaktualisierung wieder einschalten
36. Application.ScreenUpdating = True
37. End Sub
38.  

Die Datei habe ich mal als Beispiel angehängt.

[maximumm]

Hallo,

vielen Dank für die beiden Ansätze per Formel und VBA. Ich denke, dass ich beides verwenden werde.

Cu

Max