Office: (Office 365) VBA: Variable Anzahl Zeilen mit Suchkriterien finden und kopieren

Hallo zusammen,

ich konnte bislang nur bruchstückhafte Ansätze zu meinem Problem finden, jedoch keinen um mehrere Kriterien zu erfassen und anschließend zu ordnen, daher brauche ich (mal wieder) eure Unterstützung.

Ausgangslage:
Ich habe zwei Tabellenblätter (Lagerplätze & Auslagerung). Im Tabellenblatt Lagerplätze befinden sich 3 Suchkriterien (Bezeichnung, Sachnummer, Datum). Das Tabellenblatt Auslagerung beinhaltet eine UserForm in welcher die Sachnummer (per ListBox) und Anzahl (manuelle Eingabe) der benötigten Teile eingegeben wird.

Ziel:
Es soll nach der eingegebenen Anzahl der jeweiligen Sachnummer im Tabellenblatt Lagerplätze gesucht werden. Dabei soll chronologisch vorgegangen werden (älteste Lagerplätze zuerst). Anschließend sollen die gefundenen Zeilen in das Tabellenblatt Auslagerung kopiert werden.

Problem:
Mir ist bislang unklar, wie ich die Auswahl einer variablen Anzahl von Zeilen in einem Tabellenblatt und die Ausgabe in der richtigen chronologischen Reihenfolge in dem anderen Tabellenblatt mittels VBA realisiere.

Kann mir jemand bei der Lösung behilflich sein? Besten Dank im voraus!

 

Hi,

benutze den Autofilter, kopiere die Auswahl und sortiere dann vom ältesten Datum absteigend.

---

 

Danke für deinen Hinweis. Grob glaube ich zu wissen, wie ich das realisieren kann, allerdings bleibt das Problem folgendes:
Ich kann in meiner Tabelle (Lagerplätze) keinen Filter nach Datum setzen, da es mir sonst meine Lagerplatzstruktur bzw. die Reihenfolge zerhaut (viele unterschiedliche Bezeichnungen - keine alphanummerische Sortierung möglich). Daher müsste eine Sortierung nach ältestem Datum im Hintergrund laufen, ohne die ursprüngliche Lagerplatz Tabelle zu verändern - ist das so überhaupt möglich?

Der zweite offene Punkt: Ich möchte in meiner UserForm eine individuelle Anzahl eingeben, nun soll automatisch diese Anzahl an Sachnummern kopiert werden. Sprich, wie drücke ich aus, dass die Anzahl aus der TextBox übernommen wird?

 

Ich wüsste nicht, wie ein Autofilter die Struktur einer Auflistung bzw. die Reihenfolge "zerhauen" könnte...
Ohne eine Beispielmappe vorliegen zu haben ist keine Antwort möglich.

---

 

Okay, anbei die Beispielmappe. Wenn es doch eine Möglichkeit gibt, trotz Filter die Lagerplatzstruktur zu schützen, wäre ich für Hinweise natürlich sehr dankbar :)

 

1. fehlt in der Mappe das UserForm und
2. musst du schon mal genau beschrieben, was wann wie passieren soll

Frage: auf welche Weise kommt denn die Lagerplatzstruktur durcheinander? Wenn ich z.B. nach dem 20.04.2022 filtere, haben die Lagerplätze noch genau dieselbe Reihenfolge wie vor dem Filtern, nur dass eben diejenigen nicht angezeigt werden, die nicht zum 20.04.2022 gehören:

Lagerplätze

	A	B	C	D
122	AR170601A	51500177075813	8848231*	20.04.2022
124	AR170601C	51500177075808	8848231*	20.04.2022
125	AR170701A	51500177075836	8848231*	20.04.2022
126	AR170701B	51500177075835	8848231*	20.04.2022
127	AR170701C	51500177075834	8848231*	20.04.2022
128	AR170801A	51500177075832	8848231*	20.04.2022
129	AR170801B	51500177075829	8848231*	20.04.2022
130	AR170801C	51500177075831	8848231*	20.04.2022
131	AR170901A	51500177075830	8848231*	20.04.2022
134	AR171001A	51500178313859	8846408*	20.04.2022
135	AR171001B	51500178313858	8846408*	20.04.2022
136	AR171001C	51500178313857	8846408*	20.04.2022
137	AR171101A	51500178313856	8846408*	20.04.2022
138	AR171101B	51500178313855	8846408*	20.04.2022
139	AR171101C	51500178313854	8846408*	20.04.2022

Zahlenformate
Zelle	Format	Inhalt
A123	'TT.MM.JJJJ		AR170601B
A124	'TT.MM.JJJJ		AR170601C
A125	'TT.MM.JJJJ		AR170701A
A126	'TT.MM.JJJJ		AR170701B
A127	'TT.MM.JJJJ		AR170701C
A128	'TT.MM.JJJJ		AR170801A
A129	'TT.MM.JJJJ		AR170801B
A130	'TT.MM.JJJJ		AR170801C
A131	'TT.MM.JJJJ		AR170901A
A132	'TT.MM.JJJJ		AR170901B
A133	'TT.MM.JJJJ		AR170901C
A134	'TT.MM.JJJJ		AR171001A
A135	'TT.MM.JJJJ		AR171001B
A136	'TT.MM.JJJJ		AR171001C
A137	'TT.MM.JJJJ		AR171101A
A138	'TT.MM.JJJJ		AR171101B
A139	'TT.MM.JJJJ		AR171101C
B124	'0		51500177075808
B125	'0		51500177075836
B126	'0		51500177075835
B127	'0		51500177075834
B128	'0		51500177075832
B129	'0		51500177075829
B130	'0		51500177075831
B131	'0		51500177075830
B134	'0		51500178313859
B135	'0		51500178313858
B136	'0		51500178313857
B137	'0		51500178313856
B138	'0		51500178313855
B139	'0		51500178313854
D122, D124: D131, D134: D139	'TT.MM.JJJJ		44671
D123, D132: D133	'TT.MM.JJJJ

Zellen mit Format Standard werden nicht dargestellt

Formatierte Tabellen (Lagerplätze)
Bereich	Name	Vorlage	Vorlage orig.
$A$4:$D$1888	Tabelle22	Tabellenformat - Hell 4	TableStyleLight4

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

Add-In-Version 25.23 einschl. 64 Bit

XHTML-Tabelle zur Darstellung in Foren, einschl. Funktion zum Zurücklesen in eine Excel-Tabelle

---

 

Zu 1.: stimmt, hab die Datei inkl. UserForm nochmal angehängt
Zu 2.: vllt wird schon durch das UserForm klarer, was ich bewirken möchte: Die dort eingegebene Anzahl definiert, wieviele Zeilen in der Tabelle Lagerplätze kopiert und im Tabellenblatt Kommiliste eingefügt werden (Wie schon beschrieben, muss dies jedoch chronologisch erfolgen). Die kopierten Zellen sollen dann aus der Tabelle Lagerplätze gelöscht werden, der jeweilige Lagerplatz soll aber natürlich weiter erhalten bleiben.

 

Nein, leider ist nichts klarer geworden. Du musst schon mal ein konkretes Beispiel erstellen und genau beschreiben, was du konkret im Userform eingeben willst und wie das Ergebnis aussehen soll - einfach von Hand die Daten kopieren, damit man das Ziel des ganzen erkennen kann. Und wo kommt das von dir im Beitrag #3 erwähnte Datum ins Spiel? Im UserForm gibt es keine Möglichkeit, irgendwo ein Datum auszuwählen oder einzutragen.

---