SoftMaker.de

Hallo,
habe seit Neuestem SM 2010, und bin grad ein wenig hilflos am Anfang:
Ich habe zwei parallel geöffnete Workbooks: einmal eine erste Tabelle mit 5 Sheets, einmal eine zweite Tabelle mit importierten CSV-Daten.

Nun suche ich eine Möglichkeit, in der zweiten Tabelle nach Texten zu suchen (welche in diesem Fall den Sheet-Namen der ersten Tabelle entsprechen), um dann die Zeilennummer der gefundenen Stelle zurückzubekommen.
Ab dieser Zeile sollen dann meherer Zeilen aus der zweiten in die erste Tabelle kopiert werden.

Wie wäre das möglich? Ich finde keine Suchfunktion. Müsst ich in der zweiten Tabelle jede Zelle durchlaufen, und per InStr() nach dem Text suchen?

Bin um jede Info dankbar.
Dan

Das geht über den "Umweg" Zwischenablage, kannst du nachlesen bei "Range -> Copy. Je nach Anwendung, könnte man auch die Zelleninhalte in Variablen einlesen, dann Tabelle wechseln und dann in die anderen Zellen schreiben.

Ja, eine Funktion oder Methode "SEARCH" existiert leider nicht. Vermute auch mal, die würde auch nichts anderes machen.

@dewes:
Vielen Dank. Copy funktioniert, nur das "durchschreiten" der Zellen und Suche nach einer Zeichenkette (in meinem Fall StrComp) ist extrem träge.

Wenn du möchtest, kannst du ja mal den Codeschnipsel hier einstellen. Vielleicht lässt sich noch was optimieren.

Wie gross ist denn die Tabelle bzw. der Bereich der durchsucht wird?

Hi,

hier ein Codeschnipsel:



900 Zeilen, die durchwandert werden (und das jeweils pro sheet). Ich suche nun mit InStr(), das scheint schneller zu gehen als StrComp(). Dauert zwar immer noch ne Zeit, aber wesentlich schneller. Jetzt bräuchte ich nur noch ne Funktion, die mir Anzeigt, dass das Script gerade arbeitet... (sowas wie ne Eieruhr, oder ein Fortschrittsbalken...)

das Statement
würde ich oberhalb der For-Schleife einfügen. BM ist eine Interpretersprache, d.h. jede Zeile wird bei jedem Durchlauf neu interpretiert, bevor sie ausgeführt wird.

Die Funktion InStr hat drei Parameter "Start, String, Suchstring", bei dir
fehlt "Start", erstaunlich, dass es trotzdem läuft.

Eieruhr oder Fortschrittsbalken sind nicht möglich, du könntest evtl. am Ende des Durchlaufs eine Messagebox ausgeben oder aber über eine Dialogbox die gerade bearbeite Zeile ausgeben, aber ob sich dieser Aufwand lohnt und das Script wird natürlich noch langsamer.

Ergänzung:

bei dem DIM-Statement würd ich noch "as String" anfügen, bringt vielleicht auch einige Millisekunden pro Durchlauf, wenn die Variable nicht als Variant-Variable deklariert ist.