VBA: Suche über Userforn mit 2 Kriterien pro Zeile
27.09.2017 14:15:04
Leon
im Moment habe ich ein VBA Script, welches per Userform und Combobox meine Excel Tabelle nach einer bestimmten Nummer in Spalte H durchsucht und dann das aktuelle Datum in eine andere Spalte (E) schreibt. (Danke noch einmal an Harry für seine Hilfe!)
Besagte Nummer kann jedoch öfter vorkommen und es müsste zusätzlich in einer weiteren Spalte (D) gesucht werden um die richtige Zeile zu finden. (Am liebsten auch über eine ComboBox).
Leider komme ich hier nicht wirklich weiter. Gibt es da eine Möglichkeit?
Hier einmal das aktuelle Script:
Private Sub CommandButton1_Click()
Dim rngFind As Range
Dim firstAddress As String
If ComboBox1 = "" Then Exit Sub
With Bereich '--Rangeobject
Set rngFind = .Find(ComboBox1, LookIn:=xlFormulas) 'sucht Cbo Eintrag
If Not rngFind Is Nothing Then
firstAddress = rngFind.Address '--erste Trefferaddresse
Do
Cells(rngFind.Row, 5) = Date '--SpalteE Zeile = Trefferzeile
Set rngFind = .FindNext(rngFind) '--suche naechste Zelle
Loop While rngFind.Address firstAddress '--mach so lange wie erste Trefferaddresse _
_
Trefferaddresse
End If
Leon
Anzeige