Listbox und Markierung
19.11.2003 17:54:33
hans jörg
mit folgendem code will ich nach dlbclick in einer listbox den wert in einer tabelle suchen lassen und alle ab dem gefundenen wert + die nichtleeren darunterliegenden zellen kopieren und in D1 einfügen
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cells.Find(What:=ListBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True,SearchFormat:=False).Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("D1").Select
Selection.PasteSpecial
'Application.CutCopyMode = False
End Sub
Problem: warum kopiert er mir nur den gesuchten wert?
und nicht die darunterliegenden werte???
habe in Zelle B11 den gesuchten Wert und darunter noch 10 zellen die relevant sind aber vba kopiert mir nur die zelle B1 bis B11 :-/ sehr komisch
kann jemand helfen?
danke hans j