Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1040to1044
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gefilterte Daten in Listbox einfügen

gefilterte Daten in Listbox einfügen
18.01.2009 00:30:47
Larissa
Hallo,
ich bin mir nicht sicher, ob es richtig ist, dass ich einen neuen Thread aufmache, weil ich diese Frage schon für ein anderes Makro gestellt habe.
Jetzt komme ich an einer anderen Stelle nicht weiter. Auch mit dem folgenden Mako lese ich Daten aus einer Tabelle "Artikel" in eine Listbox ein. Ich möchte aber, dass nur die gefilterten Daten eingelesen werden. Ich kann die andere Lösung irgendwie nicht auf dieses Makro übertragen.....

Private Sub UserForm_Activate()
'Unload UserForm4
Dim rngSource As Object
Dim intColums As Integer
ListBox1.Tag = 1
Set rngSource = Worksheets("Artikel").Range("A1").CurrentRegion
Set rngSource = rngSource.Offset(1, 0).Resize(rngSource.Rows.Count - 1, rngSource.Columns.  _
Count)
intColums = rngSource.Columns.Count
With Me.ListBox1
.ListStyle = fmMultiSelectSingle
.ColumnCount = intColums
.ColumnHeads = True
.RowSource = rngSource.Address(External:=-1)
End With
Set rngSource = Nothing
ListBox1.Tag = ""
ListBox1.ColumnWidths = "50 Pt;120 Pt;80 Pt;40 Pt;40 Pt;40 Pt;50 Pt"
End Sub


Wäre toll, wenn mir da nochmal jemand helfen könnte.
Vielen Dank und lieben Gruß,
Larissa

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gefilterte Daten in Listbox einfügen
18.01.2009 00:42:53
Ramses
Hallo
Mit dem Ansatz von Tino probier mal das
Option Explicit

Private Sub UserForm_Activate()
'Unload UserForm4
Dim Zelle As Range
Dim rngSource As Object
Dim intColums As Integer
ListBox1.Tag = 1
Set rngSource = Worksheets("Artikel").Range("A1").CurrentRegion
Set rngSource = rngSource.Offset(1, 0).Resize(rngSource.Rows.Count - 1, rngSource.Columns.Count) _
intColums = rngSource.Columns.Count
With Me.ListBox1
.ListStyle = fmMultiSelectSingle
.ColumnCount = intColums
.ColumnHeads = True
.Tag = ""
.ColumnWidths = "50 Pt;120 Pt;80 Pt;40 Pt;40 Pt;40 Pt;50 Pt"
For Each Zelle In rngSource.SpecialCells(xlCellTypeVisible)
If Zelle  "" Then
.AddItem
.List(i, 0) = Zelle
.List(i, 1) = Zelle.Offset(0, 1)
.List(i, 2) = Zelle.Offset(0, 2)
.List(i, 3) = Zelle.Offset(0, 3)
.List(i, 4) = Zelle.Offset(0, 4)
.List(i, 5) = Zelle.Offset(0, 5)
.List(i, 6) = Zelle.Offset(0, 6)
i = i + 1
End If
Next
End With
Set rngSource = Nothing
ListBox1.Tag = ""
ListBox1.ColumnWidths = "50 Pt;120 Pt;80 Pt;40 Pt;40 Pt;40 Pt;50 Pt"
End Sub


Gruss Rainer

Anzeige
AW: gefilterte Daten in Listbox einfügen
18.01.2009 09:26:00
Tino
Hallo,
das wird so nicht gehen, weil rngSource gesamten Zellbereich durchläuft und nicht nur die Spalte 1.
Das mit der Überschrift kannst Du auch vergessen,
erstell Dir über der Listbox für die Überschrift einige Labels und fülle diese mit der Überschrift.
Bsp. Label1.Caption = Range("A1") usw…
Option Explicit

Private Sub UserForm_Activate()
'Unload UserForm4 
Dim Zelle As Range
Dim rngSource As Range
Dim intColums As Integer
Dim i As Long

ListBox1.Tag = "1"
Set rngSource = Worksheets("Artikel").Range("A1").CurrentRegion
Set rngSource = rngSource.Offset(1, 0).Resize(rngSource.Rows.Count - 1, rngSource.Columns.Count) _

intColums = rngSource.Columns.Count
    With Me.ListBox1
        .ListStyle = fmMultiSelectSingle
        .ColumnCount = intColums
'        .ColumnHeads = True 
        .Tag = ""
        .ColumnWidths = "50 Pt;120 Pt;80 Pt;40 Pt;40 Pt;40 Pt;50 Pt"
        For Each Zelle In rngSource.Columns(1).SpecialCells(xlCellTypeVisible)
            If Zelle <> "" Then
                 .AddItem Zelle
                 .List(i, 1) = Zelle.Offset(0, 1)
                 .List(i, 2) = Zelle.Offset(0, 2)
                 .List(i, 3) = Zelle.Offset(0, 3)
                 .List(i, 4) = Zelle.Offset(0, 4)
                 .List(i, 5) = Zelle.Offset(0, 5)
                 .List(i, 6) = Zelle.Offset(0, 6)
                i = i + 1
            End If
        Next
    End With
    Set rngSource = Nothing
    ListBox1.Tag = ""
    ListBox1.ColumnWidths = "50 Pt;120 Pt;80 Pt;40 Pt;40 Pt;40 Pt;50 Pt"
