verschachteln von "Find"
"Find"
auf seite 1 stehen in spalte 1 die Ladennamen (Laden1, Laden2 u.s.w) diesen ist jeweils in Spalte 2 ein Buchtitel zugeordnet (Buch1, Buch2 u.s.w) und in Spalte 3 die verkaufte Anzahl; auf Seite 2 stehen in Spalte 1 die Ladennamen in sortierter Reihenfolge und in Zeile 1 ab Spalte2 die Buchnamen sortiert von links nach rechts
jetzt suche ich mit dem nachfolgenden Makro nach dem ersten Buch (Buch1) und erhalte den zugeordneten Ladennamen; mit diesem will ich nun auf Seite 2 weitersuch um in der zugehörigen Spalte die Buchanzahl zu summieren
Sub buch_laden()
Set s_buch = Sheets(1).Columns(2).Find("Buch1", , , xlWhole)
If Not s_buch Is Nothing Then
firstAddress = s_buch.Address
Do
laden = Sheets(1).Cells(s_buch.Row, 1)
MsgBox laden
Set s_laden = Sheets(2).Columns(1).Find(laden, , , xlWhole)
Set s_buch = Sheets(1).Columns(2).FindNext(s_buch)
Loop While Not s_buch Is Nothing And s_buch.Address firstAddress
End If
End Sub
gruß detlef
Anzeige