Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Prüfen ob Bereichsname schon vorhanden ist

Forumthread: Prüfen ob Bereichsname schon vorhanden ist

Prüfen ob Bereichsname schon vorhanden ist
18.02.2004 09:55:30
Rainer Flaßpöhler
Hallo VBAler,
wie prüfe ich ob ein Bereichsname schon vorhanden ist?
"Bitte nicht mit For each ..."
Geht es auch ohne Schleife?
Rainer
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Bereichsname schon vorhanden ist
18.02.2004 10:01:32
Matthias G
Hallo Rainer,
das geht mit dem On-Error-Trick:

Function Name_vorhanden(n As String) As Boolean
Dim dummy As String
On Error GoTo nein
dummy = Range(n).Address
'kein Fehler:
On Error GoTo 0
Name_vorhanden = True
Exit Function
nein:
On Error GoTo 0
Name_vorhanden = False
End Function

Gruß Matthias
Anzeige
AW: Prüfen ob Bereichsname schon vorhanden ist
18.02.2004 10:28:28
Rainer Flaßpöhler
Danke Matthias, aber ich meine schon mal eine Lösung
ohne "On Error GoTo" geshehen zu haben.
Mit ...names.count oder so ähnlich.
Rainer
AW: Prüfen ob Bereichsname schon vorhanden ist
18.02.2004 10:34:01
Matthias G
Hallo Rainer,
das wird dann wohl doch eine Schleife gewesen sein:
For i=1 to Names.Count
If Names(i)=MeinName Then ...
usw.
Next i
Gruß Matthias
Anzeige
AW: Prüfen ob Bereichsname schon vorhanden ist
18.02.2004 10:45:59
Rainer Flaßpöhler
Hallo Matthias,
es war keine Schleife.
Kann ich einen vorhandenen Bereichsnamen
mit ..names.count abfragen?
If ...names.count = 1 Then Msgbox "Bereichsname vorhanden"
So ähnlich hat die Lösung ausgesehen.
Rainer
AW: Prüfen ob Bereichsname schon vorhanden ist
18.02.2004 10:51:57
AndreasS
Hi, hier mal ein Bsp. von Hajo. Vielleicht hilft es dir weiter:

Sub Namen_Suchen()
'   erstellt von Hajo.Ziplies@web.de 27.04.03
Dim ObBereich As Object
Dim StName As String
'natürlich brauchst du die Inputbox nicht unbedingt...
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

Gruß Andreas
Anzeige
AW: Prüfen ob Bereichsname schon vorhanden ist
18.02.2004 10:55:15
Rainer Flaßpöhler
Danke Andreas,
aber ich suche nach einer Lösung ohne Schleife
Rainer
AW: Prüfen ob Bereichsname schon vorhanden ist
18.02.2004 10:57:05
Matthias G
Hallo Rainer,
also entweder On Error oder Schleife, was anderes geht nicht. Wie auch?
Gruß Matthias
AW: Prüfen ob Bereichsname schon vorhanden ist
18.02.2004 11:13:17
AndreasS
Hi,
leider gehts nicht ohne Schleife oder error.
Gruß Andreas
Anzeige

Forumthreads zu verwandten Themen

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