Suchen mit Excel

[densen]

Hallo.
So mein Problem ist das ich ein Makro schreiben will mit dem ich die Arbeiter suchen kann und er mir auflistet wieviele Stunden die Person in den Monat arbeitet und an welchen Tagen.
Ich habe mir das so überlegt das auf der ersten seite also Tabelle 1 das suchfenster ist und da in die liste die Person eingetragen wird.

 

[Outsider77]

Hi, besser spät als nie!
Du könntest Dir ein Textfeld auf Deine Tabelle ziehen, in die man den entsprechenden Namen eingibt.
Um eventuelle Schreibfehler zu vermeiden, würde ich stattdessen ein Kobinationsfeld oder ein Listenfeld mit allen Namen füllen lassen und anschließend die doppelten Einträge wieder entfernen.

Private Sub ComboBox1_DropButtonClick()
Dim r As Integer
Dim scd
Dim c As Variant
Dim a As Long

Tabelle1.ComboBox1.Clear

'ComboBox mit allen Werten in Spalte A füllen
For r = 4 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(r, 1).Value <> "" Then
        Tabelle1.ComboBox1.AddItem Cells(r, 1).Value
    End If
Next r

'doppelte Einträge in ComboBox entfernen
Set scd = CreateObject("Scripting.Dictionary")
For a = 0 To Tabelle1.ComboBox1.ListCount - 1
    scd(Tabelle1.ComboBox1.List(a)) = 1
Next a
Tabelle1.ComboBox1.Clear

For Each c In scd.keys
    Tabelle1.ComboBox1.AddItem (c)
Next c

Set scd = Nothing

End Sub

Jetzt brauchst Du nur noch nach der entsprechenden Auswahl zu suchen und alle "Treffer" zu addieren.

Gruß Outi