Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1240to1244
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige