Hallo Zusammen,
ich habe eine kleine Frage und hoffe, dass Sie mir dabei helfen können.
Ich habe eine Spalte, die über 426 Zahlen verfügt.
Der Autofilter zeigt mir folgende Zahlen: 55-64-67-101-105-112-128-134-166-201
Frage: gibt es eine Formel, damit man die gefilterten Zahlen automatisch von E11 bis N11 einträgt.
Ein Code unter VB wäre auch akzeptable
im Anhang gibt es eine Excel-Datei als Beispiel
Für eine baldige Antwort danke ich Ihnen im Voraus.
Ich danke Ihnen sehr für Ihre Hilfe.
Der Link hat mir sehr geholfen.
In diesem Forum seid ihr wirklich TOLL
Ein schönes Wochenende wünsche ich Ihnen.
Hallo,
Dank Ihrer Hilfe habe ich die Aufgabe gelöst.
Aber ich werde mich auch für eine Lösung mit VB interessieren ---> Eintragung der gefilterten Zahlen automatisch von E11 bis N11.
Danke im Voraus.
Moin!
Dass sich von Sonntag 20:23 bis Montag 05:54 nichts tut, sollte so verwunderlich nicht sein!
Ich schaue mir aber gerne mal die Datei an.
Aber vorweg:
Das Setzen des Autofilters ist kein auswertbares Ereignis.
Ein Automatismus ist daher nicht möglich.
Wie soll getriggert werden, Schaltfläche, Tastenkürzel?
Gruß Ralf
P.S.: In Foren ist das Du die übliche Variante. ;)
Wie jetzt, keine Antwort?
(bemerkt, wie ich dies meine?)
Zunächst mal geht es Dir ja nicht um den Autofilter, sondern um eine transponierte Unikatsliste.
Apropos Unikate:
Nicht wundern, wenn im Ausgabebereich zweimal 101 steht, denn in Spalte B steht sowohl 101 als auch 101,37!
(Alle Zahlen haben allerdings das Zahlenformat 0)
Folgendes Makro in ein allgemeines Modul:
Modul Modul1Option Explicit
Sub RPP()
Range(Range("B4"), Range("B4").End(xlDown)).AdvancedFilter _
xlFilterCopy, , Range("XFD1"), True
With Range(Range("XFD2"), Range("XFD2").End(xlDown))
.Sort .Cells(1)
.Copy
Range("E11").PasteSpecial xlPasteValues, Transpose:=True
Columns("XFD").Delete
End With
End Sub
Gruß Ralf
Hallo,
Sie sind wirklich großartig
Der Code hat einwandfrei funktioniert.
Danke schön.
Eine schöne Anfangswoche wünsche ich Ihnen
Nur wenn nicht alle Werten dargestellt werden:
Code:
Sub M_snb()
[E11:N11] = Sheet1.AutoFilter.Filters(1).Criteria1
End Sub