Makro mit Suchbefehl
11.12.2003 08:19:11
Thorsten
ich benötige Hilfe, da ich mir keinen Rat mehr weiß.
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" (Sheet "Bestellungen")in die nachfolgende Suche übernommen wird (hier z.B. "30176003" im Sheet "Lagerbestand") bzw. weiter unten im Makro der jeweils aktuelle Wert aus Zelle "Y1" (hier "3637")(sheet Bestellungen). Der Rest des Makros funktioniert prima.
Sub Makro1()
' Makro1 Makro
' Makro am 11.12.2003 von aufgezeichnet
Sheets("Bestellungen").Select
Range("Y2").Select
Selection.Copy
Sheets("Lagerbestand").Select
Range("C563").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
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
End Sub