Dringend..Next und Find
20.05.2003 13:55:07
Petra
'Gibt es irgendwie eine Möglichkeit, wo mir das Makro in TB"Eingabe"
'die nächste Artikel-Nummer markiert, also nach Cells(3,1) dann Cells(4,1) und auf dem TB"GarBereich" sucht
'dann wenn gefunden die Offset-Methode anwendet, also Offset(0, 3).Resize(1, 21)
'und mir dann das kopierte in Cells(3,5) einfügt???
Sub Makro5()
Dim ArtNr As String
Sheets("Eingabe").Activate
Cells(3, 1).Activate
ArtNr = ActiveCell
Selection.Copy
Sheets("Garbereich F1 F2 ").Activate
Range("A:A").Select
On Error Resume Next
Cell = Cells.Find(What:=ArtNr, After:=ActiveCell, LookIn:=xlFormulas _
, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Offset(0, 3).Resize(1, 21).Activate
Selection.Copy
'MsgBox ArtNr
Sheets("Eingabe").Select
Cells(3, 4).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Eingabe").Select
End Sub
Danke
Petra