Zellnamen auf Vorhandensein prüfen

• Zellnamen auf Vorhandensein prüfen von Machiavelli vom 28.09.2003 17:03:04
  • . - von . am 28.09.2003 17:09:15
  • AW: Zellnamen auf Vorhandensein prüfen - von Matthias G am 28.09.2003 17:09:23
  • AW: Zellnamen auf Vorhandensein prüfen - von Ramses am 28.09.2003 17:12:26
  • hier der 1. thread - von th.heinrich am 28.09.2003 18:49:07

Betrifft: Zellnamen auf Vorhandensein prüfen
von: Machiavelli
Geschrieben am: 28.09.2003 17:03:04
Hallo,

möchte aus einer Datei Zellenwerte ziehen über die Zellenname-Funktion. Solange der Name in der Datei vorhanden ist funktioniert das auch, wenn der Name allerdings nicht vorhanden ist, schmeißt er mir allerdings einen Laufzeitfehler. Ich möchte nun vor dem Datenziehen testen, ob der Zellname überhaupt in der Datei vorhanden ist? Ggf. über eine Function die einen Booleanwert zurückgibt, aber gerne auch anders.
Danke

Betrifft: .
von: .
Geschrieben am: 28.09.2003 17:09:15
.

Betrifft: AW: Zellnamen auf Vorhandensein prüfen
von: Matthias G
Geschrieben am: 28.09.2003 17:09:23
Hallo M.,

Function HatNamen(N As String) As Boolean
On Error GoTo KeinName
HatNamen = True
Range(N).Value = Range(N).Value 'Testbefehl zum Fehler auslösen
On Error GoTo 0
Exit Function
KeinName:
HatNamen = False
On Error GoTo 0
End Function

Viel Spaß,
Matthias

Betrifft: AW: Zellnamen auf Vorhandensein prüfen
von: Ramses
Geschrieben am: 28.09.2003 17:12:26
Hallo

probiers mal so:

Option Explicit

Sub Find_Name()
Dim myN As Name, myNOK As Boolean
myNOK = False
For Each myN In ActiveWorkbook.Names
If myN.Name = "Dein_Name" Then
myNOK = True
End If
Next
If myNOK = False Then MsgBox ("Der Name existiert nicht")
End Sub

Gruss Rainer

Betrifft: hier der 1. thread
von: th.heinrich
Geschrieben am: 28.09.2003 18:49:07
https://www.herber.de/forum/archiv/316to320/t316110.htm

Excel-Beispiele zum Thema " Zellnamen auf Vorhandensein prüfen"
Vorhandensein von Verzeichnissen prüfen und Ordner anlegen	Artikel bei Nichtvorhandensein eintragen, sonst addieren