VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Rasta	Datum: 14.08.2006 11:27:04	Views: 1149	Rating:	Antwort:
Thema: Aw:Excel - Seitenwechsel
Hi Marion, du musst herausfinden auf welchem worksheet du dich zur zeit befindest und dann die nummer um eins erhöhen. dabei vergleichst du die neue nummer mit der totalen anzahl(count) der worksheets. ist diese nummer höher, verweist du auf das erste worksheet. Gruß Rasta ungefähr so -- musst du wahrscheinlich vom syntax verbessern: Sub BlattWechseln() dim intSheetNumber as integer intSheetNumber = activeworksheet.index if intSheetNumber > worksheets.count then intSheetNumber = 1 end if Dim Zeile As Long, Spalte As Integer With ActiveWindow Zeile = .ScrollRow Spalte = .ScrollColumn Sheets(intSheetNumber).Select 'gewünschtes Tabellenblatt zeigen .ScrollRow = Zeile .ScrollColumn = Spalte End With End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen