Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon fedjo vom 04.01.2019, 11:07 Options

Autofilter Ergebnis in neue Zelle

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

Gruß
fedjo

Antwort schreiben

Antwort 1 von coros vom 04.01.2019, 11:23 Options

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.

[b]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[/b]

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.2019, 19:14 Options

Hallo Oliver,
hat pria funktioniert!

Danke

Gruß
fedjo

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken