Suchen in Zeilen Inhalt zwei Textboxen
04.01.2021 18:02:59
Andre
ich brauche mal wieder Hilfe.
Aus einer Tabelle lade ich durch Abfrage einer Textbox Werte in eine Listbox.
In einer Textbox gebe ich eine Menge an und diese wir dann vom Wert in der entsprechenden Zeile in der Tabelle abgezogen.
Die Zeile wird durch die Bedingung aus der ersten Spalte identifiziert. Allerdings kann dieser Wert zwei oder dreimal auftauchen, so dass ich die Abfrage für Spalte A und B benötige, die es nur einmal gibt.
Mein Code sieht so aus:
Private Sub CommandButton_buchen_Click()
Dim suche As Range, x As Long
If Me.ListBox1.ListIndex > -1 Then
x = ListBox1.List(ListBox1.ListCount - 1)
With ListBox1
Set suche = Sheets("BESTAND").Columns(1).Find(.Column(0, .ListIndex))
End With
With Me
.TextBox_MengePAL.Value = Format(CDbl(.TextBox_MengePAL.Text) - CDbl(.TextBox_Bedarf.Text) _
)
If CDbl(.TextBox_MengePAL) Set suche = Sheets("BESTAND").Columns(1).Find(.Column(0, .ListIndex))
angepasst werden muss, sofern mann die Bedingung aus zwei Spalten abfragen kann.
Kann mir jemand den Code schreiben?
Gruß
Andre