Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  E3.series
  Script zur Blattumschaltung

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Script zur Blattumschaltung (874 mal gelesen)
timmle
Mitglied
Entwicklungsing.


Sehen Sie sich das Profil von timmle an!   Senden Sie eine Private Message an timmle  Schreiben Sie einen Gästebucheintrag für timmle

Beiträge: 234
Registriert: 17.02.2005

erstellt am: 29. Nov. 2007 09:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Rolf K.
Ehrenmitglied
CAD-Konstrukteur


Sehen Sie sich das Profil von Rolf K. an!   Senden Sie eine Private Message an Rolf K.  Schreiben Sie einen Gästebucheintrag für Rolf K.

Beiträge: 1729
Registriert: 10.12.2002

ELCAD 2020 SP2
e3.2021
Windows 10
zuhause:
Paintshop Pro 2022
Cray XT4
Privileg SR 12 PR
Chivers Lemon Jelly

erstellt am: 01. Dez. 2007 10:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für timmle 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz