Nummer des aktiven Blattes ermitteln

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Nummer des aktiven Blattes ermitteln
von: Michael
Geschrieben am: 13.06.2002 - 14:31:12

Hallo
Wie kann ich die nummer des aktiven Arbeitsblattes ermitteln.
Ich habe mir schon nen Wolf gesucht finde nichts
Bsp stehe ich in "Tabelle 1" bekomme ich eine 1
stehe ich Tabelle 5 bekomme ich eine 5

Danke
Michael


nach oben   nach unten

Re: Nummer des aktiven Blattes ermitteln
von: Hajo
Geschrieben am: 13.06.2002 - 14:35:57

Hallo Michael

was meinst Du. Die Position die das Register unten in der Auflistung hat. In VBa ????


Sub Te()
    Dim As Integer
    I = ActiveSheet.Index
End Sub

Gruß Hajo


nach oben   nach unten

ActiveSheet.Index (o.T.)
von: WernerB.
Geschrieben am: 13.06.2002 - 14:36:58


nach oben   nach unten

Re: Nummer des aktiven Blattes ermitteln
von: Martin Beck
Geschrieben am: 13.06.2002 - 14:37:04

Hallo Michael,

z.B. so:


Sub Nummer_aktuelles_Blatt()
For i = 1 To Worksheets.Count
    If ActiveSheet.Name = Worksheets(i).Name Then
        num = i
        MsgBox num
        Exit Sub
    End If
Next i
End Sub


Gruß
Martin Beck

nach oben   nach unten

Re: Nummer des aktiven Blattes ermitteln
von: M@rkus
Geschrieben am: 13.06.2002 - 14:38:02

ActiveSheet.Index

Gruss Markus


nach oben   nach unten

Wenn ich es richtg vestehe
von: Alan Hathway
Geschrieben am: 13.06.2002 - 14:38:06

Sub Makro1()
'
'
For i = 1 To Sheets.Count
If Worksheets(i).Name = ActiveSheet.Name Then
MsgBox i
End If
Next

'
End Sub


Oder meinst Du - wie extrahiere ich die 1 aus der Zeichenkette "Tabelle1"? Dann brauchst Du RIGHT

Alan Hathway


nach oben   nach unten

Vorsicht
von: Martin Beck
Geschrieben am: 13.06.2002 - 14:45:11

Hallo Werner et al.,

nehmen wir mal folgende Blattreihenfolge an:

Tabelle1
Diagramm1
Tabelle2
Tabelle3

Tabelle2 sei das aktive Worksheet(!!!), für das der Index gesucht wird.

ActiveSheet.Index liefert den Wert 3. Wird dieser in einer Anweisung mit Worksheets(3) verwendet ist die Referenzierung falsch. Die von mir und Alan vorgeschlagene Schleifenlösung liefert hingegen den Index 2, der ausschließlich auf die Worksheets bezogen ist.

Kommen in der DAtei nur Tabellenblätter vor, ist das Ergebnis beider Vorschläge identisch.

Gruß
Martin Beck

nach oben   nach unten

Re: Nummer des aktiven Blattes ermitteln
von: Michael
Geschrieben am: 13.06.2002 - 14:47:09

Danke!

machmal ist es so einfach, da kommt man nicht drauf!!

Michael


nach oben   nach unten

Schwein gehabt :-)
von: Alan Hathway
Geschrieben am: 13.06.2002 - 15:07:43

Glück gehabt. Man lernt nie aus.

Alan Hathway


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Nummer des aktiven Blattes ermitteln"