Userform Suche mit 2 Kriterien

[Thomas78]

Hallo liebes Forum,

ich habe eine (hoffentlich) vorerst letzte Frage an euch.

Ich eine Userform die nach einer Rechnungsnummer sucht und mir anschließend verschiedene Textboxen befüllt.

PHP-Code:

Dim rZelle As Range
Dim sSuchbegriff As String
Dim strErsteAdr As String

sSuchbegriff = Rechnung.TextBox3

With ListBox1
   .ColumnCount = 4
   .Clear
End With

With ThisWorkbook.Worksheets("Umsatzliste")
   Set rZelle = .Columns(5).Find(What:=sSuchbegriff, Lookat:=xlWhole, LookIn:=xlValues)
    
   If Not rZelle Is Nothing Then
      'erste Fundstelle merken (verhindert Endlosschleife)
      strErsteAdr = rZelle.Address
      
      Do 'Schleife über alle Fundstellen
    
      'In Listbox eintragen
         ListBox1.AddItem " "
         
         ListBox1.ColumnWidths = "200 Pt;100 Pt;100 Pt;100 Pt"
                           
         ListBox1.List(ListBox1.ListCount - 1, 0) = .Range("F" & rZelle.Row).Value 'Material
         ListBox1.List(ListBox1.ListCount - 1, 1) = .Range("G" & rZelle.Row).Value 'Menge
         ListBox1.List(ListBox1.ListCount - 1, 2) = .Range("H" & rZelle.Row).Value 'Einheit
         ListBox1.List(ListBox1.ListCount - 1, 3) = .Range("I" & rZelle.Row).Value 'Preis / Einheit
         ListBox1.List(ListBox1.ListCount - 1, 3) = Format(ListBox1.List(ListBox1.ListCount - 1, 3), "#,##0.00 €")
                          
      'nächste Fundstelle aufsuchen
         Set rZelle = .Columns(5).FindNext(rZelle)
          
      Loop While rZelle.Address <> strErsteAdr
      
   End If
    
End With

Set rZelle = Nothing

End Sub 


Nun kann es aber sein dass eine Rechnungsnummer von 2 verschiedenen Lieferanten benutzt wird und somit die eingetragenen Werte zusammengefügt in der Userform erscheinen.

Wie müsste ich den Code abändern, das er mir zusätzlich das Rechnungsdatum aus Textbox 4 in Spalte B vergleicht und nur bei Übereinstimmung beider Kriterien die Userform entsprechend ausfüllt?

Vielen Dank nochmals

Thomas

[Klaus-Dieter]

Hallo Thomas,

bei Suchen, die mehrere Treffer liefern können, schreibe ich die Ergebnisse in eine Listbox, wo ich dann die Feinauswahl treffen kann.

[Elex]

Hi Thomas
 

Nun kann es aber sein dass eine Rechnungsnummer von 2 verschiedenen Lieferanten benutzt wird.
zusätzlich das Rechnungsdatum aus Textbox 4 in Spalte B vergleicht.

Ist den dann 100% ausgeschlossen das Rechnungsdatum nicht auch vom selben Tag sein kann?
Wenn ja dann evtl. so etwas vor dem Ausfüllen.

Code:

If .Range("B" & rZelle.Row).Value = Textbox Then

Gruß Elex

[Thomas78]

@ Klaus-Dieter

Das ist eine schöne Möglichkeit die ich in einer anderen Userform nutze. Leider nützt es mir hier nichts, da ich mit einem Doppelklick auf eine Rechnung deren Daten sehen will.
Trotzdem vielen Dank !

@ Elex

Das ist genau das was ich gestern selbst noch ausprobiert hatte, leider habe ich den Code wohl immer an der falschen Stelle eingefügt (war aber auch schon spät, ich probiers heute nochmal).

Auch dir vielen Dank !

Schöne Grüße

Thomas

[Thomas78]

So ich habs jetzt geändert, so dass der Kundenname verglichen wird. damit dürften Doppelanzeigen ausgeschlossen sein.

Hier noch der Code falls es wen interessiert:

PHP-Code:

With ThisWorkbook.Worksheets("Umsatzliste")
   Set rZelle = .Columns(5).Find(What:=sSuchbegriff, Lookat:=xlWhole, LookIn:=xlValues)
    
   If Not rZelle Is Nothing Then
      'erste Fundstelle merken (verhindert Endlosschleife)
      strErsteAdr = rZelle.Address
     
      Do 'Schleife über alle Fundstellen
         If .Range("D" & rZelle.Row).Value <> TextBox1.Value Then                      'Wenn Kunde / Lieferant nicht gleich dann
         GoTo LastLine
         Else
         'In Listbox eintragen
                
         ListBox1.ColumnWidths = "200 Pt;100 Pt;100 Pt;100 Pt"
         
         ListBox1.AddItem " "
                           
            ListBox1.List(ListBox1.ListCount - 1, 0) = .Range("F" & rZelle.Row).Value 'Material
            ListBox1.List(ListBox1.ListCount - 1, 1) = .Range("G" & rZelle.Row).Value 'Menge
            ListBox1.List(ListBox1.ListCount - 1, 2) = .Range("H" & rZelle.Row).Value 'Einheit
            ListBox1.List(ListBox1.ListCount - 1, 3) = .Range("I" & rZelle.Row).Value 'Preis / Einheit
            ListBox1.List(ListBox1.ListCount - 1, 3) = Format(ListBox1.List(ListBox1.ListCount - 1, 3), "#,##0.00 €")
        
         'nächste Fundstelle aufsuchen
LastLine:
         Set rZelle = .Columns(5).FindNext(rZelle)
         End If
     
      Loop While rZelle.Address <> strErsteAdr

   End If
    
End With 


Danke an alle !

Thomas