Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Listbox nur bestimmte Einträge

Listbox nur bestimmte Einträge
04.10.2006 13:20:57
Egon
Hallo!
Habe ein Problem, wer hilft?
Wenn ich eine Userform aufrufe sollen in einer Listbox nur die Mitarbeiter die zur gleichen Schicht (z.B. Schicht C) gehören Namen, Vornamen usw. der gleichen Schicht drinstehen.
Meine Tabelle sieht so aus:
In Spalte B Namen
In Spalte C Vornamen
In Spalte D Passwort
In Spalte E die Schichtart(A,B,C,oder D)
Die gerade anwesende Schicht steht in Zelle A1, z.B. C ist da.
Also in 1. Spalte der Listbox Name
in 2. Spalte der Listbox Vorname
in 3. Spalte der Listbox Passwort(kein Problem mit der Anzeige)
in 4. Spalte der Listbox Schicht(z.B. Schicht C)
Vielen Dank im Voraus
Egon

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

Betreff
Datum
Anwender
Anzeige
AW: Listbox nur bestimmte Einträge
04.10.2006 13:52:13
Rudi
Hallo,

Private Sub UserForm_Initialize()
Dim n As Integer, i As Integer
With Sheets(1)
For i = 1 To .Cells(65536, 5).End(xlUp).Row
If .Cells(i, 5) = .Cells(1, 1) Then
ListBox1.AddItem n
ListBox1.List(n, 0) = .Cells(i, 2)
ListBox1.List(n, 1) = .Cells(i, 3)
ListBox1.List(n, 2) = .Cells(i, 4)
ListBox1.List(n, 3) = .Cells(i, 5)
n = n + 1
End If
Next
End With
End Sub

Gruß
Rudi
AW: Listbox nur bestimmte Einträge
04.10.2006 14:12:36
Egon
Hallo Rudi!
Perfekt!
Herzlichen für deine Mühe.
Klappt prima.
Gruß
Egon
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige