Office: (Office 2010) vba listbox filter beim füllen

Helfe beim Thema vba listbox filter beim füllen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, leider reichen meine bscheidenen Kenntnis nicht aus. Vielleicht habt ihr eine Lösung für mich. Möchte eine Listbox füllen (ColumnCount... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von uwe001, 20. Dezember 2017.

Seite 1 von 2

UWE001

uwe001

vba listbox filter beim füllen

Hallo zusammen, leider reichen meine bscheidenen Kenntnis nicht aus.
Vielleicht habt ihr eine Lösung für mich.

Möchte eine Listbox füllen (ColumnCount = 6) mit Daten einer Tabelle, deren Wert in Spalte K leer ist.
Tabelle hat x Zeilen (variabel) und Spalten von A -W.
Nach Doppelklick sollen alle Daten der entsprechenden Zeile weiter verarbeitet werden.

kann ich hier eine if-Abfrage dazwischen schalten und mit einer Schleife dies weiter laufen lassen?

Dim lngLetzte As Long
Dim arrWerte
With Worksheets("Tabelle1")

lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
arrWerte = .Range(.Cells(2, 1), .Cells(lngLetzte, 21))

End With
ListBox4.List = arrWerte

Danke

:)

uwe001, 20. Dezember 2017

#1
Hajo_Zi Erfahrener User

Du hast in der List box 6 Spalten die Tabelle würde ich vermuten hat 21 Spalten.
Welche Zweck hat es in der ersten Zeile den Wert aus A1 uns W235 darzustellen?

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

Hajo_Zi, 22. Dezember 2017

#2
UWE001

uwe001

hier ist die Datei.

uwe001, 22. Dezember 2017

#3
UWE001

uwe001

vba listbox filter beim füllen

komme leider nicht weiter, könnte mir jemand einen Tip geben?*wink.gif*

uwe001, 27. Dezember 2017

#4
KLAUS-DIETER

Klaus-Dieter

Hallo,

wir auch nicht. Welche sechs Spalten aus der Liste sollen eingelesen werden? Spalte W gehört entgegen deiner Beschreibung offenbar nicht zur Liste. (Falls sich deine Anfrage auf das Tabellenblatt "Datenbank" bezieht).

Klaus-Dieter, 27. Dezember 2017

#5
UWE001

uwe001

Ja richtig. ich möchte Tabelle "Datenbank" ansprechen.(Spalten von A -V nicht W)
in die Listbox 4 sollen alle Datensätze angezeigt werden deren Inhalt in Spalte "K" leer ist.
Diese möchte ich dann wahlweise anklicken und weiter verarbeiten.

uwe001, 27. Dezember 2017

#6
UWE001

uwe001

ansprechen möchte ich die ersten 6 Spalten dieser Liste.

uwe001, 27. Dezember 2017

#7
HS(V)

HS(V)

vba listbox filter beim füllen

Ein Anfang.
Code:

Private Sub Userform_Initialize()
Dim sv, i As Long, c00 As String
sv = Worksheets("Datenbank").Cells(1).CurrentRegion.Resize(, 22)
c00 = 1
For i = 1 To UBound(sv)
If sv(i, 11) = "" Then
c00 = c00 & "|" & i
End If
Next i
If c00 "1" Then ListBox4.List = Application.Index(sv, Application.Transpose(Split(c00, "|")), Application.Transpose([row(1:22)]))

ComboBox1.List = Tabelle4.Columns(1).SpecialCells(2).Value
ComboBox2.List = Tabelle4.Columns(3).SpecialCells(2).Value
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Private Sub ListBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With ListBox4
'Listbox-Abfrage für Bestellung
If .ListIndex > -1 Then
txtKunde = .Column(1)
txtModell = .Column(2)
txtVKPreis = .Column(7)
txtLieferterminNW = .Column(20)
txtEndpreis = .Column(8)
txtBezahlung = .Column(17)
txtHersteller = .Column(5)
txtReifenbezeichnung = .Column(14)
txtFelge = .Column(3)
txtReifengröße = .Column(4)
txtBemerkungen = .Column(16)
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V), 27. Dezember 2017

#8
UWE001

uwe001

Vielen Dank Harry, dies funktioniert schon genau so wie geplant.
Habe jetzt nur noch ein Problem nach dem Auswählen in der Listbox die geänderten Daten in die richtige Tabellezelle zu bekommen.
Ich bin immer 1 oder 2 Zellen falsch.
Habe die ergänzte Datei nochmal angefügt.
Vielen Dank schon einmal für die super Hilfe.

uwe001, 27. Dezember 2017

#9
HS(V)

HS(V)

Hallo Uwe,

Wenn der Index aufsteigend ist.

Code:

Private Sub cmdEingabe_Click()
With Sheets("Datenbank")
'Listbox-Abfrage für Bestellung
.Cells(ListBox4.Column(0) + 1, 10).Value = txtBestelltermin
.Cells(ListBox4.Column(0) + 1, 12).Value = cboLieferant
.Cells(ListBox4.Column(0) + 1, 11).Value = cboMitarbeiter
End With
ListBox4.RemoveItem (ListBox4.ListIndex)
ClearAll
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V), 27. Dezember 2017

