Wie zeige ich Nothing an?

[Wulfi]

Hallo,

ich bräuchte mal von Euch eine Codeergänzung:

Dim vbFind, vbSheet: vbSheet = "Collect"
Set vbFind = Sheets(vbSheet).Range("B:B").Find("GoogleBooks", LookIn:=xlValues)

If ??? Then debug.print "Gefunden"
If ??? Then debug.Print "Nichts Gefunden"

Wenn in der Spalte B keine Zeile mit GoogleBooks gefunden wird, hat vbFind den Wert Nothing.

Doch wie werte ich dieses Nothing aus?

[RPP63]

Moin!
If Not vbFind Is Nothing Then
   Debug.Print "Gefunden"
Else
   Debug.Print "Nicht gefunden"
End If

Gruß Ralf

[snb]

Code:

Sub M_snb()
    On Error Resume Next
    c00 = Columns(1).Find("aaa").Address
    If Err.Number <> 0 Then c00 = "not found"
    
    MsgBox c00
End Sub

oder

Code:

Sub M_snb()
    On Error Resume Next
    c00 = "not found"
    c00 = Columns(1).Find("aaa").Address
    
    MsgBox c00
End Sub

[RPP63]

Ich weiß, dass du es weißt, snb!  :21:
Da VBA in meinen Augen durchaus so etwas wie eine Programmiersprache ist, sollte man schon zwischen Range-Objekten und "Dingenskirchen" aka Variant unterscheiden.
Eine Objektvariable sollte imo immer per Set = gefüllt werden.
Alles andere ist nur das Ausnutzen der Unzulänglichkeiten von VBA und hat doch nix mit programmieren zu tun?

[snb]

Ein richtige Programmiersprache wie Python belästigt niemand etwas zu unterscheiden (wedeer objeckt noch Varaina); das macht der Compiler.
Das mangelt noch immer am VBA Compiler.

Übrigens ist auch in Python die Verwendung von Errors ein wesentliches Unterteil der Sprache.
Fehlerbewertung ist keine 'Unzulänglichkeit', doch ein Kapitel der Sprache (obwohl nur bei wenige Leuten bekannt), wie im VBA.

[schauan]

Hallo Ralf,

Ich weiß, dass du es weißt, aber ich weiß jetzt nicht, ob Du vielleicht was übersehen hast - snb wertet die Adresse aus und die ist kein Objekt

[snb]

Nur in VBA ist Adresse kein Objekt; hier zuhause sieht das ganz anders aus.   :19:

[Kuwer]

Nur in VBA ist Adresse kein Objekt; hier zuhause sieht das ganz anders aus.   :19:

ist das dann so ein Teil auf 2 (oder auch 4) Rädern? :05: