Diskussionsgruppe: Tabellenkalkulation
Hallo Excelfreunde,
wie kann ich nach einem Autofilter das Ergebnis der ersten Zelle in eine andere automatisch Übertragen?
Gruß
fedjo
Von: fedjo Datum: 04.01.2007, 11:07
Antwort 1
von coros vom 04.01.2007, 11:23
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 vom 04.01.2007, 19:14
Hallo Oliver,
hat pria funktioniert!
Danke
Gruß
fedjo
|
07101
07102
07103
07104
07105
07106
07107
|
