nach eingabe in einem textbox1("kennziffer") wird eine abfrage gestartet und das gesuchte wert in textbox2("ID) ausgeworfen.
Private Sub IDSuchen_Change()
Dim suchstring As String
suchstring = kennziffer
Worksheets("Daten").Select
Columns("A:A").Select
Selection.Find(What:=suchstring, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, Searchorder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(0, 0).Select
With Application.Selection
ID = .Offset(0, 1).Value 'ID
kennziffer= suchstring
End With
End Sub
die kennziffer stehen in spalte A das gesuchte wert"ID" in spalte B
nun möchte ich zur kontrolle wissen ob das gesuchte wert mehrfach steht
wenn ja soll der bereich spalte b : D markiert wird. zusätzlich soll in den markierten bereich in spalte C kontolliert werden ob da eine 1 steht wenn ja soll der wert in zelle D in textbox3 ausgewiesen wird
könnt Ihr mir dazu tipps oder hilfe geben
Viele grüsse
lucashh