Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1448to1452
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA AutoFilter Auswahl aus Liste füttern

VBA AutoFilter Auswahl aus Liste füttern
27.09.2015 16:52:32
WalterK
Schönen Sonntag,
ich möchte die Auswahl für den Autofilter aus einer Liste füttern:
die Liste befindet sich im Bereich K3:K?
Und das ist mein Problem, die Liste ist unterschiedlich lang: manchmal stehen Einträge von K3:K10, dann wieder von K3:K4 usw.
Wie muss man das im Code anführen?
Besten Dank für Eure Hilfe, Servus Walter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA AutoFilter Auswahl aus Liste füttern
27.09.2015 16:54:54
Hajo_Zi
ermittle die letzte Zelle in Spalte K
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 11)), Cells(Rows.Count, 11).End(xlUp).Row, Rows.Count)

AW: VBA AutoFilter Auswahl aus Liste füttern
27.09.2015 17:46:55
WalterK
Hallo Hajo,
mein Codeteil sieht jetzt so aus:
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 11)), Cells(Rows.Count, 11).End(xlUp).Row, Rows.Count)
wksTest.Range("$A$2:$M$23").AutoFilter Field:=11, Criteria1:=wksTest.Range("K3:K" & LoLetzte), Operator:=xlFilterValues
so funktionierts aber nicht!
Wie muss es bei Criterial1 richtig lauten?
Besten Dank und Servus, Walter

Anzeige
AW: VBA AutoFilter Auswahl aus Liste füttern
27.09.2015 17:48:34
Hajo_Zi
Du kannst nur einen Wert zuweisen, soweit mir bekannt.
Gruß Hajo

AW: VBA AutoFilter Auswahl aus Liste füttern
27.09.2015 18:15:19
WalterK
Danke Hajo,
dann muss ich einen anderen Weg finden.
Schönen Sonntag noch, Servus, Walter

AW: VBA AutoFilter Auswahl aus Liste füttern
27.09.2015 19:25:33
Gerd
Servus Walter!
Sub b()
Dim LoLetzte As Long
Dim wksTest As Worksheet
Set wksTest = Tabelle2 'Anpassen
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 11)), _
Cells(Rows.Count, 11).End(xlUp).Row, Rows.Count)
wksTest.Range("$A$2:$M$23").AutoFilter Field:=11, _
Criteria1:=Array(Application.Transpose(wksTest.Range("K3:K" & LoLetzte))), _
Operator:=xlFilterValues
End Sub
Aber, warum filterst du nicht nach "nicht leere" in Spalte K ?
Gruß Gerd

Anzeige
AW: VBA AutoFilter Auswahl aus Liste füttern
27.09.2015 19:42:45
WalterK
Hallo Gerd,
besten Dank, funktioniert wie gewünscht.
Auf die Idee nach den "nicht leeren" zu Filtern bin ich gar nicht gekommen. Das wäre ja noch einfacher.
Schönen Abend noch und Servus, Walter

326 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige