Gesuchte Werte auflisten???
30.07.2003 08:41:15
Harald
Möchte in einer Spalte nach einem Wert suchen (zb.Nicht gefunden), und danach die dazugehörenden Werte dieser Zeile auflisten.
..A..................B...................C..........................................D
Brot.............1Stk..............Ja............................Nicht gefunden
Wurst..........2Stk..............Ja............................Nicht gefunden
Saft.............2Stk..............Ja............................Nicht gefunden
usw.
Habe den Code schon fast fertig, aber leider sucht er bis zum ersten Eintrag "Nicht gefunden", listet die dazugehörigen Werte in die Zeile 16 auch auf, geht dann auch zum nächsten "Nicht gefunden" , aber leider überschreibt er dann die Werte in der Zeile 16, anstatt, dass er diese Werte in die Zeile 17 schreibt, die nächsten Werte Zeile 18 usw.
Private Sub Suchen()
Const suchname = "NICHT GEFUNDEN"
Dim ware As String, stk As String, bestellt As String
On Error GoTo Fehler
Workbooks("Test1.xls").Activate
Sheets("Tabelle1").Activate
Columns("D:D").Select
Do While ActiveCell.Value <> ""
Selection.Find(What:=suchname, After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
xlNext, MatchCase:=False).Activate
With ActiveCell
ware = .Offset(0, -3).Value
stk = .Offset(0, -2).Value
bestellt = .Offset(0, -1).Value
End With
[a16].Value = ware
[b16].Value = stk
[c16].Value = bestellt
Loop
Fehler:
MsgBox "Keine Einträge gefunden!"
End Sub
Ich hoffe, Ihr könnt mir bei diesem Problem helfen.
Danke schonmal
Harald