Mit untenstehendem Code kann ich den Bereichsnamen des selektierten Bereichs löschen.
Die auskommentierten Zeilen laufen nicht. Damit möchte ich folgendes erreichen.
Ein bestimmter Bereich oder eine Zelle, kann mehr als einen Bereichsnamen enthalten. Mit
Anz = Selection.Offset(0,0).Names.Count möchte ermitteln, wieviele Namen der selektierte Bereich (oder die Zelle) enthält. Falls das Ergebnis null ist, gibt es nichts zu löschen, anderenfalls soll Select Case entsprechend der Anzahl Namen durchlaufen werden.
Zudem liefert mir die MsgBox nur den Bereichs- oder Zellbezug. Ich möchte jedoch in der MsgBox den Namen, der dann gelöscht wird aus Ausgabe erhalten.
Wer kann mir helfen?
Danke und Gruss, Peter
Sub NamenWeg()
Dim Anz As Long, i As Long
'''Anz = Selection.Offset(0, 0).Names.Count
'''if Anz = 0 then GoTo Ende
''' For i = 1 To Anz
Select Case MsgBox(Selection.Offset(0, 0).Name, vbInformation + vbYesNo)
Case vbYes: Selection.Offset(0, 0).Name.Delete
Case vbNo: GoTo WeiterBeiNein
End Select
WeiterBeiNein:
''' Next i
Ende:
End Sub