weitersuchen
19.05.2003 12:19:50
Petra
bräuchte eure hilfe..
hab hier ein makro, jedoch soll es nach dem einfügen wieder weitersuchen und so weiter..
für eure hilfe danke im voraus
petra
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
Anzeige