Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Abfrage in Userform


Betrifft: Abfrage in Userform von: Sebastian
Geschrieben am: 23.10.2019 05:42:38

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

  

Betrifft: AW: Abfrage in Userform von: Hajo_Zi
Geschrieben am: 23.10.2019 05:47:40

Textbo23=Cells(listbox1.listindex+1;23)

GrußformelHomepage


  

Betrifft: AW: Abfrage in Userform von: Sebastian
Geschrieben am: 23.10.2019 07:43:07

Hallo Hajo,

wenn ich diesen Code eingebe, passiert leider nichts


  

Betrifft: AW: Abfrage in Userform von: Sebastian
Geschrieben am: 23.10.2019 08:52:54

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


  

Betrifft: AW: Abfrage in Userform von: Peter (hpo)
Geschrieben am: 23.10.2019 12:44:13

Hallo Sebastian,

kannst Du eine Bsp. Datei hochladen in der wir die Strucktur erkennen und welches ergebnis Du erzielen möchtest.

Viele Grüße
Peter (hpo)


  

Betrifft: AW: Abfrage in Userform von: Hajo_Zi
Geschrieben am: 23.10.2019 16:11:02

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.
Vielleicht sollte die Datei verlinkt werden?


Gruß Hajo


  

Betrifft: AW: Abfrage in Userform von: Sebastian
Geschrieben am: 23.10.2019 19:11:40

HAllo zusammen,


anbei die Datei

https://www.herber.de/bbs/user/132698.xlsb

Also im Tabellenblatt Mitarbeiter will ich über Personalnummer oder Name oder Abteilung auswählen und er soll dann den Filter setzten beim Tabellenblatt Planer. So dass ich nur noch ein MA sehe.

Hoffe ihr könnt mir helfen.

Danke


  

Betrifft: AW: Abfrage in Userform von: Peter (hpo)
Geschrieben am: 24.10.2019 14:02:30

Hallo Sebastian,

vieleicht kannst Du damit was anfangen.

https://www.herber.de/bbs/user/132722.xlsb

Viele Grüße
Peter (hpo)


  

Betrifft: AW: Abfrage in Userform von: Sebastian
Geschrieben am: 24.10.2019 14:50:25

Hey Peter,

schaut scho malSuper aus :-) Danke erstmal dafür.

Könntest du einen Dropdowm machen, damit die Personal oder NAme sehe, denn wir haben nicht alle nummern im Kopf.

Danke


  

Betrifft: AW: Abfrage in Userform von: Peter (hpo)
Geschrieben am: 24.10.2019 15:48:13

Hallo Sebastian,

dann vieleicht so.
https://www.herber.de/bbs/user/132726.xlsb

Viele Grüße
Peter (hpo)


  

Betrifft: AW: Abfrage in Userform von: Sebastian
Geschrieben am: 24.10.2019 20:04:48

Hallo Peter,

Super Danke,

ich werde es morgen bei meiner originalen liste testen und dir nochmal Rückmeldung geben.

Danke


  

Betrifft: AW: Abfrage in Userform von: Sebastian
Geschrieben am: 25.10.2019 06:14:42

Hallo Peter,

gerade getest. Leider geht es bei 300 Zeilen sehr sehr langsam. Und die Zeile 1 bis 19 muß immer drin bleiben, da hier die Auswertungen usw. stehen.

Hättest du noch eine Idee ?

Sonst ist es super. Danke


  

Betrifft: AW: Abfrage in Userform von: Peter (hpo)
Geschrieben am: 25.10.2019 08:36:33

Hallo Sebastian,

vieleicht ist dies besser.
https://www.herber.de/bbs/user/132732.xlsb

Viele Grüße
Peter (hpo)


  

Betrifft: AW: Abfrage in Userform von: Sebastian
Geschrieben am: 25.10.2019 17:18:15

PERFEKT;

super Danke :-)


Beiträge aus dem Excel-Forum zum Thema "Abfrage in Userform"