Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2025 14:16:04
VBA - Löschen Zellinhalt nur unter Voraussetzung zulassen
25.04.2025 11:50:27
Fehler beim Kopieren von Word zu Outlook
25.04.2025 11:11:55
Summenprodukt
25.04.2025 10:46:43
Code generierte Textboxen in Frames bekommen keinen Focus
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
148to152
148to152
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

hilfe-immer fehlermeldung beim suchen!

Forumthread: hilfe-immer fehlermeldung beim suchen!

hilfe-immer fehlermeldung beim suchen!
21.08.2002 13:48:06
alfred
hallo!

ich habe ein makro geschrieben, daß in einer tabelle a einen wert in einer zelle in eine variable schreibt (var = Application.ActiveCell.Text), dann zu einer tabelle b wechselt, die ganze spalte a markiert und dort den wert der nun in var steht mittels "Selection.Find(What:=var, .... suchen soll.
so weit so logisch aber ... es kommt dann dauernd diese fehlermeldung "blockvariable nicht definiert".
schreibe ich beim selection. find ="7501" z.b. rein gehts.
was mache ich da falsch?

vielen dank im voraus!

alfred

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Allgemein
Tags
#fehler #suchen #variable
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
P0STE DEN C0DE !
21.08.2002 13:50:44
andreas e
thats easier !

gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose Downloads und Links zu EXCEL und mehr

Re: hilfe-immer fehlermeldung beim suchen!
21.08.2002 14:00:51
Folker
Blockvariable nicht definiert deutet darauf hin, dass du die Variable nicht deklariert hast:
dim var as string
müsste dann helfen
Anzeige
geht immer noch nicht -seufz :-(
21.08.2002 14:09:23
alfred
habe die variable als string deklariert. die fehlermeldung lautet:
"objektvariable oder if-blockvariable nicht Festgelegt".
Re: geht immer noch nicht -seufz :-(
21.08.2002 14:27:20
Folker
Dann musste echt mal den Code posten, da der Fehler irgendwo anders liegen muss. Wenn ich den Code:

Dim x As String
x = Application.ActiveCell.Text

Selection.Find(What:=x, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate


bei mir ausführe kommt keine Fehlermeldung

Anzeige
CODE
21.08.2002 14:29:28
alfred

Range("G1").Select (in tabelle a)

Do While ActiveCell.Value <> ""

Dim projkont As String

projkont = Application.ActiveCell.Text
Windows("Projekte.xls").Activate
Sheets("Projektnr").Select
Columns("A:A").Select
Selection.Find(What:=projkont.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

If Not IsError(projkont) Then
With ActiveCell
Range(.Offset(0, 2), .Offset(0, 2)).Select
End With
Selection.Copy
Windows("a").Activate
Application.ActiveCell.PasteSpecial
With ActiveCell
Range(.Offset(1, 0), .Offset(1, 0)).Select
End With
Else

Windows("a").Activate
With ActiveCell
Range(.Offset(0, 0), .Offset(0, 1)).Select
End With

End If
Loop

End Sub

Anzeige
Re: CODE
21.08.2002 14:41:32
Folker
Statt projkont.text nur projkont
Dann funktioniert bei mir zumindest die Suchfunktion.
Re: CODE
21.08.2002 15:15:46
alfred
da muß es irgendetwas internes haben.
vielen dank für die raschen antworten!

grüße

alfred

Re: CODE
21.08.2002 16:35:59
Martin Beck
Hallo Alfred,

was steht in Zelle G1? Die Fehlermeldung tritt typischerweise auf, wenn der zu suchende Text nicht gefunden wird. Du kannst das ja mal mit der Funktion ZÄHLENWENN testen.

Gruß
Martin Beck

Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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