Office: Liste erstellen mit Daten aus vorhandenem Tabellenblatt

Hallo VBA Spezialisten,

ich möchte aus einem Tabellenblatt mit Unmengen von Zeilen bestimmte Zeilen auswählen, welche dann in ein weiteres (bereits vorhandenes) Blatt kopiert bzw. eingefügt werden sollen. Sinnvollerweise alle untereinander

Zu den Details:

Blatt "Daten" ist die Quellliste.
Blatt "Abgabeliste" ist die Zielliste.

Wenn ich jetzt z.B. in "P3" (Datenblatt) ein X setze, sollen die Zellbereiche "A3" bis "D3" kopiert und im Blatt Abgabeliste in "A6" bis "D6" eingefügt werden.
Wenn ich nun in "P5" ein X setze sollen die Zellbereiche "A5" bis "D5" kopiert und im Blatt Abgabeliste in "A7" bis "D7" eingefügt werden, usw.

Ich hoffe ich habe mich verständlich ausgedrückt und vielen Dank vorab für Eure Hilfe.

:)

 

Ich habe schon einen Codeschnipsel gefunden der sagt das reagiert werden soll, wenn die Zellen in Spalte P mit x befüllt werden:
Code:

Mit dem kopieren/einfügen in das andere Blatt hab ich jetzt jedoch Probleme...


Kann mir jemand sagen ob wenigstens der Ansatz richtig ist?

 

Hallo lcars,

wenn das Makro darauf reagieren soll, sobald in Spalte P ein "x" eingetragen wird (oder mehrere gleichzeitig), würde ich Worksheet_Change favorisieren (reagiert auf Änderungen einer Zelle innerhalb eines Blattes).

Wenn Du ein X einträgst, sollen also bestimmte Werte kopiert werden. Was soll passieren, wenn Du das x wieder entfernst? Soll der Datensatz im anderen Blatt ebenfalls wieder gelöscht werden? Wenn ja, wie kann dieser zweifelsfrei identifiziert werden (damit nicht ein falscher Datensatz gelöscht wird)? Angenommen, Du trägst ein x ein (Datensatz wird kopiert), löscht es wieder und trägst wieder ein x ein: Soll dann geprüft werden, ob dieser schon vorhanden ist? Auch hier wieder: Wie kann der Datensatz eindeutig identifiziert werden?

Oder soll das Makro nicht auf jede einzelne Änderung reagieren, sondern die Daten "in einem Rutsch" übertragen, z. B. durch Auslösung durch den Benutzer?

Grüße
EarlFred

 

Hallo EarlFred,

danke zunächst für die schnelle Antwort. Ich habe schon länger im Netz nach einer Lösung gesucht, aber leider nichts gefunden. Darum habe ich mich heute hier angemeldet.

Das Makro soll lediglich kopieren und im anderen Blatt einfügen wenn das X gesetzt wird. Wenn ein weiteres X in gleicher spalte weiter unten gesetzt wird, soll der zugehörige Datensatz in die Ergebnisliste direkt unter den ersten eingefügt werden.
Wenn das X gelöscht und wieder gesetzt wird, dann könnten die daten doppelt in die Ergebnisliste eingefügt werden, das ist nicht schön aber unschädlich, da ich davon ausgehe, dass niemand ein X 2x setzen würde.

Ich denke mal das ist die einfachste variante... wenn es eine möglichkeit gäbe die kopierten daten abzugleichen und bei "x"-entfernung auch im ausgabeblatt wieder zu löschen, wär das natürlich eine noch sauberere lösung, aber nicht unbedingt erforderlich.

 

Hallo lcars,

dann probier mal folgenden Code, ob er das tut, was er soll:
Code:

Kopieren und Einfügen: Rechtsklick auf den Tabellenreiter vom Blatt "Daten", dort unter "Code anzeigen"

Grüße
EarlFred

 

Wow ich bin begeistert... das funktioniert perfekt!!
Bist echt n Experte, vielen Dank!!


Macht es große Umstände das ganze so umzuschreiben, dass die Einträge im Ausgabeblatt wieder gelöscht werden wenn man das X in Spalte "P" entfernt?

Oder

Kann man verhindern, dass Doppeleinträge in die Ausgabeliste geraten, indem VBA vor dem kopieren einen Abgleich mit der Ausgabeliste macht und prüft, ob der Datensatz schon vorhanden ist? Und wenn ja ihn dann nicht kopiert und die Nachricht ausgibt, dass der Datensatz schon vorhanden ist?

 

Hallo lcars,

