---

Hallo,
wer die Tastatur gerne nutzt, für den ist vielleicht folgender Script nützlich. Er öffnet ein Eingabefeld, in das man eine Blattnummer eingeben kann, auf die dann umgeschaltet wird.
Ich habe mir das Script in das PullDown-Menü "Fenster" gelegt und der Taste B zugewiesen. So kann ich schnell zwischen den Blättern umschalten.

GeheZuBlatt.vbs:

Code:

---

'===
' Programm zum Blattnavigieren
'===

Set objApp = CreateObject("CT.Application")
Set objPrj = objApp.CreateJobObject
Set objSht = objPrj.CreateSheetObject

If objPrj.GetId = 0 Then MsgBox "Kein Projekt geöffnet" : WScript.Quit
If objPrj.GetSheetCount < 1 Then MsgBox "Keine Blätter im Projekt vorhanden" : WScript.Quit

'aktuelle BlattId und Namen holen
AktBlattId = objPrj.GetActiveSheetId
objSht.SetId AktBlattId
Blattname = objSht.GetName

'neuen Blattnamen eingeben
NeuesBlatt = InputBox("", "Blattnummer")

'alle BlattIds holen
objPrj.GetSheetIds ShtIds

'dieses Blatt anzeigen
For i = 1 to UBound( ShtIds )
  objSht.SetId ShtIds(i)
  If objSht.GetName = NeuesBlatt Then
    objSht.Display
    WScript.Quit
  End If
Next

objApp.PutError 0, "kein Blatt " + NeuesBlatt + " vorhanden!"
WScript.Quit

---

------------------
Gruß Uwe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Uwe,

habe den Skript ausprobiert. Prima und Danke dafür.

------------------
Es grüsst
Rolf K.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP