Suche mit Makro
10.12.2003 14:46:31
Thorsten W. aus B
Ich möchte ein Makro durchführen (unten Beigefügt).
Dabei möchte ich, das bei der Ausführung des Makros der jeweils aktuelle Wert aus der Zelle "Y2" in die nachfolgende Suche übernommen wird (hier z.B. "30176003") bzw. weiter unten im Makro der jeweils aktuelle Wert aus Zelle "Y1" (hier "3637"). Der Rest des Makros funktioniert prima.
Sub Makro2()
' Makro2 Makro
' Makro am 10.12.2003 von aufgezeichnet
' Tastenkombination: Strg+ö
Range("Y2").Select
Selection.Copy
Sheets("Lagerbestand").Select
Cells.Find(What:="30176003", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Cells.Find(What:="zzzz", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Cells.Find(What:="ch00", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Sheets("Bestellungen").Select
ActiveWindow.SmallScroll Down:=-6
Range("Y1").Select
Application.CutCopyMode = False
Selection.Copy
Cells.Find(What:="3637", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Cells.Find(What:="ZZZ", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Sheets("Lagerbestand").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Bestellungen").Select
Selection.Insert Shift:=xlToRight
Sheets("Lagerbestand").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Sheets("Bestellungen").Select
ActiveWindow.SmallScroll ToRight:=-22
Range("Y2").Select
End Sub