Testen Sie ob die Palette vorhanden ist, in VBA

Ich habe eine dynamisch definierte benannten Bereich in meinem excel-ss, der packt die Daten aus einer Tabelle, basierend auf einer start-und ein Enddatum, wie dies

=OFFSET(Time!$A$1,IFERROR(MATCH(Date_Range_Start,AllDates,0)-1,MATCH(Date_Range_Start,AllDates)),1,MATCH(Date_Range_End,AllDates)-IFERROR(MATCH(Date_Range_Start,AllDates,0)-1,MATCH(Date_Range_Start,AllDates)),4)

Aber, wenn der Datumsbereich hat keine Daten in der Tabelle, das Spektrum nicht vorhanden ist (oder so, idk). Wie kann ich das schreiben von code in VBA zu testen, ob dieses Bereichs existiert oder nicht?

Ich habe versucht, so etwas wie

If Not Range("DateRangeData") Is Nothing Then

aber ich bekomme "Laufzeitfehler 1004, die Methode 'Range' des Objekts '_Global' ist fehlgeschlagen."

InformationsquelleAutor Colten J Nye | 2012-09-26

15

Können Sie replizieren die übereinstimmung in Ihren VBA zu zählen, bevor mit der Auswahl, wie viele Zeilen würden Sie haben, oder Sie können die Verwendung von Fehlerbehandlung:
```
On Error Resume Next

Debug.Print range("DateRangeData").Rows.Count

If Err = 1004 Then
    MsgBox "Range Empty"
    Exit Sub
Else
    MsgBox "Range full"
End If

Err.Clear
On Error GoTo 0
```
- Ziemlich glatt. Danke! btw, was ist " On Error Resume Next On Error GoTo 0 ??
- hm, denke, Zeilenumbrüche sind nicht erlaubt in den Kommentaren.
- nvm, habe es. Nochmals vielen Dank!
- Überprüfen Sie in diesem MSDN-Artikel zur Fehlerbehandlung in VBA: msdn.microsoft.com/en-us/library/office/...
- Dies ist nun Err.Anzahl in Office 2013.
- .Number ist die Standard-Eigenschaft für Err. Sie können Err.Number, aber nur Err funktioniert einwandfrei.
InformationsquelleAutor nutsch
25

Hier ist eine Funktion, die ich klopfte, um zurückzugeben, ob Sie einen benannten Bereich vorhanden ist. Es könnte Ihnen helfen.
```
Function RangeExists(R As String) As Boolean
    Dim Test As Range
    On Error Resume Next
    Set Test = ActiveSheet.Range(R)
    RangeExists = Err.Number = 0
End Function
```
- Sollten Sie nicht haben eine On Error Goto 0 vor End Function?
- Hi Archimedes. Laut der Dokumentation hier msdn.microsoft.com/en-us/library/aa266173(v=vs. 60).aspx jedes Verfahren hat seine eigenen Fehler-handler. Wenn die Kontrolle geht zurück an die Eltern der vorherigen Fehler-handler sollte, wurde wieder aktiv. Es ist ein wenig zweideutig, obwohl, so legen Sie es in, wenn es macht Sie fühlen sich sicherer.
- Was bedeutet RangeExists = Err.Number = 0 tun?
- es ist eine implizite Err-Objekt, das gesetzt wird, sobald ein Fehler Auftritt. Der zweite operator = ist ein Geschlechter-Vergleich, um zu sehen, ob ein Fehler aufgetreten ist oder nicht. Der erste operator = ist eine Zuweisung setzt das Ergebnis in RangeExists.
- Ich sehe. Ich Frage mich, ob ActiveSheet ist notwendig ActiveSheet.Range(R). Wenn R ist eine Zeichenfolge, die gibt den Bereich in einem anderen Arbeitsblatt (z.B. mit RefEdit), diese wird abgelehnt, obwohl R ist eine juristische Reihe. Außerdem denke ich, vielleicht ist es besser, Err.Number wieder auf 0 vor dem beenden dieser Funktion, so dass der Umfang der Fehler existiert nur innerhalb der Funktion RangeExists, nicht außerhalb, sagen, wenn Sie anrufen, es in eine unterprozedur.
- Ich hatte zu ändern, die Letzte Zeile in der Funktion RangeExists = (Err.Number=0) zurück den richtigen boolean-Wert. Sonst würde es immer wieder false. Die Verwendung Von Excel 365.
InformationsquelleAutor Steztric

