Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

weitersuchen

weitersuchen
19.05.2003 12:19:50
Petra
hallo forum..
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige