Anzeige
Archiv - Navigation
640to644
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
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Cells.Find bzw. Found Funktion Problem

Cells.Find bzw. Found Funktion Problem
21.07.2005 13:09:01
Ferdinand
hallo,
ich habe ein Problem mit der "Suchfunktion" in Excel VBA.
Ausgangssituaion:
1. Tabellenblatt: Spalte1 = Artikelnummern, Spalte2 = Preis
2. Tabellenbaltt: Spalte1 = Artikelnummern, Spalte2 = info/Lagerbestand
Ich lasse per Script das Tabellenblatt 2 nacheinander durchsuchen nach den einzelnen Artikelnummern aus TB1 gesucht wird und im Falle einer Übereinstimmung die Spalte info/Lagerbestand in TB1 Spalte3 kopiert wird.
Das Skript zur Such nach den entsprechenden Artikelnummern in TB2:
"
Set Found = Range(Cells(1, 2), Cells(5500, 2)).Find(Artikelnummer_TB1, Cells(5500, 2), xlFormulas, xlPart, , xlNext)
"
Das kanze klappt scheinbar sehr gut, nur werden nicht alle Artikelnummern gefunden.
Die nichtgefundenen Artikelnummern finde ich aber problemlos wenn ich danach "per Hand" suche, d.h. mit strg.f im TB2 die entsprechende Artikelnummer suche.
Wenn ich diese Aktion aufzeichne entsteht folgende Macro:
"
Range("D4604").Select
Cells.Find(What:="16180600", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
"
Ich hoffe ich habe mein Problem verständlich beschrieben.
Wer hat einen Tipp bzw. Hinweis, was ich falsch mache.
Gruss
Ferdinand

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Cells.Find bzw. Found Funktion Problem
21.07.2005 13:18:50
Nepumuk
Hi,
such mal an Stelle von xlFormulas in xlValues
Gruß
Nepumuk
Excel & VBA – Beispiele
AW: Cells.Find bzw. Found Funktion Problem
21.07.2005 16:50:50
Ferdinand
Hallo Nepumuk,
vielen Dank für den Tipp.
Es funktioniert jetzt wg. xl.Values und einem ganz anderem Fehler an einer anderen Stelle in meinem Script.
Funktionieren tuts jetzt so:
"
Set Found = Range(Cells(1, 2), Cells(5500, 2)).Find(Artikelnummer_TB1, Cells(5500, 2), xlValues, xlPart, , xlNext)
"
Auf jeden Fall vielen Dank!!!
Gruss
Ferdinand
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige