Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1568to1572
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
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gefilterte Werte in UF Listbox ändern

gefilterte Werte in UF Listbox ändern
31.07.2017 18:19:51
Peter
Hallo ihr Excelspezialisten,
ich fülle eine Listbox mit Werten aus einer Tabelle welche gefiltert ist.
Nun möchte ich diese Werte in die Textboxes übertragen, ändern und zurück
in die Tabelle einfügen.
Mein momentanes Problem ist, dass der gefilterte Wert in der Listbox nicht
mit den Zeilen in der Tabelle übereinstimmen.
Wer kann bitte mir bei der Lösung meines Problems behilflich sein.
Besten Dank
Gruss
Peter

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gefilterte Werte in UF Listbox ändern
31.07.2017 18:31:20
Hajo_Zi
Hallo Peter,
schreibe die Zeile in die Listbox, Spaltenbreite 0

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
AW: gefilterte Werte in UF Listbox ändern
31.07.2017 18:35:44
Peter
Hallo Hajo,
Danke für Deinen Hinweis, aber wie mache ich dies?
Gruss
Peter
AW: gefilterte Werte in UF Listbox ändern
31.07.2017 18:38:00
Hajo_Zi
Hallo Peter,
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
Gruß Hajo
Anzeige
UF Listbox Zeilennummer in zusätzliche Spalte
31.07.2017 18:45:29
Beverly
Hi Peter,
wenn die Daten gefiltert in die ListBox eingetragen werden, läufst du doch sicher in einer Schleife über die Daten und liest sie mittels AddItem ein? Auf die folgende Art und Weise wird zusätzlich die Zeilennummer in die 2. Spalte der ListBox eingelesen:
    Me.ListBox1.AddItem Cells(Zeile, Spalte)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Zeile

AW: UF Listbox Zeilennummer in zusätzliche Spalte
31.07.2017 19:11:05
Peter
Hallo Karin,
Danke für Deine Hilfe, aber leider komme ich damit noch nicht klar.
Derzeit lade ich die ListBox per Button: Makro hierfür anbei:
'CmdBtn1 Listbox1 füllen 
Private Sub CommandButton1_Click()
Dim arr() As Variant
Dim iRow As Long, iRowU  As Long, BLetzte As Long
'hier wird der Filter ausgeführt
Call MakroFiltern
ListBox1.Clear
With ListBox1
.Font.Size = 10
.ColumnCount = 7
.ColumnWidths = ("6,5cm;6,3cm;5,3cm;2,6cm;3,3cm;2,6cm;3,0cm")
'A        B      C     D   E       F   G
End With
BLetzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
For iRow = 3 To BLetzte
If Not Rows(iRow).Hidden Then
If Cells(iRow, 1)  "" Then
ReDim Preserve arr(0 To 6, 0 To iRowU)
arr(0, iRowU) = Cells(iRow, 1)
arr(1, iRowU) = Cells(iRow, 2)
arr(2, iRowU) = Cells(iRow, 3)
arr(3, iRowU) = Cells(iRow, 4)
arr(4, iRowU) = Cells(iRow, 5)
arr(5, iRowU) = Cells(iRow, 6)
arr(6, iRowU) = Cells(iRow, 7)
iRowU = iRowU + 1
End If
End If
Next iRow
ListBox1.Column = arr
End Sub

Was muss ich bitte ändern um die Zeilennummer zu erhalten, und wie muss ich es durchführen, dass die Daten der Textboxes zurück in die richtige Zeile übertragen werden.
Besten Dank für Deine Hilfe.
Gruss
Peter
Anzeige
AW: UF Listbox Zeilennummer in zusätzliche Spalte
31.07.2017 19:23:26
Beverly
Hi Peter,
du musst dein Array im 1 Feld erweitern:
ReDim Preserve arr(0 To 7, 0 To iRowU)

und die Zeilennummer dort eintragen:
arr(7, iRowU) = iRow

Dann kannst du auf die Zeilennummer nach diesem Prinzip zugreifen:
Zeilennummer = Clng(Me.ListBox1.List(Me.ListBox1.ListIndex, 7))


AW: UF Listbox Zeilennummer in zusätzliche Spalte
31.07.2017 19:50:53
Peter
Hallo Karin,
besten Dank für Deine Antwort. Werde es morgen gleich ausprobieren.
Wünsche Dir noch einen schönen Abend.
Gruss
Peter
Anzeige
AW: UF Listbox Zeilennummer in zusätzliche Spalte
31.07.2017 20:03:08
 
 
AW: UF Listbox Zeilennummer in zusätzliche Spalte
01.08.2017 09:44:18
Peter
Hallo Karin,
besten Dank für Deine Hilfe. Es funktioniert einwandfrei.
Wünsche Dir noch einen schönen Tag.
Gruss
Peter

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

CommandButton 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
5
10
1
4
1
5
1
6
6
3
2
8
1
2
2