Divers
Ralph
ich hoffe ihr könnt mir helfen. Ich habe in A1-A200 Artikelnummern, in B1-B200 Artikelnamen,in C1-C200 Preis. Ich habe mir aus mehreren Beispielen hier im Forum diesen code gefunden der mirauch sehr hilft.
Nur möchte ich wenn ich eine Artikelnummer eingebe, das der entsprechende Datensatz gefunden und ab der Spalte H1 eingefügt wird. der nächste gefundene in H2 usw. ein weiteres Problem ist, wenn ich z.B. Artikelnr. 3 eingebe das er alle Artikelnummern die eine 3 haben findet und wegschreibt.
Private Sub CommandButton1_Click()
Dim mySearch, firstAddress
Dim strText As String
Dim lngLast As Long
Dim neublatt As String
strText = InputBox("Bitte geben Sie den Suchbegriff ein.", "Search&Find")
Range("a1").Select
If LenB(strText) > 0 Then
With Sheets("Tabelle1").Columns(ActiveCell.Column)
Set mySearch = .Find(strText, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False)
If Not mySearch Is Nothing Then
firstAddress = mySearch.Address
Do
With Sheets("Tabelle2")
lngLast = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Rows(mySearch.Row).Copy .Cells(lngLast, 1)
End With
Set mySearch = .FindNext(mySearch)
Loop While mySearch.Address firstAddress
End If
End With
End If
End Sub
Vielen Dank schon im voraus
Ralph