Suche mit Makro

Bild

Betrifft: Suche mit Makro
von: Thorsten W. aus B
Geschrieben am: 10.12.2003 14:46:31

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

Bild


Betrifft: AW: Suche mit Makro
von: Jan
Geschrieben am: 10.12.2003 14:58:21

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


Bild


Betrifft: AW: Suche mit Makro
von: Thorsten W. aus B
Geschrieben am: 10.12.2003 15:41:21

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.


Bild


Betrifft: AW: Suche mit Makro
von: Jan
Geschrieben am: 11.12.2003 11:18:34

Hallo!

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

mfg
Ole


Bild

Beiträge aus den Excel-Beispielen zum Thema " Übergabe von Variablen aus UserForm1 in UserForm2"