#10
UWE001

uwe001

danke für die Hilfe. Klaüpt nun super

VG Uwe

uwe001, 27. Dezember 2017

#11
HS(V)

HS(V)

Etwas kürzer kann natürlich auch.

Code:

Private Sub cmdEingabe_Click()
'Listbox-Abfrage für Bestellung
Sheets("datenbank").Cells(ListBox4.Column(0)+1, 10).Resize(, 3) = Array(CDate(txtBestelltermin), cboLieferant, cboMitarbeiter)
ListBox4.RemoveItem ListBox4.ListIndex
ClearAll
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V), 27. Dezember 2017

#12
UWE001

uwe001

vba listbox filter beim füllen

Danke sehr Harry, kriege dies leider mit der kürzeren Version nicht hin.
Habe die andere Funktion gewählt.
Kann ich diese Listbox, die mit einer Bedingung gefüllt wurde, auch noch durch eine Combobox und ein Textfeld noch weiter filtern?

uwe001, 28. Dezember 2017

#13
UWE001

uwe001

hier mal die geänderte Datei

uwe001, 28. Dezember 2017

#14
HS(V)

HS(V)

Du darfst jedes Wort in das Textfeld eingeben (Z.b. Kundename, Modell, Felge, UZW).

Code:

Private Sub TextBox39_Change()
'Dim sw, h As Long, c01 As String
With ListBox4
sv = Worksheets("Datenbank").Cells(1).CurrentRegion.Resize(, 23)
c01 = 1
For i = 1 To UBound(sv)
If sv(i, 11) = "" Then c01 = c01 & "|" & i
Next i
If c01 "1" Then .List = Application.Index(sv, Application.Transpose(Split(c01, "|")), Application.Transpose([row(1:23)]))
For i = .ListCount - 1 To 1 Step -1
If InStr(LCase(Join(Application.Index(.List(), i + 1, 0))), LCase(TextBox39.Value)) = 0 Then .RemoveItem i
Next i
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die kürzere Version ohne "Cdate".
Code:

Sheets("datenbank").Cells(ListBox4.Column(0)+1, 10).Resize(, 3) = Array(txtBestelltermin, cboLieferant, cboMitarbeiter)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V), 28. Dezember 2017

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

vba listbox filter beim füllen

Die Seite wird geladen...

vba listbox filter beim füllen - Similar Threads - vba listbox filter
Suchfunktion in Listbox
in Microsoft Excel Hilfe
Suchfunktion in Listbox: Hallo zusammen, bin ein Neuling was VBA angeht und habe folgendes Problem. Über Double Click öffnet sich eine neue Userform und die Daten der Zeile füllen Textboxen aus. Das funktioniert alles....
Listenfeld in Word 2016
in Microsoft FrontPage Hilfe
Listenfeld in Word 2016: Hallo, leider konnte ich keinen Eintrag zu meinem Problem finden: Wegen der größeren Länge von Texten kann ich nicht nur einfach eine listbox verwenden. Die listbox zur Auswahl der Alternativen...
Excel VBA - ListBox mit TextBox Filtern
in Microsoft Excel Hilfe
Excel VBA - ListBox mit TextBox Filtern: Grüße! Bin sonst stiller Mitleser und kann im Regelfall meine Probleme durch andere Forenbeiträge ableiten und passend abändern, aber hier bin ich an einem Punkt, wo meine VBA-Kenntnisse auf ihre...
VBA Listbox in abhängigkeit befüllen
in Microsoft Excel Hilfe
VBA Listbox in abhängigkeit befüllen: Vorweg direkt, ich entschuldige mich für´s Crossposting und lasse den anderen Beitrag löschen, mir war das nicht bekannt. Hallo zusammen, Ich habe eine kleine Excel datei mit einer Userform zur...
VBA ListBox markieren wenn Eintrag gefunden
in Microsoft Excel Hilfe
VBA ListBox markieren wenn Eintrag gefunden: Hey, ich habe hatte hier mal gefragt ob mir jemand helfen kann bei meinem Problem. Leider kam da bis heute noch nichts. Vielleicht auch weil es im anderen Thema gefragt wurden ist. Daher hier...
VBA ListBox Zeilen entsprechend in Tabelle löschen
in Microsoft Excel Hilfe
VBA ListBox Zeilen entsprechend in Tabelle löschen: Hallo zusammen, ich habe ein Problem mit dem Löschen von Inhalten aus meiner Tabelle anhand der Auswahl in der ListBox. Ich lese die Daten der ListBox aus einem Tabellenblatt ein. Multiselect ist...
Mehrfachauswahl ohne VBA
in Microsoft Excel Hilfe
Mehrfachauswahl ohne VBA: Hallo an alle, ich habe einen Bereich mit Namen und Auswahlkennzeichen: Nüsse - wahr Schokolade - falsch Gemüse - wahr Alkohol - falsch Ich möchte in einer Listbox die Namen als Multiselect...

Users found this page by searching for:

excel userform listenfeld füllen

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden