Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Namen mit =Tabelle1!#BEZUG! löschen

Namen mit =Tabelle1!#BEZUG! löschen
Stef@n
Hallo Excel-Freunde
ich aktualisiere von Zeit zu Zeit eine Datei, in der auch Namen vergeben sind.
Dabei werde die alten "Namen-svergaben" unter
- Namen - definieren
mit einem Fehler bei
- Bezieht sich auf:
ausgewiesen - z.Zt. mehrfach.
Name
Name_1
Name_2
Name_3
usw.
Jetzt versuche ich mit folgendem Code, dass die "falschen" definierten Namen gelöscht werden.
Nur leider läuft der Code nicht :O
Sub NameFehler()
Dim n As Name
For Each n In ThisWorkbook.Names
If n.RefersTo Like "*#BEZUG!" Then
n.Delete
End If
Next
End Sub
Hat jemand einen Tip für mich ?
Freu mich auf eine Antwort
Gruß
Stefn
Anzeige
Anfrage leider ändern
21.03.2011 14:28:06
Stef@n
Hallo Ralf
Danke für den Link !
Muss meine Anfrage leider ändern
Es müssen alle "Namen" gelöscht werden, die mit
Waehr_
beginnen.
Hat noch jemand einen tip ?
Danke vorab
Gruß
Stef@n
Anzeige
AW: Anfrage leider ändern
21.03.2011 14:33:23
Ralf_P
Hallo Stef@n,
wenn Du Namen mit "Waehr" löschen möchtest, versuchs mal so :
Sub Lösche_Namen_ohne_Bezug()
For Each nm In ActiveWorkbook.Names
aaa = "'" & nm
If InStr(1, aaa, "Waehr") > 0 Then
ActiveWorkbook.Names(nm.Name).Delete
End If
Next
End Sub

VG, Ralf
Anzeige
AW: Anfrage leider ändern
21.03.2011 14:48:40
Stef@n
Hallo Ralf,
... er löscht mir die Namen dabei leider nicht :|
es sind mehrere "falschen" , die aber alle mit
Waehr_
also mit Unterstrich beginnen.
Zum Teil sind sie bei "bezieht sich auf" mit
=Tabelle1!$A$220:$H$700
oder mit
=Tabelle1#BEZUG!
ausgewiesen.
Es sollen aber nur der Namensbereich behalten werden, der mit
Waehr
also ohne Unterstrich - definiert ist.
Freu mich auf einen Tip !
Gruß
Stef@n
Anzeige
AW: Anfrage leider ändern
21.03.2011 14:57:09
Ralf_P

Sub Lösche_Namen_ohne_Bezug()
For Each nm In ActiveWorkbook.Names
aaa = "Waehrung"
If InStr(1, aaa, "Waehr_") > 0 Then
ActiveWorkbook.Names(nm.Name).Delete
End If
Next
End Sub
VG, Ralf
AW: Anfrage leider ändern
21.03.2011 16:11:09
Stef@n
Hallo Ralf,
auch Dir Danke ich für deinen Tip :)
Hast mir sehr gut geholfen
besten Gruß
Stef@n
Anzeige
If n.Name Like "Waehr_*" Then ...
21.03.2011 14:35:03
Rudi
AW: If n.Name Like "Waehr_*" Then ...
21.03.2011 14:57:45
Stef@n
Hallo Rudi
Danke - aber es tut sich nichts :|
hier mal mein komplette Code
Sub Name_Mit_Fehler_waehr_()
Dim n As Name
For Each n In ThisWorkbook.Names
If n.Name Like "Waehr_*" Then
n.Delete
End If
Next
End Sub

AW: If n.Name Like "Waehr_*" Then ...
21.03.2011 15:08:31
Rudi
Hallo,
Waehr_ wirklich groß am Anfang?
Workbook mit Namen=Workbook mit Code?
Gruß
Rudi
Anzeige
AW: If n.Name Like "Waehr_*" Then ...
21.03.2011 15:23:23
Stef@n
Hallo Rudi
ja, die Namen die mit Waehr_ am Anfang (ja, W groß) sollen gelöscht werden
Was meinst du mit
Workbook mit Namen = Workbook mit Code?
Gruß
Stef@n
AW: If n.Name Like "Waehr_*" Then ...
21.03.2011 15:34:58
Rudi
Hallo,
Was meinst du mit
Workbook mit Namen = Workbook mit Code?

Steht der Code in dem Workbook mit den Namen? Denn ThisWorkbook ist immer das WB mit dem Code. Wenn nicht, ändere in ActiveWorkbook.
Gruß
Rudi
Anzeige
AW: If n.Name Like "Waehr_*" Then ...
21.03.2011 16:10:21
Stef@n
Hallo Rudi
Danke für Deinen Tip !
Hast mir sehr geholfen !
Besten Gruß
Stef@n
n. RefersToLocal Like ... owT
21.03.2011 14:24:18
Rudi
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige