Schleife von einem Register zu einem anderen

Forumthread: Schleife von einem Register zu einem anderen
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Schleife von einem Register zu einem anderen

02.12.2024 16:46:38

Hans

Hallo liebe Gemeinde
Benötige nochmals eure Hilfe
https://www.herber.de/forum/archiv/1996to2000/1997445_Schleife_von_einem_Register_zu_einem_anderen.html#1998402

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schleife von einem Register zu einem anderen

02.12.2024 19:53:39

Piet
AW: Schleife von einem Register zu einem anderen

03.12.2024 12:38:31

Hans
AW: Schleife von einem Register zu einem anderen

03.12.2024 14:29:02

Piet

AW: Schleife von einem Register zu einem anderen

02.12.2024 19:53:39

Piet

Hallo Hans

ich habe deine Dateien einmal überarbeitet, so wie ich es machen würde. - Du wirst überrascht sein.
Ein Fehler war, die Spalte als feste Konstante anzugeben. Man Makro sucht nach A200, A300 in Zeile1.
Die Register Nr. wird ans Ende gestellt, ich weiß nicht warum du das so haben wolltest.

Die InputBox kann ein gezieltes Register auflisten, z.b. A200 oder A300, oder mit "x" alle Register!
Bei alle Register werden sie der richtigen Spalte zugeordnet. Bitte teste das Programm mal gründlich.
Wenn Daten nicht zugeordnet werden können bekommst du eine Fehlermeldung über die Anzahl.
Würde mich freuen wenn es so besser funktioniert.

Hinweis: zum testen lösche ich immer die alten Daten. - Diese Befehlszeilen kannst du löschen!
https://www.herber.de/bbs/user/173942.xlsm
https://www.herber.de/bbs/user/173943.xlsx

mfg Piet

AW: Schleife von einem Register zu einem anderen

03.12.2024 12:38:31

Hans

Hallo
Die Zieldatei sollte so aussehen am Schluss
https://www.herber.de/bbs/user/173952.xlsm

AW: Schleife von einem Register zu einem anderen

03.12.2024 14:29:02

Piet

Hallo

ändere bitte die Set Anweisung hinter - Do Until .Cells(lng_zeile_quelle, 3) = ""
Set rng_fund = obj_wks_ziel.Columns(3).Find(.Cells(lng_zeile_quelle, 3), LookIn:=xlValues, lookat:=xlWhole)

Ich dachte versehentlich man müsse nach Nummer2 suchen, statt nach Artikel! Damit sollte es klappen!
In meinem Beispiel steht ein Wert ganz oben, weil in Zeile 2 Artikel 25,1 steht!

mfg Piet

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