Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1240to1244
1240to1244
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sheet wechseln

Forumthread: Sheet wechseln

Sheet wechseln
Markus
Hallo zusammen,
in meiner Tabelle sind einige Blätter ausgeblendet.
Wie muß das Mako lauten, wenn ich in das nächste eingeblendete (sichtbare) Sheet wechseln möchte.
ActiveSheet.Next.Sheet.Select
If Sheets("Master") Then
ActiveSheet.Next.Sheet.Select
End If
Danke und Gruß Markus
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Sheet wechseln
09.12.2011 11:44:53
Rudi
Hallo,
eine Möglichkeit: 
Sub xxxx()
Dim i As Integer
For i = ActiveSheet.Index + 1 To Sheets.Count
If Sheets(i).Visible Then
Sheets(i).Select
Exit Sub
End If
Next
MsgBox "Keine sichtbaren Sheets hinter dem aktuellen"
End Sub

Wobei SELECT zu 99% überflüssig bzw. kontraproduktiv ist.
Gruß
Rudi
Anzeige
AW: Sheet wechseln
09.12.2011 12:09:48
Markus
Danke ihr beiden.
So funktioniert es super, es sollte jedoch so sein, das wenn das nähste Sheet "Master" heißt es in das
nächste sprint.
Gruß Markus
AW: Sheet wechseln
09.12.2011 11:45:07
Matthias
Hallo Marcus
Option Explicit
Sub wechselBlatt()
Dim IdX&, X&
IdX = ActiveSheet.Index
For X = 1 To Sheets.Count
If X > IdX And Sheets(IdX).Visible Then Sheets(X).Activate: Exit For
Next
End Sub
Gruß Matthias
Anzeige
Activesheet.Next.Activate '_oT
09.12.2011 11:46:33
NoNet
_oT = "ohne Text"
Nachfrage ... geht das nur vorwärts
09.12.2011 12:15:05
Matthias
Hallo NoNet
wie Recht Du doch hast :o)
Habs genauso "blos eben anders" ;o) versucht
mit Select statt Activate - und das konnte ja nicht klappen.

Warum aber funktioniert es nicht auch rückwärts?
Hab mal Tab4 ausgeblendet und befinde mich auf Tab5
Sub zurück()
ActiveSheet.Previous.Activate
End Sub
Ich bleib auf Tab5 hängen. Hast Du eine Antwort darauf ?
Oder habe ich irgendwo einen Denkfehler?
Gruß Matthias
Anzeige
Fehler nachvollziehbar - k.A. weshalb ;-) _oT
09.12.2011 12:57:50
NoNet
_oT = "ohne Text"
AW: Activesheet.Next.Activate '_oT
09.12.2011 12:20:19
Markus
Danke NoNet - super so funktioniert es!
Gruß Markus
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige