Namen löschen nicht möglich
15.05.2008 14:27:00
Ingo
Daher dachte ich mir, mit VBA sollte es ja kein Problem sein. Aber jegliche Möglichkeit die ich ausprobiert habe, führt zum "Laufzeitfehler 1004 Der eingegebene Name ist ungültig" oder löscht nicht alle Namen.
Hier mal die VBA Beispiele:
Sub DeleteAllNames()
Dim n As Name
For Each n In Names
n.Delete
Next
End Sub
oder
Sub AlleNamenLoeschen2()
Dim varName As Name
Dim intResponse As Integer
intResponse = MsgBox("Moechten Sie alle Namen loeschen?", _
vbYesNo, "Namen löschen")
If intResponse = vbNo Then Exit Sub
For Each varName In ActiveWorkbook.Names
varName.Delete
Next varName
End Sub
Jemand eine Idee ?
Anzeige