HERBERS Excel-Forum - das Archiv
Thema: Abfrage ob Zellname vorhanden | Herbers Excel-Forum
Abfrage ob Zellname vorhanden
Martin
Hallo zusammen,
ich müsste bestimmen ob ein Zellname bereits vergeben ist, wenn ja dann werden die Zellen darunter ausgefüllt wenn nein wird weitergesprungen. Gibt es dafür einen Code?
Dabei wollte ich vermeiden mit den error Handlern rumzubasteln. Also einfach davor auf on error goto weiter usw. Das funktioniert ja dann doch ehe sekten
Danke und Gruß Martin
AW: Abfrage ob Zellname vorhanden
Josef
Hallo Martin,
' **********************************************************************
' Modul: Modul4 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub test()
Dim rng As Range
Dim strName As String
strName = "testname"
If nameExist(strName) Then Set rng = Range(strName)
End Sub
Function nameExist(ByVal myName As String) As Boolean
Dim nName As name
For Each nName In ThisWorkbook.Names
If nName.name = myName Then
nameExist = True
Exit For
End If
Next
End Function
' Modul: Modul4 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub test()
Dim rng As Range
Dim strName As String
strName = "testname"
If nameExist(strName) Then Set rng = Range(strName)
End Sub
Function nameExist(ByVal myName As String) As Boolean
Dim nName As name
For Each nName In ThisWorkbook.Names
If nName.name = myName Then
nameExist = True
Exit For
End If
Next
End Function
Gruß Sepp
AW: Abfrage ob Zellname vorhanden
Martin
Hallo Sepp,
danke schon einmal werde ich gleich mal probieren.
Gruß MArtin
AW: Abfrage ob Zellname vorhanden
Jean
Hallo Sepp,
wie müsste man das Programm ergänzen, wenn der Bereichsname vergeben ist
der Bereich markiert werden soll
und die Summe festgestellt werden soll?
Gruß
Jean
AW: Abfrage ob Zellname vorhanden
Josef
Hallo Jean,
' **********************************************************************
' Modul: Modul4 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub test()
Dim rng As Range
Dim strName As String
strName = "testname"
If nameExist(strName) Then
Set rng = Range(strName)
Else
Set rng = Nothing
End If
If Not rng Is Nothing Then
rng.Select 'unnötig!
MsgBox Application.Sum(rng)
End If
End Sub
Function nameExist(ByVal myName As String) As Boolean
Dim nName As name
For Each nName In ThisWorkbook.Names
If nName.name = myName Then
nameExist = True
Exit For
End If
Next
End Function
' Modul: Modul4 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub test()
Dim rng As Range
Dim strName As String
strName = "testname"
If nameExist(strName) Then
Set rng = Range(strName)
Else
Set rng = Nothing
End If
If Not rng Is Nothing Then
rng.Select 'unnötig!
MsgBox Application.Sum(rng)
End If
End Sub
Function nameExist(ByVal myName As String) As Boolean
Dim nName As name
For Each nName In ThisWorkbook.Names
If nName.name = myName Then
nameExist = True
Exit For
End If
Next
End Function
Gruß Sepp
AW: Abfrage ob Zellname vorhanden
Jean
Hallo Sepp,
ja, so klappt es perfekt. Vielen Dank für Deine Lösung.
Gruß
Jean
AW: Abfrage ob Zellname vorhanden
Daniel
Hi
also in diesem Fall finde ich den Error-Handler gar nicht so schlecht, damit kann man das ganze ja recht einfach programmieren.
man muss halt darauf achten, nur denjenigen Codebereich zu kapseln, in dem der entsprechende Fehler im normalen Programmablauf auch vorkommen darf, dann passiert da auch nichts schlimmes:
Sub test()
Dim rng As Range
Set rng = Nothing
On Error Resume Next
Set rng = Range("Klaus")
On Error GoTo 0
If rng Is Nothing Then
MsgBox "Zellbereich Klaus existiert nicht"
Else
MsgBox "Zellbereich Klaus existiert"
End If
End Sub
Gruß, Daniel
Excel-Beispiele