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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige