Spalte in LB nach Wert durchsuchen
29.06.2015 07:19:29
Chris
ich möchte in einer vierspaltigen Listbox die vierte Spalte nach einem bestimmten Eintrag durchsuchen. Wenn dieser gefunden worden ist, soll eine msgbox ausgegeben werden.
Ich erhalte die Fehlermeldung "Objekt erforderlich". Weiß jmd. eine Lösung?
Danke
Chris
Private Sub CommandButton12_Click()
Dim lngcolumn As Long
With UserForm1.ListBox3
If .List(.ListCount - 1, 3).Value = "A" Then
MsgBox "A gefunden"
Else
MsgBox "nicht gefunden"
End If
End With
End Sub
Anzeige