Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mehrspaltiges Listenfeld nach Autofilter füllen

Mehrspaltiges Listenfeld nach Autofilter füllen
09.08.2002 21:48:39
Heinz
Hilfe,
ich habe ein mehrspaltiges Listenfeld mit folgenden code gefüllt

i = ActiveSheet.UsedRange.Rows.Count
With Tabellenblatt.ListDateien
.ColumnCount = I_SysDat
.ColumnHeads = True
.RowSource = SysDat & "!A2:F" & i
.ColumnWidths = "5,8cm;1cm;2cm;2cm;2cm;12cm"
End With

Dies funktioniert auch. Danach habe ich einen Autofilter gesetzt
Selection.AutoFilter field:=2, Criteria1:="Web"

Auf dem Tabellenblatt ist dieser Filter auch vollzogen.

Aber wie bekomme ich die Daten jetzt in mein Listenfeld ???

Falls jemand etwas einfällt wäre ich sehr dankbar

Heinz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Mehrspaltiges Listenfeld nach Autofilter füllen
10.08.2002 06:55:25
Hajo_Zi
Hallo Heinz

realisiere es über eine For Next Schleife, in dieser Art

Gruß Hajo

Re: Mehrspaltiges Listenfeld nach Autofilter füllen
11.08.2002 07:53:06
Heinz
Hurra es klappt,

ich habe es ausprobiert und es klappt. Allerding verwende ich für die ungefilterten Daten nachfolgenden Code und diese habe ich auskommentieren müssen, damit der gefilterte Code klappt.
Kann man diesen per Programm ausschalten ?


i = ActiveSheet.UsedRange.Rows.Count
With Tabellenblatt.ListDateien
.ColumnCount = I_SysDat
.ColumnHeads = True
.RowSource = SysDat & "!A2:F" & i
.ColumnWidths = "5,8cm;1cm;2cm;2cm;2cm;12cm"
End With


msg Heinz

Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige