Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Objektvariable nicht definiert?

Objektvariable nicht definiert?
10.09.2008 15:39:00
David
Hallo Leute,
heute mal wieder mit einer eigenen Frage.
Was ist an folgendem Code falsch:

Dim Name As String
Name = Range("B9").Value
If IsError(Columns("N:N").Find(what:=Name).Activate) Then MsgBox ("nix") Else MsgBox ("da")


Ich will damit prüfen lassen, ob der Wert in B9 in der Spalte N vorkommt. Es kommt aber Laufzeitfehler 91 (Objektvariable oder With-Blockvariable nicht festgelegt).
Die einzige Variable ist doch aber "Name" und die ist definiert.
Ich nehme natürlich auch gern Alternativcode entgegen. ;-)
Danke schon mal.
Gruß
David

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
erledigt
10.09.2008 15:47:46
David
hab doch noch was in der VBA-Hilfe gefunden, das gepasst hat.
Gruß
David
AW: Objektvariable nicht definiert?
10.09.2008 15:50:00
Rudi
Hallo,
kannst du besser mit

if application.countif(columns(14), Name)>0 then ...


prüfen.
btw. : Benutze nie Schlüsselwörter als Variablennamen. Name ist eine Eigenschaft!
Besser z.B. Dim strName as string
Gruß
Rudi

Anzeige
AW: Objektvariable nicht definiert?
10.09.2008 15:50:00
Hajo_Zi
Hallo David,
ich benutze für Find immer folgenden Ansatz.

Sub Test322()
'   erstellt von Hajo.Ziplies@web.de 02.06.03
Dim Found As Range
Dim LoLetzte As Long
Dim sSearch As String
sSearch = Worksheets("Tabelle2").Range("A1")
With Worksheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
Set Found = .Range("A1:A" & LoLetzte).Find(sSearch, .Range("A" & LoLetzte), , xlWhole, , _
xlNext)
If Found Is Nothing Then Exit 

Sub  'falls nicht gefunden wird 

Sub verlassen
MsgBox Found.Address
End With
End Sub


Gruß Hajo

Anzeige
AW: Objektvariable nicht definiert?
10.09.2008 15:53:00
David
Danke euch beiden.
Habs jetzt so gelöst:

Sub Makro1()
Dim check As Variant
Dim strName As String
strName = Range("B9").Value
Set check = Range("N:N").Find(strName)
If check Is Nothing Then MsgBox ("nicht da") Else MsgBox ("da")
End Sub


Gruß und schönen Feierabend (bin jetzt wech)
DAvid

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige