VBA Zellnamen überprüfen

Hallo zusammen,
ich habe das Problem, dass ich überprüfen möchte, ob eine Zelle einen Namen hat oder nicht. Falls sie einen Namen hat, soll dieser gelöscht werden. Dies funktioniert auch ganz gut, solange die Zelle einen Namen hat, aber wenn alle Namen für eine Zelle gelöscht sind, wird ein Fehler ausgegeben. Der Fehler lautet: Laufzeitfehler 1004, Anwendungs- oder Objektorientierter Fehler. Das liegt meiner Meinung nach daran, dass sobald alle Namen gelöscht sind ich nicht mehr auf Cells(j,i).name zugreifen kann. Bisher habe ich das so gemacht:
For i = 4 To k
For j = 5 To l
Do While (Cells(j, i).name "")
Cells(j, i).name.Delete
Loop
Next
Next
Kann mir jemand bei diesem Problem helfen?
Vielen Dank im Voraus!
Beste Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Namen_im_Bereich_loeschen() Dim nm As Name, Bereich As Range Set Bereich = Range("C5:D9") For Each nm In ThisWorkbook.Names If Not Intersect(Range(nm.RefersTo), Bereich) Is Nothing Then nm.Delete Next nm End Sub

Sub zellen() Dim i As Long Dim j As Long Dim k As Long Dim l As Long k = Cells(4, Columns.Count).End(xlToLeft).Column l = Cells(Rows.Count, 5).End(xlUp).Row Dim nm As name, Bereich As Range Set Bereich = Range(Cells(5, 4), Cells(l, k)) For Each nm In ThisWorkbook.Names If Not Intersect(Range(nm.RefersTo), Bereich) Is Nothing Then nm.Delete Next nm End Sub

Sub zellen() Dim i As Long Dim j As Long Dim k As Long Dim l As Long With ActiveSheet k = .Cells(4, Columns.Count).End(xlToLeft).Column l = .Cells(Rows.Count, 5).End(xlUp).Row Dim nm As Name, Bereich As Range Set Bereich = .Range(.Cells(5, 4), .Cells(l, k)) For Each nm In ThisWorkbook.Names If Not Intersect(.Range(nm.RefersTo), Bereich) Is Nothing Then nm.Delete Next nm End With End Sub

Hi,

Sub zellen()
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
With Sheets("Tabelle1")
k = 9 '.Cells(4, Columns.Count).End(xlToLeft).Column
l = 32 '.Cells(Rows.Count, 5).End(xlUp).Row
Dim nm As Name, Bereich As Range
Set Bereich = .Range(.Cells(5, 4), .Cells(l, k))
For Each nm In ThisWorkbook.Names
rng = Replace(Mid(nm.RefersTo, InStr(nm.RefersTo, "!") + 1), "$", "")
ws = Mid(nm.RefersTo, 2, InStr(nm.RefersTo, "!") - 2)
If ws = "Tabelle1" Then
If Not Intersect(Sheets(ws).Range(rng), Bereich) Is Nothing Then nm.Delete
End If
Next nm
End With
End Sub

Gruß,
Matthias

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread