Frage über Autofilter

[alnourx]

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.

[shift-del]

Hallo

http://www.herber.de/excelformeln und bitte suchen .../formeln.html?welcher=194

[alnourx]

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.

[alnourx]

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.

[alnourx]

Keine Vorschläge.

[RPP63]

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. ;)

[RPP63]

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 Modul1

Option 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

[alnourx]

Hallo,

Sie sind wirklich großartig
Der Code hat einwandfrei funktioniert.
Danke schön.

Eine schöne Anfangswoche wünsche ich Ihnen

[snb]

Nur wenn nicht alle Werten dargestellt werden:

Code:

Sub M_snb()
   [E11:N11] = Sheet1.AutoFilter.Filters(1).Criteria1
End Sub