Exitenz eines Namensbereiches prüfen ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Namen_Suchen() erstellt von Hajo.Ziplies@web.de 27.04.03 Dim ObBereich As Object Dim StName As String StName = InputBox("Bitte gesuchten Namen eingeben!!") For Each ObBereich In ActiveWorkbook.Names If ObBereich.Name = StName Then MsgBox "Name schon vorhanden" Exit Sub End If Next End Sub

Hallo Hajo,
...Vielen dank schonmal, gefunden hat er ja - aber ich bekomme dennoch eine Fehlermeldung wenn ich die Prozedure laufen lassen - könntest Du bitte einmal drauf schauen - ob ich da noch einen Gedankenfehler habe ?
Gruß
Kay

Private Sub UserForm_Initialize()
StName = "K_ATE"                                             ' Nach Namensbereich suchen
For Each ObBereich In ActiveWorkbook.Names
If ObBereich.Name = StName Then
MsgBox "Gefunden" & ObBereich
End If
Next
ActiveWorkbook.Names("K_ATE").Delete            ' löschen des Namens
ActiveWorkbook.Names.Add Name:="KATE", RefersToR1C1:= _                ' Neu anlegen des  _
Namens
"=OFFSET(ATE!R2C3:R2C3,0,0,COUNTA(ATE!C3)-1)"
ActiveWorkbook.Names("KATE").Comment = "Bereich der Kunden in ATE"
CB1.RowSource = "KATE"       'CB1 zuweisen
dann kommen noch kleine Label-Bezeichnungen
End Sub

Option Explicit Private Sub UserForm_Initialize() Dim BoVor As Boolean StName = "K_ATE" ' Nach Namensbereich suchen For Each ObBereich In ActiveWorkbook.Names If ObBereich.Name = StName Then BoVor = True Exit For End If Next If BoVor = False Then ' Dein Code End If End Sub

Hi
wenns nur ums löschen geht, kann man das auch einfach so machen:

On Error Resume Next
ActiveWorkbook.Names("KD").Delete
On Error Goto 0

durch "On Error Resume Next" macht Excel bei einem Fehler einfach mit dem nächsten Prozedurschritt weiter und bricht nicht ab.
Wenn der Name nicht vorhanden ist, braucht man ihn ja auch nicht zu löschen und Excel kann mit dem Programm weiter fortfahren.
allerdings sollte man diese Option baldmöglichst wieder deaktiveren, sonst läuft man Gefahr, fehlerhaften Code zu programmieren ohne es beim Testen zu merken.
Man wundert sich dann vielleicht über seltsame Ergebnisse, hat aber kaum eine Chance, die Fehlerursache zu finden, daher sollte man direkt dahinter wieder "On Error Goto 0" anwenden.
gruß, Daniel

Beliebteste Forumthreads (12 Monate)

Exitenz eines Namensbereiches prüfen ?

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Exitenz eines Namensbereiches prüfen ?

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread