VBA: Wie kann man Range Existenz überprüfen ?
Thomas Schulze
wie kann man in VBA überprüfen ob ein Range mit einem
bestimmen Namen existiert (ohne auf eine Fehlermeldung zu
stossen) das es dieses Object nicht gibt ? Ich hätte eine Lösung
mit der ich zuerst durch alle Names im ActiveWorkbook schaue
... mir scheint aber das dies wesentlich einfacher geht ...
Bsp.:
If Range("Test") ...??? _
The
MsgBox "Test existiert mit Wert: " & Range("Test").value
End If
Danke für jeden Tipp
Viele Grüsse
Thomas Schulze
Philipp von Wartburg
Anstatt die Names-Auflistung zu durchlaufen kann man auch
den zu prüfenden Range einer Range-Objektvariable über-
geben - und schauen, ob ein Fehler auftritt.
Beispiel:
Dim rngRange As Range
On Error Resume Next
Set rngRange = Range("Test")
On Error GoTo 0
If Not rngRange Is Nothing Then
MsgBox "Test existiert mit Wert " & rngRange.Value
Set rngRange = Nothing
Else
MsgBox "Test existiert nicht"
End If
Der Programmcode erscheint zwar umfangreich. Die eigen-
tliche Existenzprüfung führt jedoch lediglich eine einzige Zeile
durch:
Set rngRange = Range("Test")
Zudem ist diese Art der Prüfung auf jeden Fall schneller als
das Durchlaufen sämtlicher Namen in der Names-Auflistung.
Gruss
Philipp
Thomas Schulze schrieb in Nachricht ...
Thomas Schulze
Gruss
Thomas
"Philipp von Wartburg" <philipp.vo...@bluewin.ch> schrieb im
Newsbeitrag news:3e667544$1...@news.bluewin.ch...