Office: Zellennamen mit Makro ändern

Hallo,

ich möchte die Zellennamen, z.B. C17 in den Wert der in der Zelle C17 steht, zB "Hallo" ändern. Wie kann ich das über ein Makro machen?


vielen Dank

studentspower

 

Hallo,

das Beispiel hilft Dir dabei.

 

Zellenname ändern II

Hi,

das sieht schon mal gut aus, habe es etwas verändert, da ich noch mehr Zelleninhalte in Zellennamen verwandeln möchte:

Sub namen_vergeben()
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Sheet1.Range("C376:F393")
For Each Zelle In Bereich
t = ActiveCell.Value
ActiveWorkbook.Names.Add Name:=t, RefersToR1C1:=ActiveCell
Next Zelle
End Sub

Damit wird aber jeweils nur die erste Zelle umgewandelt. Wie schaffe ich es auch die anderen umzuwandeln?

vielen dank

studentspower

 

Hi,

Du kannst nicht mit "ActiveCell" arbeiten das ist bei der Schleife immer die 1. Zelle...

Versuch mal dies hier:

Code:

Sub namen_vergeben()
    Dim Zelle As Range
    Dim Bereich As Range
    Set Bereich = ActiveSheet.Range("A1:A10")
    For Each Zelle In Bereich
        t = Zelle.Value
        ActiveSheet.Names.Add Name:=t, RefersToR1C1:=Zelle
    Next Zelle
End Sub

 

super, das hat geklappt!!!

Hi und vielen Dank, dein Makro hat funktioniert Bunny!!