Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
148to152
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
148to152
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige