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.

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.

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

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