machbar ist das schon, aber hier nochmal meine Frage:
Gibt es ein EINDEUTIGES Kriterium, das einen Datensatz identifiziert? Und wo steht dieses Kriterium?

Grüße
EarlFred

 

Hallo EarlFred,

sorry dass ich darauf nicht gleich eingegangen bin.

Ja es gibt pro Datensatz eine Vorgangsnummer die in Spalte A steht, diese ist bei jeder Zeile unterschiedlich, somit könnte man die Spalte A bzw. die QuellZelle der Spalte A als Kriterium nehmen und mit der Spalte A der Ergebnisliste vergleichen.
Natürlich müsste VBA die ganze Spalte A in der Zieldatei prüfen, ob der Wert aus der Quelle bereits vorhanden ist.

Ich hoffe ich drücke mich einigermaßen verständlich aus!?!!

Grüße
lcars

 

Hallo lcars,

probier mal folgenden, angepassten Code:
Code:

Grüße
EarlFred

 

Hallo,

aus irgend einem Grund kopiert er jetzt die Daten nicht mehr in die Abgabeliste... das hat aber vermutlich nichts mit deinem Code zu tun.

Der erste Code funktioniert auch nicht mehr. Ich habe in Blatt "Daten" noch weitere Codes, die das erstellen des X erleichtern sollen (per Doppelklick).

Könnte es sein, dass etwas fehlt oder ich stwas versehendlich gelöscht habe?

Habe mir die übrigen codes aus dem Netz zusammengebastelt

Code:

 

Hallo Icars,

ja, Du hast was verändert *wink.gif*

Korrigier mal bitte

Code:

Noch ein Tipp: Passwörter gehören niemals ins Internet, änder das mal bitte in Deinem geposteten Code.

Grüße
EarlFred

 

Rechts hast du, deshalb hab ich auch ein völlig anderes passwort hier reingeschrieben *wink.gif*

Okay das mit dem X stimmt, spielt aber keine Rolle, er scheint sowohl das große X als auch das kleine x zu nehmen.

Inzwischen laufen wieder beide Codes... vielen Dank!!!
...und nein ich weiß nicht warum sie eben nicht liefen.

Sag mal.. muss das
Code:

Immer am Anfang stehen?
Ich hatte es erst am Ende unter dem anderen Code für Doppelklick setzt X-Zeichen, und da hat er mir gesagt dass hinter einem End Sub nur Kommentare stehen dürfen. Das "Option Explicit" gehört doch aber zu dem Code meiner neuen Anweisung (Liste erstellen).

 

Jetzt hab ich noch ein Problem,

die Ausgabeliste enthält unten eine Zeile mit Text zum Unterschreiben bzw. Abzeichnen, dass die Liste übernommen wurde.

Wenn ich jetzt einige Male die Xe an der Quelle setze und entferne, rücken diese Zeilen der Ausgabeliste immer weiter nach oben, weil er jedes mal, wenn ein X entfernt wird eine Zeile löscht (so meine Vermutung).
Hast du dazu eine Idee wie man das verhindern kann?

 

Hallo Icars,

Eben deshalb habe ich UCase verwendet. Der Zellwert wird in Großbuchstaben gewandelt, so dass Eingaben von "x" oder "X" gleich behandelt werden, dann aber natürlich auch gegen den Wert "X" zu prüfen sind (und nicht "x"). Denk mal in einer ruhigen Minute drüber nach (und lies ein bisschen in der OH).

Zu Option Explicit: Das betrifft jeweils das komplette Modul. Lies einfach mal in der OH dazu nach.

Unwissen solltest Du in Wissen, Vermutungen in Gewißheit wandeln, bevor Du den Code verwendest. Ich setze voraus, dass mein Code verstanden wird, bevor er eingesetzt und / oder modifiziert wird.

Zum "Verrutschen" der Unterschriftszeile: Den Code jetzt nochmal auf geänderte Wünsche hin anzupassen habe ich schlichtweg keine Lust. Das hätte von Anfang an klar sein können.
Setz halt einfach die Unterschriftenzeile zuletzt auf das Blatt....

Grüße
EarlFred

 

Hallo EarlFred,

ich bemühe mich ständig die Beispiele welche ich anwende auch zu verstehen. Natürlich ist dafür das Studium von Hilfedateien als Grundlage erforderlich.

Ich habe mir zusätzlich ein Videotutorial "Einstieg in VBA mit Excel" gekauft. Es liefert einige interessante Ansätze, zur Verwirklichung von solch komplexem Programmcode wie ich ihn hier benötige reicht es aber leider nicht.

Vielen Dank noch einmal für Deine Hilfe.