Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige