Mit VBA Zelle kopieren wenn eine Bedingung erfüllt ist

Hallo Nikola,

alternativ kannst du auch mit dem Spezialfilter die gewünschten Datensätze in ein anderes Blatt kopieren.

Schau mal hier rein:

https://1drv.ms/x/s!AqMiGBK2qniTge8ZYSBEp3YDSmSHaw?e=73KyF3

Wenn du das Blatt "Bestellungen" aktivierst, wird der Spezialfilter aufgerufen.

Claus

Ich möchte das mir Excel, die Artikel, die bestellt werden müssen, kopiert und in einem anderen Blatt einfügt. Die Artikel müssen bestellt werden ab einer Anzahl von 4 Stück. Somit habe ich auf den separaten Blatt eine Bestellliste mit nur den Artikel
die ich bestellen muss.

Dafür VBA zu nutzen macht keinen Sinn, es geht viel einfacher:

Dümmste Lösung:

Setze einen Autofilter und lasse Dir nur Artikel anzeigen dessen Stückzahl >= 4 ist.

Im Prinzip bist Du nun schon fertig. Wenn es ein muss:

Kopiere alle sichtbaren Zeilen, gehe in das andere Blatt und füge Sie ein, fertig.

Wenn das ganze automatisiert werden soll, dann ist Power Query sinnvoll.

Get & Transform

Lade die Daten, setzte einen Filter, Speichern und Schließen, fertig. Wenn die Daten aktualisiert werden sollen:

Rechts-Klick auf die erzeugte Tabelle \ Aktualisieren

Wenn Du partout auf VBA beharren willst, schau mal hier rein, ist vielleicht hilfreich:

https://answers.microsoft.com/en-us...-copy-to/9d123cb0-b979-4bda-8a41-b7d7dba2f9b9

Andreas.

Hallo Andrea,

schreibe in B2 von Evaluation:

=SVERWEIS($A2;List!$B$1:$F$3000;SPALTE();0)

Ziehe die Formel 4 Spalten nach rechts und dann nach unten so weit benötigt.

Claus

Hallo zusammen,

das Problem konnte ich ebenfalls in Excel 2007 und Excel 2010 nachvollziehen.

Ausgangsfall:

Eine Spalte einer Tabelle ist mit einer bedingten Formatierung vom Regeltyp
Nur Zellen formatieren, die enthalten und einem relativen Zellbezug versehen und wird anschließend nach einer Zellenfarbe gefiltert. Die Formatierung ist korrekt, die Filterung demgegenüber scheinbar nicht.

Mögliche Erklärung:

Ausschlaggebend dafür, ob ein Wert bei der Filterung
Nach Zellenfarbe filtern ein- oder ausgeblendet wird, ist sein erstmaliges Auftreten in der Spalte (Zelle in dieser Spalte mit der niedrigsten Zeilennummer). Ist die Bedingung der bedingten Formatierung erfüllt (bzw. nicht erfüllt), so werden alle Zeilen
mit diesem Wert in der betrachteten Spalte eingeblendet (bzw. ausgeblendet), unabhängig davon, ob die Bedingung in der jeweiligen Zeile des gleichen Wertes erfüllt ist oder nicht.

Beispiel: Mourad's Testdatei - Sheet Test-01

Der Wert 0 tritt in Spalte F das erste Mal in Zeile 3 auf. Die Bedingung ist für Zelle F3 erfüllt, da 0>-3 gilt. Wird die Spalte F nach der Zellenfarbe gefiltert, so bleiben alle Zellen mit dem Wert 0 in der Spalte F eingeblendet, wenngleich nicht alle der
Bedingung genügen.

Bei einer Änderung der bedingten Formatierung für die Spalte F von
größer als auf kleiner oder gleich und anschließender Filterung nach der Zellenfarbe zeigt, dass alle Zellen mit dem Wert 0 ausgeblendet werden und dies, obwohl für Zelle F24 und F30 die Bedingung erfüllt ist. Für
die erste mit dem Wert 0 auftretende Zelle F3 ist in diesem Fall die Bedingung nicht erfüllt , da 0>-3 gilt.

Dies ist auch eine mögliche Begründung, warum der Listeneintrag
Nach Zellenfarbe filtern im Sheet Test -04 deaktiviert ist. Die Bedingung ist für den Wert in Zelle F3 nicht erfüllt, so dass dies für alle gleichen Werte in der Spalte greift. Da es jedoch keine anderen Werte gibt, für die die gesetzte Bedingung erfüllt
ist, kann auch nach keiner Zellenfarbe gefiltert werden und der Listeneintrag wird deaktiviert. Er wird dann jedoch wieder aktiviert, wenn mindestens ein Wert, welcher die Bedingung erfüllt, eingegeben wird (z. B. in Zelle F2 den Wert 5 eintragen).

Gruß,

André

Hallo Matej,

1.) bei einem Zirkelbezug in der Datengültigkeit wirst du nie ohne Fehler sein. Denn die Bedingung kann im Moment noch erfüllt sein, aber wenn du dann etwas eingibst und damit die Bedingung nicht mehr erfüllt ist, hast du einen Konflikt geschaffen. In diesem
Falle also den Tabellenaufbau überdenken und mit Hilfszellen arbeiten oder VBA verwenden.

2.) Warum schickst du nicht gleich dein bestehendes Problem anstatt hier ständig ein anderes Beispiel zu posten, das aber nichts mit deiner wirklichen Tabelle zu tun hat?

Mit freundlichen Grüßen

Claus