Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

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

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige