Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: maximumm am Dezember 14, 2011, 21:08:15 Nachmittag

Titel: Office 2003: Namensliste mit Werten
Beitrag von: maximumm am Dezember 14, 2011, 21:08:15 Nachmittag
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

Titel: Antw:Office 2003: Namensliste mit Werten
Beitrag von: Officer am Dezember 15, 2011, 07:21:18 Vormittag
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
Titel: Antw:Office 2003: Namensliste mit Werten
Beitrag von: ae am Dezember 15, 2011, 07:45:54 Vormittag
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.
Titel: Antw:Office 2003: Namensliste mit Werten
Beitrag von: maximumm am Dezember 15, 2011, 08:49:50 Vormittag
Hallo,

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

Cu

Max