Abfrage über mehrere Spalten
02.01.2004 16:31:24
Alois Gruber
Ich habe da folgendes Makro mit einem Problem
Private Sub cmdCheck_Click()
Dim vRow As Variant
With ThisWorkbook.Worksheets("Namen")
vRow = Application.Match(txtName.Text, .Columns(1), 0)
If Not IsError(vRow) Then
vRow = Application.Match(txtVorname.Text, .Columns(2), 0)
End If
End With
If IsError(vRow) Then
lblMsg.Caption = "Name wurde nicht gefunden"
Else
lblMsg.Caption = "Name wurde gefunden!"
End If
End Sub
Es fragt Spalten eines ausgeblendeten Arbeitsblattes nach Vor- und Nachnahmen ab.
Es hat leider nur einen Fehler.
Nur wenn der Vor- und Nachnahmen in der gleichen Zeile stehen, sollte die Meldung "Name wurde gefunden!" ausgegeben werden.
Wie muss ich es umschreiben um das hinzukriegen?
Bitte um eure Hilfe!