Hallo zusammen,
bin ein absoluter VBA Anfänger und bräuchte Hilfe! Habe keine Lösung gefunden die genau auf mein Problem passt und schaffe es leider nicht Einzellösungen auf mein Problem anzupassen.
Folgende Problematik:
Ich habe eine Tabelle, deren Filter so eingestellt ist, dass immer nur die Ergebnisse der vergangenen Woche angezeigt werden. In die nächstfreie Spalte im Arbeitsblatt (Spalte S)will ich nun per Makro eine bedingte Formatierung mit Symbolsätzen (Ampel) einfügen.
Die Ampel soll grün sein, wenn der Wert in Spalte L in der gleichen Zeile > 5 ist. Wenn der Wert < 5 ist, soll die Ampel rot sein. Soweit so gut.
Da die bedingte Formatierung nicht die Zelle selbst sondern die Zellen in Spalte L abfragen soll, müsste man "Formel zur Ermittlung der zu formatierenden Zellen verwenden", dann kann man aber keine Symbolsätze mehr auswählen...
Also habe ich mir überlegt einen Zwischenschritt einzubauen, in dem per Makro die Werte aus Spalte L in Spalte S geschrieben werden sollen (die hier dann im Folgeschritt durch Ampeln ersetzt werden).
Mein Problem dabei ist dass die Tabelle gefiltert ist und das kopieren in die Spalte S nicht klappt. Die Überschriften der Tabelle stehen in Zeile 2, die relevanten Daten beginnen also in Zeile 3. Jetzt kann die Tabelle allerdings in einer Woche 10 Zeilen lang sein, in der nächsten Woche 100 Zeilen lang...
Kurz Zusammengefasst:
Ich brauche ein Makro, dass mir die (sichtbaren)Werte einer gefilterten Tabelle aus Spalte L in Spalte S kopiert. Dabei zu beachten ist, dass die Werte ab Zeile 3 losgehen und es nach unten keine Begrenzung gibt. Bisher hatte ich nur einen Code gefunden, der die ganze gefilterte Tabelle kopiert, nicht aber nur eine Spalte.
Im Anschluss sollen die Werte dann mit bedingter Formatierung in Spalte S durch Ampeln ersetzt werden.
Wäre super wenn mir hier jemand einen Code zeigen könnte!
Vielen Dank! |