Discussion:
Sheet-Nummer / Tabellenblatt-Nummer abfragen mittels vba!?
(zu alt für eine Antwort)
Thomas
2006-01-17 10:23:45 UTC
Permalink
Hallo!

wie kann ich denn mittels vba die aktuelle sheet-nummer erfragen???

So geht es leider nicht:
ActiveWorksheet = Sheets(i)

Ich möchte nämlich aufgrund dieser Info eine Tabelle aufrufen können
die immer 10 Tabellenblätter hinter der aktiven steht.

Etwa so:
Sheets(j) = Sheets(i + 10)
Sheets(j).select

Vielen Dank - für euch sicher eine Kleinigkeit!

Gruß Thomas
Melanie Breden
2006-01-17 10:44:01 UTC
Permalink
Hallo Thomas,
Post by Thomas
wie kann ich denn mittels vba die aktuelle sheet-nummer erfragen???
ActiveWorksheet = Sheets(i)
Ich möchte nämlich aufgrund dieser Info eine Tabelle aufrufen können
die immer 10 Tabellenblätter hinter der aktiven steht.
Sheets(j) = Sheets(i + 10)
Sheets(j).select
so sollte es gehen:

Sheets(activesheet.index +10).select


Mit freundlichen Grüssen
Melanie Breden
--
- Microsoft MVP für Excel -
Microsoft Excel - Die ExpertenTipps http://tinyurl.com/cmned
Das Excel-VBA Codebook http://excel.codebooks.de
Excel-Auftragsprogrammierung
Michael Klenz
2006-01-17 10:44:46 UTC
Permalink
hi,
meinst du das ?

Sub bla()
x = ActiveSheet.Index
End Sub

cu Micha
Bruno Uato
2006-01-17 11:02:53 UTC
Permalink
Post by Thomas
Hallo!
wie kann ich denn mittels vba die aktuelle sheet-nummer erfragen???
ActiveWorksheet = Sheets(i)
Ich möchte nämlich aufgrund dieser Info eine Tabelle aufrufen können
die immer 10 Tabellenblätter hinter der aktiven steht.
Sheets(j) = Sheets(i + 10)
Sheets(j).select
Vielen Dank - für euch sicher eine Kleinigkeit!
Gruß Thomas
Hallo, vielleich in etwa

Dim sh As Worksheet
Set sh = ActiveWorkbook.Worksheets(i + 10)
sh.Select

Mfg, Bruno

www.femtooffice.de
Tools for Excel
Thomas
2006-01-17 10:55:13 UTC
Permalink
Vielen Dank euch beiden!
Es funktioniert!

Gruß Thomas

Loading...