Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema " 2 Fragen"
Unterdrückung von Sicherheitsabfragen Name der aufrufenden Schaltfläche abfragen
Anzahl der einzufügenden Zeilen abfragen Start- und Enddatum abfragen und markieren
Passwort vergeben und bei CheckBox-Aktivität abfragen Werte von CheckBoxes in einer UserForm abfragen
Wert in Array suchen, ohne jedes Datenfeld abzufragen Mit InputBoxes Zeilennummern abfragen und Summe bilden
Suchbegriff über InputBox abfragen und Fundzeile löschen Druckstart- und endzeilen über InputBox abfragen