Nächstes Sheet per Taste anwählen
Timo Gehle
zur Arbeitserleichterung habe ich versucht, zwei kleine
Makros zu schreiben, die per Tastenbefehl auf das nächste
oder vorherige Tabellenblatt wechseln.
Leider funktioniert dies nicht wie erhofft:
Sub formersheet()
Sheets("Tabelle1").Select
End Sub
(Nextsheet ist dementsprechend mit "Tabelle2")
Somit kann ich nur zwischen "Tabelle1" und "Tabelle2"
umschalten, nicht aber weiter, bzw bei geänderten
Tabellennamen.
Ich habe es schon mit der Worksheets(1).activate Anweisung
usw versucht, aber ich komme nicht dahinter.
Ich müßte irgendwie die Nummer des aktuellen sheets
auslesen können, ich kenne aber keine Möglichkeit wie...
Ich hatte auch schon überlegt per sheets.count die Anzahl
der sheets auszulesen und dann automatisch bei Aktivierung
des Makros das sheet 1 als active zu setzen um dann mit
folgender Methode zu arbeiten:
...
'i steht für Nummer des Aktiven sheets
maxsheet = sheets.count
i = i + 1
If i > maxsheet then i = 1
Worksheets(i).activate
...
Aber das ist nicht Sinn der Sache, da ich nicht jedes mal
erst vom ersten sheet an zum n-ten sheet durchklicken
möchte, sondern immer nur eines vor oder eines zurück.
(Das Ganze soll nur per Tastenkombination möglich sein ->
STRG+x ein Blatt vor, STRG+y ein Blatt zurück.)
Kann mir da jemand helfen?
Danke und Gruß
Timo
Daniel Schmitz
wieso nimmst Du nicht die bei XL integrierten
Tastenkombinationen um die Tabellenblätter zu
wechseln?
Strg + Bild Auf zur vorigen Tabelle
Strg + Bild Ab zur nächsten Tabelle
HTH
Daniel
Timo Gehle
*schäm* die kannte ich nicht... Danke!
(Ist räumlich auf der Tastatur aber etwas umständlich...)
:-)
Allerdings benötige ich auch die Möglichkeit das ganze in
ein Makro zu fassen, da ich bei jedem Wechsel auf ein
anderes Tabellenblatt ein kleines Makro ausführen möchte.
*ideehat*
Vielleicht bekomme ich es jetzt auch so hin...
... funktioniert!!!
ActiveSheet.Next.Select
Das war die Lösung!
Danke und Gruß
Timo
>-----Originalnachricht-----
>.
>
Nikolaus Zöllner
ich hab mir zwei Schaltflächen gemacht, die eine hat den Code
"ActiveWindow.ActivateNext" für vorwärts blättern, die andere den Code
"ActiveWindow.ActivatePrevious" für rückwärts blättern.
Schönes Wochenende
Nikolaus Zöllner
"Timo Gehle" <tge...@viatec-service.de> schrieb im Newsbeitrag
news:1045601c25007$d5856ec0$39ef2ecf@TKMSFTNGXA08...
Daniel Schmitz
>*schäm* die kannte ich nicht... Danke!
Man kann ja auch nicht alles wissen, oder?! ;-)
>(Ist räumlich auf der Tastatur aber etwas umständlich...)
>:-)
Naja, das kann man sehen wie man will... *g*
Für den Rest hast Du ja schon eine Lösung gefunden oder
kannst Dich vielleicht mit dem Beitrag von Nikolaus befassen.
Vielen dank für die Rückmeldung!
Gruss
Daniel
Thomas Ramel
Timo Gehle schrieb:
>
> (Ist räumlich auf der Tastatur aber etwas umständlich...)
> :-)
Mit der Strg-Taste rechts geht mit einer Hand ;-)
> Allerdings benötige ich auch die Möglichkeit das ganze in
> ein Makro zu fassen, da ich bei jedem Wechsel auf ein
> anderes Tabellenblatt ein kleines Makro ausführen möchte.
>
> *ideehat*
>
> Vielleicht bekomme ich es jetzt auch so hin...
>
> ... funktioniert!!!
>
> ActiveSheet.Next.Select
Du kannst dein Makro auch unter 'Diese Arbeitsmapee' in folgendem Code
aufrufen, dann funktioniert es auch beim Wechsel von Hand:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Dein Code
End Sub
--
Mit freundlichen Grüssen
Thomas Ramel
- MVP für Microsoft-Excel -
Timo Gehle
gedacht! Danke!
Ich hab es jetzt schon mit dem anderen Code gelöst, zumal
ich dann auch die "Tastaturbelegung" ändern konnte. ;-)
So muß ich nicht immer mit der Hand von der Maus und kann
trotzdem mit der linken schnell die Makros per
Tastaturbefehl nutzen. :-)
Danke und Gruß
Timo
PS: Ich staune immer wieder, wie schnell man hier in
dieser Newsgroup Antworten erhält. Einfach Klasse!
>Du kannst dein Makro auch unter 'Diese Arbeitsmapee' in
folgendem Code
>aufrufen, dann funktioniert es auch beim Wechsel von Hand:
>
>Private Sub Workbook_SheetActivate(ByVal Sh As Object)
>
>'Dein Code
>
>End Sub
>
>--
>Mit freundlichen Grüssen
>
>Thomas Ramel
>- MVP für Microsoft-Excel -
>
>http://www.4853.ch/Schlesinger
>.
>