Autor
|
Thema: suchen nach namensfeld per makro (1535 mal gelesen)
|
thato Mitglied
Beiträge: 66 Registriert: 20.04.2007
|
erstellt am: 21. Jan. 2008 18:43 <-- editieren / zitieren --> Unities abgeben:
moin, ich habe folgendes problem: meine Spaltenüberschriften habe ich per Namensfeld deklariert. Jetzt möchte ich im Makro nach dem Feld "Preis" suchen und dann einen bestimmten Bereich DARUNTER selektieren. Habe bisher mi dem Befehl set = Range("Preis") oder so ähnlich (das Makro liegt mir gerade nicht vor) das Feld Preis auch selektieren können. Allerdings habe ich dann keine Möglichkeit gefunden den Bereich unter der Zelle zu markieren. ich hoffe es versteht jemand was ich will achso, einen anderen Weg habe ich auch probiert. habe per Schleife in den Zeilen und Spalten nach dem namen gesucht. da hatte ich das Problem, dass bei einem Zeilenumbruch das Wort nicht gefunden wird. verständlicher: "Tür-Vorsteher" ist nach dem "-" mit Alt+Enter "getrennt". Durch den Umbruch findet er keine Übereinstimmung.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
okl Mitglied Wirtsch-Ing (Maschbau)
Beiträge: 157 Registriert: 21.04.2006 3,6 GHz, 2 GB RAM, NVIDIA Quadro FX 1300, Delmia V5R16 SP1, Win XP Prof SP2, Office 2003, VS 2005, VB 6
|
erstellt am: 21. Jan. 2008 18:55 <-- editieren / zitieren --> Unities abgeben: Nur für thato
Moin! Code: For Each Item In ThisWorkbook.Names i = Item.RefersToRange.Column Next
Mit diesem Codeschnipsel durchläufst Du jede anders benannte Zelle und bekommst den Spaltenindex ausgegeben. Danach kannst Du alles selektieren, was Du möchtest. Wenn Du den Namen Deiner Refernz kennst, geht auch Code: Application.Goto Reference:=MeinNameAlsString
Dann stehst Du mit dem Curor auf der so benannten Zelle/dem benannten Bereich. Ich hoffe, dass das hilft und ich Dich richtig verstanden habe. Grüße, Ole Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
thato Mitglied
Beiträge: 66 Registriert: 20.04.2007
|
erstellt am: 21. Jan. 2008 19:09 <-- editieren / zitieren --> Unities abgeben:
|
okl Mitglied Wirtsch-Ing (Maschbau)
Beiträge: 157 Registriert: 21.04.2006 3,6 GHz, 2 GB RAM, NVIDIA Quadro FX 1300, Delmia V5R16 SP1, Win XP Prof SP2, Office 2003, VS 2005, VB 6
|
erstellt am: 21. Jan. 2008 19:16 <-- editieren / zitieren --> Unities abgeben: Nur für thato
|
thato Mitglied
Beiträge: 66 Registriert: 20.04.2007
|
erstellt am: 21. Jan. 2008 20:21 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|