erste Makroausführung falsch, danach aber richtig
04.03.2004 13:47:13
Thorsten
Mein Makro klappt eigentlich gut. Es hat nur einen Fehler:
Wenn ich die Eingabe in Zelle "Z1" (Sheet "Bestellungen" Datei "Lagerlisten chargen verschieben" [https://www.herber.de/bbs/user/4075.xls] ändere, dann wird bei der ersten Ausführung des Makros ein falscher Wert ausgegeben. Bei weiteren Ausführungen des Makros werden die richtigen Werte übergeben. "Z1" ist die Variable, mit der das MAkro suchen soll.
Sub Makro1()
' Makro1 Makro
' Makro am 11.12.2003 von aufgezeichnet
Dim txZ1 As String, txZ2 As String
txZ1 = Sheets("Bestellungen").Range("Z1").Value
txZ2 = Sheets("Bestellungen").Range("Z2").Value
Sheets("Bestellungen").Select
Range("AA2").Select
Selection.Copy
Range("Z2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Lagerbestand").Select
Cells.Find(What:=txZ2, 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
Cells.Find(What:=txZ1, 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
Selection.Copy
Sheets("Bestellungen").Select
Selection.Insert Shift:=xlToRight
Sheets("Lagerbestand").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Sheets("Bestellungen").Select
End Sub