End Sub


Gruß Tino

Anzeige
Danke Tino
18.01.2009 15:33:52
Larissa
Hallo Tino,
Stimmt, bei dem Code von Rainer wurden zwar die Daten eingelesen, diw waren aber alle wild durcheinander. Deine Codeanpassung funktioniert klasse und mit den Überschriften werde ich es genau so machen, wie Du es empfohlen hast. Danke mal wieder für Deine tolle Hilfe. Das hat mich jetzt wieder ein gutes Stück dem Ziel nähergebracht ;-)
Bies denne,
Gruß, Lairssa
AW: Danke Tino
18.01.2009 15:53:58
Ramses
Hallo
Es ist richtig, ich habe mein Beispiel nicht getestet und nur kurz überflogen,... aber
"...diw waren aber alle wild durcheinander..."
Warum sagst du dann nichts ?
Gruss Rainer
Danke Rainer *x*
18.01.2009 19:07:37
Larissa
Hallo Rainer, ich habe Stundenlang versucht es irgendwie zu sortieren, aber immer ohne Erfolg und plötzlich kam Tino mit der Lösung. 1000 Dank trotzdem auch an Dich für Deine Mühe, die ich wirklich sehr zu schätzen weiß. Sorry, hätte mich gleich bedanken sollen. Mein Kopf ist so voll VBA, dass ich die guten Manieren zu vergessen scheine. Lieben Gruß, Larissa
Anzeige

299 Forumthreads zu ähnlichen Themen

Gefilterte Dateien in txt exportieren
Gerhard

Namd zusammen
Gibt es eine Möglichkeit ausschliesslich gefilterte Dateien in eine txt Datei zu speichern?
Habe eine grosse Tabelle aus der ich nur einzelne Spalten (andere Spalten sind via VBA ausgeblendet) benötige und aus diesen noch sichtbaren Spalten via Autofilter nochmals eingren...
18.08.2008 21:35:19
Thread-ID: 1002746
4 Beiträge
Anzeige
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Anzeige
Gefilterte Zeilen/ Spalten Kopieren
Falk

Hallo zusammen,
folgendes Problem für mich:
Ich filtere den Bereich von A1:CD1000. Der Filter wird je nach Anforderung auf verschiedene Spalten gesetzt.
In den Zellen von Spalte A befindet sich eine Formel, die den Blattnamen anzeigt wenn in Spalte D und F etwas eingetragen ist anso...
11.11.2008 10:13:33
Thread-ID: 1023442
3 Beiträge
Formel - Anzeige der gefilterten Inhalte
Rocky

Hallo Excelfreunde und zweiäugigen unter den Blinden und Einäugigen,
ich möchte gern einen dynamischen "Querfilter" basteln. Mein Ansatz bisher: Ich kopieren die Tabelle und transportiere diese. dann wird in jede Zelle folgende Formel geschrieben:
=WENN(INDIREKT(ADRESSE(SPALTE()+0;ZEILE...
28.11.2008 08:53:12
Thread-ID: 1028554
4 Beiträge
Gefilterte Spalten anzeigen
Gernot

Hallo zusammen,
habe eine Liste mit 64 Spalten und ca. 5.000 datensätzen, die nach mehreren Kriterien
gefiltert wird(Autofilter). Es ist sehr mühsam, die gefilterten Spalten ausfindig zu machen.
Ich stelle mir vor, alle Spalten, in denen der Filter eingeschaltet ist, in eine Combobo...
05.12.2008 22:51:00
Thread-ID: 1030615
6 Beiträge
gefilterte Daten in Listbox einfügen
Larissa

Hallo,
ich möchte nur gefilterte daten in eine Listbox einlesen. Dieses Makro habe ich hier gefunden:
ClassModule: Artikel
Private Sub Worksheet_Calculate()
Dim iCounter As Integer
lstFilter.Clear
For iCounter = 2 To WorksheetFunction.CountA(Columns(1))
If Rows(iCoun...
17.01.2009 17:30:00
Thread-ID: 1040940
2 Beiträge
Nur gefilterte Daten in die Listbox
Larissa


Hallo,
ich möchte nur gefilterte Daten in der Listbox anzeigen lassen und kriege das nicht hin.
Ich füge mal meinen Code ein:
Private Sub UserForm_Activate() Dim lLetzte As Long Dim lZeile As Long Dim lLibox As Long Application.ScreenUpdating = False With Me.ListBox1 .Co...
17.01.2009 20:14:35
Thread-ID: 1040981
7 Beiträge
Anzeige

Links zu Excel-Dialogen

Label ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
2
6
4
2
3
5
1
6
10
1
4
1
5
1
6
6
3
2
8
1
2
2
3