Office: Alle Werte ungleich Null kopieren und in neues Blatt einfügen

Hallo zusammen,

ich möchte aus Tabellenblatt 3 alle Werte aus der Spalte J (ab J11), die ungleich 0 sind, kopieren und untereinander (ohne Lücke) in die Spalte G (ab G6) in Tabellenblatt 2 einfügen.
Dieser Vorgang soll x-mal durchgeführt werden. Dieses x würde vorab in Zelle E2 in Tabellenblatt 2 eingetragen werden.
Dieses Einlesen soll über einen Button in Tabellenblatt 2 gestartet werden.

Hintergrund ist der, dass das Tabellenblatt 3 immer wieder mit neuen Werten ausgetauscht wird. Es besitzt aber stets identischen Aufbau und Formatierung. Die aktuellen Werte sollen dann zur Auswertung in Tabellenblatt 2 weiterverarbeitet werden.

Über eure Hilfe wäre ich sehr dankbar!

:)

 

Hi Chrisio,

verstehe - was ich nicht verstehe ist, warum Du Deine noch offenen Themen nicht schließt bzw Du keine Antwort auf der Dir angebotenen Hilfe gibst.

Wird das heute wieder der Fall sein?


Auszug:

[*]https://www.ms-office-forum.net/foru...71#post1884171

[*]https://www.ms-office-forum.net/foru...96#post1886596

[*]https://www.ms-office-forum.net/foru...26#post1883726

 

Hallo Marco,

tut mir Leid, dass ich die Themen nicht auf erledigt gesetzt hatte. Mein Fehler!
Heute würde ich natürlich direkt eine Rückmeldung geben!

 

Unverbindlich empfehle ich Dir vorsichtig eine Beispielmappe hochzuladen...

 

Hier findet ihr die Beispieldatei.

Die Werte ungleich Null aus Tabelle3 sollen so, wie sie hier in Tabelle2 stehen, automatisiert ausgelesen werden können.

 

Vorschlag:
Code:

Hinweis:
Nach dem Button-Klick wird auf dem zweiten Blatt von links gesucht (Wichtig!)

Das meinte ich verstanden zu haben, aber in dem Code vorerst mal auskommentiert.

Frage hierzu:
a) Es soll mehrmals dasselbe kopiert werden?


Anmerkung:
Auf großartige Fehlerbehandlung wurde bewusst verzichtet.

 

Vielen Dank schon mal!

Was genau meinst du, dass auf dem zweiten Blatt nach Button Klick nach links gesucht wird?

Mit dem x möchte ich angeben, wie viele Werte insgesamt in Tabelle3 durchsucht werden müssen. Weil in der realen Tabelle kann die Anzahl der Werte variieren und direkt nach der letzten zu durchsuchenden Zeile folgen weitere Werte, die aber nicht mehr relevant sind.

Leider funktioniert das noch nicht. Ich bekomme den Laufzeitfehler 1004:
Die Methode Show All Data ist für das Objekt _Worksheet fehlgeschlagen.

 

Setz mal ein Apostroph vor den Punkt.

Es wird stets im zweiten Blatt, von links zählend, gesucht.
Es darf nix verschoben oder hinzugefügt werden.
Blatt mit Button ist stets der erste Reiter.
Blatt mit Daten stets der zweite Reiter.

?

 

Leider funktioniert deine Lösung nur, wenn ich auf Tabellenblatt3 gefiltert habe nach allen Werten außer 0. Aber genau diesen Filter möchte ich nicht extra vorher setzen müssen.

Ich meine mit dem x, dass auf Tabellenblatt3 die Werte von J11 angefangen bis z.B. J100 relevant sind. Ab J101 kommen dann Werte, die ich nicht mehr in Tabellenblatt2 brauche. Und diese Anzahl Werte ist halt variabel, mal ist es bis J100, mal bis J120 und mal bis J130.
Quasi das x, wie oft die Schleife durchlaufen werden soll.

Oder lässt sich das noch anders realisieren?

 

Musst Du ja nicht; macht der Code für Dich.

zu dem x)
Du meinst, von J11 bis J11 +x ?

 

Das funktioniert dann immer noch nicht, wenn ich ein Apostroph vor den Punkt setze.

Ja genau, das soll laufen von J11 bis J11 + x.

 

Wenn 0 drin vorkommt, soll der Durchlauf dann vom x abgezogen werden oder ignoriert ?

 

Das x soll die Gesamtzahl durchzusuchender Werte in Spalte J darstellen, also inklusive derer mit 0. Die Werte gleich 0 sollen dann eben nur nicht in Tabellenblatt2 übernommen werden.

 

Moin,

Vorschlag (ohne großartige Fehlerbehandlung):

 

Danke, das hat mir geholfen!