Hallo zusammen,
folgendes Szenario :)
Daten werden in einer Userform eingelesen (über eine Suchmaske eingelesen) - das funktioniert auch -
Daten liest er aus dem Reiter "DAP"
Unter Spalte A = Namen
Unter Spalte B = Datum
Unter Spalte C = Ausgangswert
Unter Spalte D = Maßnahme
Name wird in Combobox1 aufgerufen aber immer nur einmal (also Duplikate werden entfernt)
Datum wird in Combobox2 aufgerufen
-> zb. Name "Daniel Test" gibt es zweimal mit Datum 10.01.2014 und 14.01.2014
Bei Datumsangaben werden alle aufgelistet
Über ein Buttton sollen die restlichen Daten in verschiedene TB aufgelistet werden
Er zeigt mir aber immer nur die zu letzt eingetragenen Werte an (also im Bsp die vom 14.01.2014) oder manchmal auch garkeine
Suchkriterium ist aber nicht nur der Name sondern auch das Datum
Private Sub CommandButton6_Click()
Dim f As Long
Dim Suchergebnis1 As Range
Dim objControl As Control
' Namen übernehmen und suchen
TextBox1.Value = ComboBox1.Text 'Namen übernehmen und in TB1
With Worksheets("DAP")
With .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
Set Suchergebnis1 = .Find(TextBox1.Value, LookIn:=xlValues)
If Not Suchergebnis1 Is Nothing Then
For f = 3 To 9
Me.Controls("textbox" & f).Value = Suchergebnis1.Offset(0, f - 1).Value
Next f
End If
End With
End With
End Sub
Aktuell sucht er nur über den Namen wie kann ich hier noch eine zweite Bedingung einbauen?
Danke & LG
Daniel
|