Namen für Liste aus Zelle
25.02.2005 09:18:40
Gisela
ich benötige mal wieder Hilfe. Bei den beiden Makros muss der Name, im Beispiel "deMasi" immer eingegeben sein.
Da die Namen aber immer wieder wechseln, muss ich dies bisher immer im Makro ändern.
Gibt es die Möglichkeit, den Namen aus einer Zelle einzufügen. Der Name steht immer in C1.
Hier die beiden Makros, die ich jetzt verwende - allerdings mit viel Aufwand.
Sub NamenL2()
Dim nmeAct As Object
For Each nmeAct In ThisWorkbook.Names
If nmeAct.Name Like "deMasi" Then nmeAct.Delete
Next nmeAct
End Sub
und der zweite Makro
Sub NamenAnpa1()
Range("D1:D35").Select
Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= _
False
ActiveWorkbook.Names.Add Name:="deMasi", RefersToR1C1:= _
"=Patenzu!R2C4:R35C4"
Range("D1").Select
End Sub
Herzlichen Dank für Eure Hilfe
Grüße
Gisela