VBA - Autofilter, nur gefilterte Zeilen auslesen

[Kuwer]

Hallo Michael,

poste mal bitte (D)eine Datei. Dann geht es schneller.

Gruß Uwe

[Kuwer]

Hallo Michael,

wenn die Liste erst beim Aktivieren des Blattes mit den Gültigkeitslistendropdowns aktualisiert werden braucht/muss, bietet sich das Activate-Ereignis dieses Arbeitsblattes an. Das eigentliche Makro muss in diesem Fall aber in einem allgemeinen Modul stehen, weil es sonst nicht funktioniert. Voraussetzung ist im Vorschlag, dass es die beiden benannten Bereiche gibt und CurrentRegion -Kontrolle über Listen beachtet wird.

' **************************************************************
'  Modul:  Modul1  Typ = Allgemeines Modul
' **************************************************************

Option Explicit

Sub Aktualisiere_sel()
 Range("sel") = ""
 Range("data").Columns(1).SpecialCells(xlCellTypeVisible).Copy Range("sel").Cells(1)
 ActiveWorkbook.Names("sel").RefersTo = ActiveWorkbook.Names("sel").RefersToRange.Cells(1).CurrentRegion.Columns(1)
End Sub

' **************************************************************
'  Modul:  Tabelle4  Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************

Option Explicit

Private Sub Worksheet_Activate()
 Aktualisiere_sel
End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß Uwe

[snb]

Ist doch viel einfacher:

Code:

sheets(2).cells(1).currentregion.columns(1).name="sel"

[Michael O.]

Hallo Uwe,

schon einmal vielen Dank für die ausführliche Antwort - das werde ich heute Abend mal ausprobieren.

Komme erst jetzt dazu, die Datei zu posten. Aus Datenschutzgründen musste ich die meisten Daten entfernen. Die wichtige Funktion im Tabellenblatt "Zusammenfassung" ist aber erhalten.

Viele Grüße
Michael

[Kuwer]

Hallo Michael,,

hab meinen Vorschlag in Deine Datei eingebaut. Der Bereich sel befindet sich im neuen Worksheet Listen.

  Kopie von demo für forum v1.6_Kuwer.xlsm (Größe: 652,51 KB / Downloads: 14)

Gruß Uwe

[Michael O.]

Hallo Uwe,

das ist ja brilliant! Sehr kompakt und vor allem sehr schnell!

Ganz herzlichen Dank - ich habe einiges gelernt.

Viele Grüße
Michael

[Kuwer]

Hallo Michael,

habe gerade noch mal getestet. Es werden automatisch nur die sichtbaren Daten kopiert.

'  Range("data").Columns(1).SpecialCells(xlCellTypeVisible).Copy Range("sel").Cells(1)
'  oder einfacher
 Range("data").Copy Range("sel").Cells(1)

Gruß Uwe