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.
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.
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
hat pria funktioniert!
Danke
Gruß
fedjo