Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Bereichsname mittels refedit auslesen?!
zurück: An letzter Position Inhalte einfügen weiter: Pivot Tabelle: Nach VBA Makro Bezug ungültig - Gelöst Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gogo0379
Excel VBA - Amateur


Verfasst am:
16. Jun 2010, 21:43
Rufname: Gogo

Bereichsname mittels refedit auslesen?! - Bereichsname mittels refedit auslesen?!

Nach oben
       Version: Office XP (2002)

hallo zusammen,

nun sitze ich den ganzen mittag schon an meinem versuch.

in einer userform habe ich ein refedit, mit dem ich eine zelle anklicke. nun möchte ich den bereichsname, in dem sich die angeklickte zelle befindet auslesen und weiter verarbeiten. wie komme ich an den name.

ich habe das gefühl, dass das ganz eionfach gehen müsste, aber mir fehlt entweder der entscheidende befehl oder ich hab n brett vorm kopf.

danke schon mal im vorraus für eure hilfe.

hg, gogo
Phelan XLPH
Fortgeschritten


Verfasst am:
17. Jun 2010, 06:22
Rufname: Phelan


AW: Bereichsname mittels refedit auslesen?! - AW: Bereichsname mittels refedit auslesen?!

Nach oben
       Version: Office XP (2002)

Hallo,

hierbei wird die Schbittmenge aller Namens-Bereich mit der aktiven Zelle
überprüft, und bei Übereinstimmung wird der Namens-Bereich rot hinterlegt

Code:
Sub ph()
    Dim n As Name
    Dim rngBereich As Range
    For Each n In ThisWorkbook.Names
        If Not Intersect(n.RefersToRange, ActiveCell) Is Nothing Then
            Set rngBereich = n.RefersToRange: Exit For
        End If
    Next
    If Not rngBereich Is Nothing Then _
    rngBereich.Interior.ColorIndex = 3
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gogo0379
Excel VBA - Amateur


Verfasst am:
17. Jun 2010, 17:03
Rufname: Gogo

AW: Bereichsname mittels refedit auslesen?! - AW: Bereichsname mittels refedit auslesen?!

Nach oben
       Version: Office XP (2002)

danke für die mühe.

jetzt hab ich das so in meinen code eingebaut, aber es kommt dann immer der laufzeitfehler 1004: Die Methode 'Intersect' für das Objekt '_Global' ist fehlgeschlagen !

beim debuggen zeigt n zuerst einen bereich aus einem anderen arbeitsblatt an. wenn ich dann die fehlercodezeile überspringe und auf next weiter gehe, dann werden andere bereichsnamen durchsucht und erst wenn die bereichsnamen vom arbeitsblatt mit der aktiven zelle (Standortplan) kommen läuft der code vollends ohne fehler zu ende.

hier mal mein code:

Option Explicit

Private Sub cmb_abbrechen_Click()
Unload Me
End Sub

Private Sub cmb_OK_Click()
Dim n As Name
Dim rngBereich As Range

Range(ref_Standort_neu.Value).Activate

For Each n In ThisWorkbook.Names
If Not Intersect(n.RefersToRange, ActiveCell) Is Nothing Then
Set rngBereich = n.RefersToRange: Exit For
End If
Next
If Not rngBereich Is Nothing Then _
rngBereich.Interior.ColorIndex = 3

Unload Me
End Sub

Private Sub ref_Standort_neu_DropButtonClick()
Worksheets("Standortplan").Activate
End Sub

der code wird aus einem anderen tabellenblatt raus gestartet.
Phelan XLPH
Fortgeschritten


Verfasst am:
18. Jun 2010, 18:16
Rufname: Phelan

AW: Bereichsname mittels refedit auslesen?! - AW: Bereichsname mittels refedit auslesen?!

Nach oben
       Version: Office XP (2002)

Teste das mal:

Code:
Sub ph()
    Dim n As Name
    Dim rngBereich As Range
    For Each n In ThisWorkbook.Names
        If n.RefersToRange.Parent Is ActiveSheet Then
            If Not Intersect(n.RefersToRange, ActiveCell) Is Nothing Then
                Set rngBereich = n.RefersToRange: Exit For
            End If
        End If
    Next
    If Not rngBereich Is Nothing Then _
    MsgBox rngBereich.Name.Name & " " & rngBereich.Name
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gogo0379
Excel VBA - Amateur


Verfasst am:
20. Jun 2010, 13:05
Rufname: Gogo


AW: Bereichsname mittels refedit auslesen?! - AW: Bereichsname mittels refedit auslesen?!

Nach oben
       Version: Office XP (2002)

nochmals danke für deine arbeit.

bei mir hat es zuerst nochmals probleme gegeben, aber die hatten ihren ursprung in undefinierten bereichsnamen bei mir. hab jetzt per code alle gelöscht und jetzt läufts einwandfrei.

es funktioniert auch schon dein erster code, den du geschickt hast.

hg, gogo
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Am letzten Arbeitstag des Monats eine Zelle auslesen 6 godzilla0012 986 13. Nov 2006, 22:52
Günni Am letzten Arbeitstag des Monats eine Zelle auslesen
Keine neuen Beiträge Excel Formeln: Wert auslesen + 1 addieren und in Zelle schreiben 3 DerEchteThomas 16438 25. Sep 2006, 11:51
DerEchteThomas Wert auslesen + 1 addieren und in Zelle schreiben
Keine neuen Beiträge Excel Formeln: Namen des Tabellenblattes auslesen? 3 Sobo 1612 29. Aug 2006, 15:38
Gast Namen des Tabellenblattes auslesen?
Keine neuen Beiträge Excel Formeln: Ziffern aus einer Seriennummer auslesen 8 Tommy1 5030 25. Jul 2006, 11:09
Gast Ziffern aus einer Seriennummer auslesen
Keine neuen Beiträge Excel Formeln: Zelle/Text mittels Formel einfärben 2 Maik 7848 12. Jul 2006, 18:02
Maik Zelle/Text mittels Formel einfärben
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Zeile auslesen / einlesen (Externe Datei) 0 MavPic 1615 07. März 2006, 12:03
MavPic Zeile auslesen / einlesen (Externe Datei)
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: 2 Tabellen mittels Sverweis zusammeführen 5 FrankH. 5019 30. Jan 2006, 17:33
fridgenep 2 Tabellen mittels Sverweis zusammeführen
Keine neuen Beiträge Excel Formeln: Zelle von links und rechts auslesen bis zum Leerzeichen 3 Sascha David 10506 17. Jan 2006, 14:31
Gast Zelle von links und rechts auslesen bis zum Leerzeichen
Keine neuen Beiträge Excel Formeln: Zahl aus Tabelle auslesen 3 Blackbumpkin 773 16. Jan 2006, 10:38
ae Zahl aus Tabelle auslesen
Keine neuen Beiträge Excel Formeln: Absolutes Maximum aus mehreren Spalten auslesen 9 gast81 1791 12. Jan 2006, 20:51
Arnim Absolutes Maximum aus mehreren Spalten auslesen
Keine neuen Beiträge Excel Formeln: daten aus anderen dateien auslesen 10 daniel düsentrieb 3807 18. Nov 2005, 15:37
daniel düsentrieb daten aus anderen dateien auslesen
Keine neuen Beiträge Excel Formeln: Mittels 2 Tabellen eine Übersicht erstellen 11 atwin97 1304 05. Okt 2005, 09:55
atwin97 Mittels 2 Tabellen eine Übersicht erstellen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage