Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
348to352
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
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suche mit Makro

Suche mit Makro
10.12.2003 14:46:31
Thorsten W. aus B
Hallo, wer kann mir helfen.
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" in die nachfolgende Suche übernommen wird (hier z.B. "30176003") bzw. weiter unten im Makro der jeweils aktuelle Wert aus Zelle "Y1" (hier "3637"). Der Rest des Makros funktioniert prima.


Sub Makro2()
' Makro2 Makro
' Makro am 10.12.2003 von   aufgezeichnet
' Tastenkombination: Strg+ö
Range("Y2").Select
Selection.Copy
Sheets("Lagerbestand").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
ActiveWindow.SmallScroll Down:=-6
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
ActiveWindow.SmallScroll ToRight:=-22
Range("Y2").Select
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche mit Makro
10.12.2003 14:58:21
Jan
Hallo!
Probiers doch mal so:

Dim Y2
Y2 = Range("$y$2")

range("y1").select
Cells.Find(Y2, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

So benötigt du auch keine Copy-Anweisung. Für Y1 gilt entsprechendes.

mfg
Jan
AW: Suche mit Makro
10.12.2003 15:41:21
Thorsten W. aus B
Danke, ich habe aber da noch das Problem, das sich die Zelle "Y2" im Sheet "Bestellungen" befindet, die suche aber im Sheet "Lagerbestand" ausgeführt werden soll.
AW: Suche mit Makro
11.12.2003 11:18:34
Jan
Hallo!

Einfach "Y2 = sheets("Bestellungen").range("Y2")" setzen.
Sollte funktionieren.

mfg
Ole
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige