Codeerweiterung gesucht!
Frank
Mein Problem: Ich nutze bislang folgenden Code zum Löschen!
Dim zelle As Range
With Sheets("Daten")
If TextBox3.Value "" Then
Set zelle = .Columns("BE:BE").Find(TextBox3.Value, LookIn:=xlValues)
If Not zelle Is Nothing Then
Else
MsgBox "Der gesuchte Datensatz ist nicht vorhanden"
Exit Sub
End If
End If
End With
Rows(zelle.Row).Delete
Nun kann es aber vorkommen, dass der Name in TextBox3 mehrfach vorkommt und so möchte ich gern noch den Wert aus Textbox4 mit in die Abfrage einbeziehen,so dass erst gelöscht werrden kann, wenn die Werte aus TextBox3 und 4 in der Tabelle gefunden worden. Die Werte aus TextBox4 stehen in Spalte BF. Die TextBox4 kann aber auch leer sein, TextBox3 ist immer gefüllt! Konntet ihr mich verstehen? Bsp. Datei geht leider nicht, ist zu gross! Bitte könnt ihr mir helfen? Danke!
Gruß Frank H.