Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub NamenLoeschen()
   Dim nme As Name
   Dim rng As Range
   Dim sNew As String
   For Each nme In ThisWorkbook.Names
      For Each rng In ActiveSheet.UsedRange.Cells
         If rng.HasFormula Then
            If InStr(rng.Formula, nme.Name) > 0 Then
               sNew = nme.RefersTo
               sNew = Right(sNew, Len(sNew) - 1)
               rng.Replace nme.Name, sNew
            End If
         End If
      Next rng
      nme.Delete
   Next nme
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Funktion und Vba