VBA Suchen-Finden-Namen rein ?
11.05.2006 13:07:48
HorstH
meine Basteleien für folgendes Vorhaben bringen nichts. Wer greift mir mit einem script unter die Arme?
Suche in N einen String (Erstgefundenen), gehe in der Zeile zu A und trage einen best. Namen ein. Dies für 8 versch. Strings.=8 versch. Namen (Zellnamen).
Ausführlicher:
Benötigt für UserForm (TreeView etc. bereits fertig):
1 Mappe mit 14 sheets, Struktur alle gleich, in Spalte A soll jeweils ein Name (z. B. ActiveWorkbook.Names.Add Name:="Monat.01.Findorff", RefersToR1C1:="='01'!R20C1" bei fester Zelle)
eingetragen werden (soll bestehen aus "Monat." & Registernamen & "." & Zelle N (rechts(N?;3;15))<=Original"1 Findorff" oder "7 Ostertor" soll werden "Findorff" oder "Ostertor"
Vorbedingung:
Suche in Spalte N das erste Zeichen (hier rechts(N?;1;1) = 1 , gehe in der Zeile zur Spalte A und trage in diese Zelle obigen Add Name ein.
In jedem sheet (alle 14) sollte dies vollführt werden mit 8 Namen: in Spalte N soll also für Namen gefunden werden 1, dann 2 ... bis 8.
Zuvor sollten alle Namen gelöscht werden. Hintergrund: Die Zeilen variieren und somit kann kein fester Zellbezug für die Namensvergabe genommen werden. Oder weiß jemand besseres?
Vielleicht umständlich erklärt. Trotzdem - welcher Pfiffige kann mir mit einem script weiterhelfen - ich schaffe das nicht richtig. Danke für jede Mühe und Tipps im voraus!!
Gruß
Horst