Registriert seit: 25.09.2014
Version(en): 2010-2013
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?
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Moin!
If Not vbFind Is Nothing Then
Debug.Print "Gefunden"
Else
Debug.Print "Nicht gefunden"
End If
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:1 Nutzer sagt Danke an RPP63 für diesen Beitrag 28
• Wulfi
Registriert seit: 29.09.2015
Version(en): 2030,5
07.07.2018, 13:58
(Dieser Beitrag wurde zuletzt bearbeitet: 07.07.2018, 13:58 von 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
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
07.07.2018, 14:02
(Dieser Beitrag wurde zuletzt bearbeitet: 07.07.2018, 14:02 von 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?
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 29.09.2015
Version(en): 2030,5
07.07.2018, 15:51
(Dieser Beitrag wurde zuletzt bearbeitet: 07.07.2018, 15:51 von 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.
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:1 Nutzer sagt Danke an schauan für diesen Beitrag 28
• snb
Registriert seit: 29.09.2015
Version(en): 2030,5
Nur in VBA ist Adresse kein Objekt; hier zuhause sieht das ganz anders aus. :19:
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
(07.07.2018, 17:43)snb schrieb: 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: