2 Fragen

Bild

Betrifft: 2 Fragen
von: carsten
Geschrieben am: 21.02.2005 11:24:24
Hi Experts,
mit folgendem Makro skrolle ich auf festgelegte Positionen gleichzeitig in mehreren Blättern (Betrachtungshilfe).


Sub unten()
' nach unten scrollen
    Sheets("Material").Select
        ActiveWindow.ScrollRow = 70
    Sheets("wz 1").Select
        ActiveWindow.ScrollRow = 35
    Sheets("wz 2").Select
        ActiveWindow.ScrollRow = 35
    Sheets("wz 3").Select
        ActiveWindow.ScrollRow = 35
    Sheets("wz 4").Select
        ActiveWindow.ScrollRow = 35
    Sheets("wz 5").Select
        ActiveWindow.ScrollRow = 35
    Sheets("wz 6").Select
        ActiveWindow.ScrollRow = 35
    Sheets("wz 7").Select
        ActiveWindow.ScrollRow = 35
    Sheets("wz 8").Select
        ActiveWindow.ScrollRow = 35
    Sheets("wz 9").Select
        ActiveWindow.ScrollRow = 35
    Sheets("wz 10").Select
        ActiveWindow.ScrollRow = 35
    Sheets("wz 11").Select
        ActiveWindow.ScrollRow = 35
    Sheets("wz 12").Select
        ActiveWindow.ScrollRow = 35
    Sheets("wz 13").Select
        ActiveWindow.ScrollRow = 35
    Sheets("wz 14").Select
        ActiveWindow.ScrollRow = 35
    Sheets("wz 15").Select
       ActiveWindow.ScrollRow = 117
    Sheets("wz 16").Select
       ActiveWindow.ScrollRow = 117
    Sheets("wz 17").Select
       ActiveWindow.ScrollRow = 117
    Sheets(" Summen-Bl").Select
        ActiveWindow.ScrollRow = 35
End Sub

Frage1: Ich kann das Makro von jedem Blatt aus ausführen. Wie kehre ich zu diesem jeweiligen Ausgansblatt zurück und nicht zum letzten selektierten.
Frage2: Wie kann ich das Makro verkürzen ??? Schleife oder so etwas ???
Vielen Dank im Voraus
Carsten
Bild

Betrifft: AW: 2 Fragen
von: Norbert
Geschrieben am: 21.02.2005 11:41:06
Hallo Carsten,
wenn sich die Zeile nicht ändert, würde ich im Klassenmodul in jedem Arbeitsblatt die entsprechende Codezeile eingeben und dem OnActivate-Ereignis zuweisen.
Gruß
Norbert
Bild

Betrifft: AW: 2 Fragen
von: carsten
Geschrieben am: 21.02.2005 11:54:10
Danke Norbert,
habe leider keinen blassen Schimmer...
Bild

Betrifft: AW: 2 Fragen
von: WernerB.
Geschrieben am: 21.02.2005 15:11:51
Hallo Carsten,
damit sollten beide Fragen erschlagen sein (mal ungetestet):

Sub unten()
' nach unten scrollen
Dim BlaNa As String, _
    b As Byte
    BlaNa = ActiveSheet.Name
    Sheets("Material").Select
      ActiveWindow.ScrollRow = 70
    For b = 1 To 14
    Sheets("wz " & b).Select
      ActiveWindow.ScrollRow = 35
    Next b
    For b = 15 To 17
    Sheets("wz " & b).Select
      ActiveWindow.ScrollRow = 117
    Next b
    Sheets(" Summen-Bl").Select
      ActiveWindow.ScrollRow = 35
    Sheets(BlaNa).Select
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Bild

Betrifft: AW: 2 Fragen
von: carsten
Geschrieben am: 21.02.2005 15:57:37
Super Werner geht wunder(sam)bar!
Vielen Dank
Carsten
 Bild

Beiträge aus den Excel-Beispielen zum Thema " 2 Fragen"