Namen für Liste aus Zelle

Bild

Betrifft: Namen für Liste aus Zelle
von: Gisela
Geschrieben am: 25.02.2005 09:18:40
Hallo
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
Bild

Betrifft: AW: Namen für Liste aus Zelle
von: Ramses
Geschrieben am: 25.02.2005 09:47:36
Hallo
ungetestet, sollte aber tun

Sub NamenL2()
Dim nmeAct As Object
For Each nmeAct In ThisWorkbook.Names
If nmeAct.Name Like Range("C1").Text 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:=Range("C1").Text RefersToR1C1:= _
        "=Patenzu!R2C4:R35C4"
    Range("D1").Select
End Sub


Gruss Rainer
Bild

Betrifft: AW: Namen für Liste aus Zelle
von: Gisela
Geschrieben am: 25.02.2005 10:22:22
HAllo Rainer,
vielen Dank für Deine Hilfe. Beim zweiten Makro kommt eine Fehlermeldung.Könntest Du da noch mal nachschauen?
Bei mir reichts leider nur für den Makrorecorder.
Liebe Grüße
Gisela

Sub NamenAnpa1()
    Range("D1:D35").Select
    Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= _
        False
    ActiveWorkbook.Names.Add Name:=Range("C1").Text RefersToR1C1:= _ ....erwartet Anweisungsende?????
        "=Patenzu!R2C4:R35C4"
    Range("D1").Select
End Sub

Bild

Betrifft: AW: Namen für Liste aus Zelle
von: Ramses
Geschrieben am: 25.02.2005 10:36:36
Hallo
das muss dann bei dir schon nicht funktioniert haben, weil ein Komma fehlte

Sub NamenAnpa1()
    Range("D1:D35").Select
    Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:=False
    ActiveWorkbook.Names.Add Name:=Range("C1").Text, RefersToR1C1:="=Patenzu!R2C4:R35C4"
    Range("D1").Select
End Sub

Gruss Rainer
Bild

Betrifft: AW: Namen für Liste aus Zelle
von: Gisela
Geschrieben am: 25.02.2005 10:48:51
Hallo Rainer,
hat bei mir funktioniert. Hinter "deMasi" steht das Komma. Hätt ich ja auch selber draufkommen können. Ja ja, im nachhinein ist man immer schlauer....
Herzlichen Dank und ein schönes Wochenende
Gisela
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Select case "