Bereichsnamen mit VBA ändern
29.03.2022 12:28:14
Florian
ich versuche mit folgendem Code einen Bereichsnamen zu ändern. Allerdings wird der Name nicht geändert, sondern ich habe dann auf der gleichen Zelle den alten und neuen Namen im Namensmanager.
Sub PersonalkostenUmbenennen()
Dim wksStammdaten As Worksheet
Set wksStammdaten = ActiveWorkbook.Sheets("Stammdaten")
wksStammdaten.Range("Personalkosten").Name = "Personalaufwand"
End Sub
Wenn ich es dann so versuche den alten Namen zu löschen erhalten ich auf der "Delete-Zeile" einen Fehler 1004, wie wenn er den Namen nicht findet.
Sub PersonalkostenUmbenennen()
Dim wksStammdaten As Worksheet
Set wksStammdaten = ActiveWorkbook.Sheets("Stammdaten")
wksStammdaten.Range("Personalkosten").Name = "Personalaufwand"
wksStammdaten.Names("Personalkosten").Delete
End Sub
Danke Euch!! :)
