Abfrage in Userform

Einen schönen Guten Morgen,
wir haben eine Liste mit Personalnummer SpalteA ab Zeile 4 und SpalteB den Namen dazu. ( alles über Formel hergezogen ) und Spalte H Gruppe im Tabellenblatt Mitarbeiter
Jetzt möchte ich gerne einen Button klicken, der mir die Personalnummer den Namen und die Abteilung auflistet und ich dann den Namen/ oder Personalnummer / oder sogar ich will nur die Gruppe sehen, wähle und dann der Filter beim Tabellenblatt Planer kommt. Ab Zeile 19
Ich kann natürlich auch Filter herumspielen aber das ist immer doof, weil der MA teilweise einpaar Daten sieht. Deswegen soll der Button in ein anderen Tabellenblatt stattfinden.
Anschließend brauche ich noch einen Button der den Filter wieder herausnimmt.
Wäre sowas möglich ?
Hoffe ihr könnt mir helfen. Danke euch
Sebi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich habe es so mal getestet leider kommt der Filter nicht.

Private Sub ListBox1_Click()
' ListeBOX alle Mitarbeiter Anzeige in der Listbox , grift auf Tabelle3 zu 'FERTIG NEU
Dim lZeile As Long
'TextBox1 = ""
If ListBox1.ListIndex >= 0 Then
lZeile = 5
Do While Trim(CStr(Tabelle3.Cells(lZeile, 1).Value))  ""
If ListBox1.Text = Trim(CStr(Tabelle3.Cells(lZeile, 1).Value)) Then
' TextBox1 = Trim(CStr(Tabelle3.Cells(lZeile, 1).Value))
'TextBox2 = Tabelle3.Cells(lZeile, 2).Value
'TextBox3 = Tabelle3.Cells(lZeile, 3).Value
Exit Do
End If
lZeile = lZeile + 1
Loop
End If
End Sub


Private Sub CommandButton1_Click()
Dim i&
If ListBox1.Selected(i) = True Then
'Debug.Print ListBox1.List(i)
Tabelle4(ListBox1.List(i)).Tabelle4.Range("$A$18:$NH$100").AutoFilter Field:=1
End If
End Sub

Habe jetzt drei Listboxen erstellt.

Private Sub UserForm_Initialize() 'Eintrag Datum und Text für die ANSICHT von Tabelle3  _
FERTIGNEU
Dim lZeile As Long
'TextBox1 = ""
ListBox1.Clear
lZeile = 5
Do While Trim(CStr(Tabelle3.Cells(lZeile, 1).Value))  ""
ListBox1.AddItem Trim(CStr(Tabelle3.Cells(lZeile, 1).Value))
lZeile = lZeile + 1
Loop
ListBox2.Clear
lZeile = 5
Do While Trim(CStr(Tabelle3.Cells(lZeile, 2).Value))  ""
ListBox2.AddItem Trim(CStr(Tabelle3.Cells(lZeile, 2).Value))
lZeile = lZeile + 1
Loop
ListBox3.Clear
lZeile = 5
Do While Trim(CStr(Tabelle6.Cells(lZeile, 5).Value))  ""
ListBox3.AddItem Trim(CStr(Tabelle6.Cells(lZeile, 5).Value))
lZeile = lZeile + 1
Loop
End Sub

Dankeschön

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Abfrage in Userform

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread