Suche mit zwei Kritererien
chris
ich habe eine Tabelle mit Arbeitszeiten der Mitarbeiter.
Die Tabelle ist wie folgt aufgebaut:
Datum Kunde Mitarbeiter Arbeitszeit
10 Januar 2010 xyz Christian 8,0
Mit folgendem Code aus dem Forum werte ich die Tabelle aus nach Kunden usw:
Sub Var_MultiSeek()
'by Ramses
'Sucht in der gesamten Mappe nach einem Begriff und kopiert die
'gefundene Zeile in eine zu definfierende Ergebnistabelle
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String
'Suchbegriff
Dim sFind As Variant
Dim cr As Long, tarWks As String
'Name_der_Zieltabelle
'Bitte Anpassen !!!!
Set wks = Worksheets("Stundenliste")
tarWks = "Auswertung"
cr = 65536
If Worksheets(tarWks).Cells(cr, 1) = "" Then
cr = Worksheets(tarWks).Cells(cr, 1).End(xlUp).Row
End If
If cr = 0 Then cr = 1
'Suchbegriff definieren
sFind = InputBox("Bitte Suchbegriff eingeben:")
If sFind = "" Then Exit Sub
'Suchbegriff auf Zelle definieren
'sFind = Worksheets("Tabelle1").Range("A1")
If wks.Name = tarWks Then Exit Sub
Set rng = wks.Cells.Find(What:=sFind, _
lookat:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.GoTo rng, True
wks.Rows(rng.Row).Copy Destination:=Worksheets(tarWks).Rows(cr)
cr = cr + 1
Set rng = wks.Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
End Sub
Ist es möglich einen zweiten Suchbegriff mit einzubeziehen, so das ich eine Auswertung nach Mitarbeiter und Monat erstellen kann?
Gruß
Christian