VBA-Beispiel 100
mail schreiben
mail schreiben

Zellnamen entfernen

Alle Zellnamen dieser Mappe in einer UserForm auflisten und zum löschen anbieten.
Option Explicit
Dim Zellname As Name

Private Sub ListBox1_Click()
Dim Antwort As Integer

Application.Goto Reference:=ListBox1.Value ', Scroll:=True

Antwort = MsgBox("Zellname """ & ListBox1.Value & """ löschen?", vbYesNo, "")

If Antwort = 6 Then
  ThisWorkbook.Names(ListBox1.Value).Delete
  Unload Me
  Call zeige
End If

End Sub


Private Sub UserForm_Initialize()

For Each Zellname In ThisWorkbook.Names
  ListBox1.AddItem Zellname.Name
Next

End Sub


Private Sub cmb_Cancel_Click()
  Unload Me
End Sub  



Sub zeige()
  usf_Zellnamen.Show
End Sub

Download:   vba100.zip