Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Autofilter Ergebnis in neue Zelle





Frage

Hallo Excelfreunde, wie kann ich nach einem Autofilter das Ergebnis der ersten Zelle in eine andere automatisch Übertragen? Gruß fedjo

Antwort 1 von coros

HAllo fedjo,

nachfolgendes Makro, welches Du in ein StandarModul kopieren und über z.B. eine Schaltfläche starten musst, kopiert Dir den ersten gefilterten Wert in Zelle B1. Die Spalte, die gefiltert werden muss, ist Spalte A.

Option Explicit

Sub Wert_kopieren()
Dim Datenbereich As Range, Zeile As Range
Set Datenbereich = Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 1))
For Each Zeile In Datenbereich.Rows
If Zeile.Hidden = False Then
Range(Zeile.Address).Copy Range("B1")
Exit Sub
End If
Next
End Sub


Ich hoffe, Du kommst klar. Bei Fragen melode Dich bitte.

MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.

Antwort 2 von fedjo

Hallo Oliver,
hat pria funktioniert!

Danke


Gruß
fedjo

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: