Thema Datum  Von Nutzer Rating
Antwort
28.01.2016 16:09:41 Wolfgang
NotSolved
Blau Excel : Range Namen ermitteln
 28.01.2016 20:05:51 Gast87344
NotSolved
29.01.2016 09:45:03 Gast24033
NotSolved
29.01.2016 09:48:30 Wolfgang
NotSolved
29.01.2016 18:19:18 Gast60949
NotSolved
01.02.2016 16:42:58 Wolfgang
Solved

Ansicht des Beitrags:
Von:
Gast87344		 Datum:
28.01.2016 20:05:51		 Views:
729		 Rating:
     
Antwort:
  Ja
Thema:
Excel : Range Namen ermitteln

Hallo Wolfgang!
Hier mal eine Variante auf dich angepasst.

Sub Bereich_ansprechen()
Dim i As Long
Dim bereich

For i = 1 To ActiveWorkbook.Names.Count
 
    If InStr(1, ActiveWorkbook.Names(i).name, "DetailBereich", vbTextCompare) Then
        bereich = Split(ActiveWorkbook.Names(i), "!")
        Worksheets(Right(bereich(0), Len(bereich(0)) - 1)).Range(bereich(1)).Select
    End If
Next i

End Sub

Zur Erklärung:

ActiveWorkbook.Names.Count gibt die Anzahl aller Bereich an. Wenn keiner da ist, passiert nix. 
InStr(1, ActiveWorkbook.Names(i).name, "DetailBereich", vbTextCompare) prüft dann in jedem Bereich, ob DetailBereich vorkommt.
ActiveWorkbook.Names(i).name ist dabei der Namen in Textform 
Wenn ja geht es inner weiter.
ActiveWorkbook.Names(i) gibt den Bereich mit der Range an. Sieht aus Tabelle1!A1:B2 bspw.
Mit split Trenne ich dann den Tabellennamen und die Range und spreche das dann beim select getrennt an. 
An stelle select kannst du da auch was anderes reinmachen. 

VG

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.01.2016 16:09:41 Wolfgang
NotSolved
Blau Excel : Range Namen ermitteln
 28.01.2016 20:05:51 Gast87344
NotSolved
29.01.2016 09:45:03 Gast24033
NotSolved
29.01.2016 09:48:30 Wolfgang
NotSolved
29.01.2016 18:19:18 Gast60949
NotSolved
01.02.2016 16:42:58 Wolfgang
Solved