Dies ist ein weiterer Ansatz. Es hat den Vorteil zu nehmen, den Behälter und den Namen, den Sie testen möchten. Das bedeutet, dass Sie testen können, entweder Blatt-Namen oder die Arbeitsmappe Namen zum Beispiel.

Wie diese:

If NamedRangeExists(ActiveSheet.Names, "Date") Then
    ...
Else
...
End If

oder

If NamedRangeExists(ActiveWorkbook.Names, "Date") Then
   ...
Else
   ...
End If

Public Function NamedRangeExists(ByRef Container As Object, item As String) As Boolean


Dim obj As Object
Dim value As Variant

On Error GoTo NamedRangeExistsError:

    value = Container(item)
    If Not InStr(1, CStr(value), "#REF!") > 0 Then
        NamedRangeExists = True
    End If
    Exit Function

Exit Function

NamedRangeExistsError:
    NamedRangeExists = False
End Function

InformationsquelleAutor codea

Abhängig von der Anwendung, die Sie tun, ist es gut zu prüfen, mit einem Wörterbuch. Sie sind besonders nützlich, wenn Sie möchte prüfen, ob etwas vorhanden ist.
Nehmen Sie dieses Beispiel:

Dim dictNames as Scripting.Dictionary

Sub CheckRangeWithDictionary()

    Dim nm As Name

    'Initially, check whether names dictionary has already been created
    If Not dictNames Is Nothing Then
        'if so, dictNames is set to nothing
        Set dictNames = Nothing
    End If

    'Set to new dictionary and set compare mode to text
    Set dictNames = New Scripting.Dictionary
    dictNames.CompareMode = TextCompare

    'For each Named Range
    For Each nm In ThisWorkbook.Names
        'Check if it refers to an existing cell (bad references point to "#REF!" errors)
        If Not (Strings.Right(nm.RefersTo, 5) = "#REF!") Then
            'Only in that case, create a Dictionary entry
            'The key will be the name of the range and the item will be the address, worksheet included
            dictNames(nm.Name) = nm.RefersTo
        End If
    Next

    'You now have a dictionary of valid named ranges that can be checked

End Sub

Innerhalb Ihrer main-Prozedur, alles, was Sie tun müssen, ist eine Existenz überprüfen Sie vor der Verwendung der Bereich

Sub CopyRange_MyRange()

    CheckRangeWithDictionary

    If dictNames.exists("MyRange") then
        Sheets(1).Range("MyRange").Copy
    end if

End Sub

Beim laden des Wörterbuchs sieht vielleicht ein wenig länger, es ist extrem schnell zu verarbeiten und zu suchen. Es wird auch viel einfacher, zu überprüfen, ob alle benannten Bereich verweisen auf eine gültige Adresse vorhanden ist, ohne die Verwendung einer error-Handler in dieser einfachen Anwendung.

Bitte beachten Sie, dass bei der Verwendung von Namen auf Blatt-Ebene statt auf workbook-Ebene, ist es notwendig, den Einsatz aufwendigerer Schlüssel zur Eindeutigkeit zu gewährleisten. Aus der Art, wie das Wörterbuch wurde erstellt, wenn Sie eine Taste wiederholt wird, wird das Element mit dem Wert überschrieben wird. Das kann vermieden werden durch die Verwendung der gleichen Existiert Methode als check-in die Schlüssel der Schöpfung-Anweisung. Wenn Sie brauchen eine gute Referenz wie die Wörterbücher verwenden, verwenden Sie diese ein.

Glück!

InformationsquelleAutor FCastro

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.