Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Letztes Tabellenblatt in MS-Excel

451 views
Skip to first unread message

Marcus Brandstetter (Firma)

unread,
Feb 27, 2002, 11:49:47 AM2/27/02
to
Hi NG,

weis jemand von Euch, wie ich im VBA auf das letzte Arbeitsblatt in einem
Excel Workbook zugreifen kann?
Ich möchte am Ende des Workbooks ein Arbeitsblatt hinzufügen ohne das ich
den Namen des letzten Arbeitsblatts wissen muss.

z.B: ActiveSheet.Move After:=Sheets("Sheet1")

Vielleicht gibt es da eine Variable wie XLLastSheet oder so?

Vielen Dank im voraus

LG

Marcus Brandstetter


Reimund Lebeis

unread,
Feb 27, 2002, 1:19:14 PM2/27/02
to

"Marcus Brandstetter (Firma)" <marcus.br...@panasonic.at> schrieb im
Newsbeitrag news:OTLiG76vBHA.2692@tkmsftngp07...
Hallo Marcus,

probier mal

ActiveSheet.Move After:=Sheets(Sheets.Count)

Gruß Reimund


Peter Huber

unread,
Feb 27, 2002, 1:25:55 PM2/27/02
to
hallo Marcus

versuche es mal so

Sub Makro1()
Dim Zählerletzesblatt
Zählerletzesblatt = ActiveWorkbook.Worksheets.Count

ActiveSheet.Copy After:=Sheets(Zählerletzesblatt)
End Sub

hier wird das aktive Blatt ans ENDE kopiert

vieleicht hilft es dir ja (als Anregung)

ciao Peter


--
Peter Huber
Homepage: www.rundumadum.de
E-Mail: pe...@rundumadum.de
Sie brauchen ein Makro
klicken Sie hier
http://www.rundumadum.de/Macro_Programmieren/macro_programmieren.html

Carla Ressel

unread,
Feb 27, 2002, 1:49:02 PM2/27/02
to
hi marcus

"Marcus Brandstetter (Firma)" <marcus.br...@panasonic.at> schrieb im Newsbeitrag news:OTLiG76vBHA.2692@tkmsftngp07...

> Ich möchte am Ende des Workbooks ein Arbeitsblatt hinzufügen ohne das ich
> den Namen des letzten Arbeitsblatts wissen muss.

Sheets.Add After:=Sheets(Sheets.Count)

gruß carla


Frank Arendt-Theilen

unread,
Feb 27, 2002, 2:09:21 PM2/27/02
to
Hallo Marcus,
mit folgender Anweisung:

ActiveWorkbook.Worksheets.Add After:=Sheets(Sheets.Count)

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
eMail: Thei...@t-online.de, Homepage: http://www.xl-faq.de

Marcus Brandstetter (Firma)

unread,
Feb 27, 2002, 3:45:44 PM2/27/02
to
Vielen, Vielen DANK !!!!!!!!

"Marcus Brandstetter (Firma)" <marcus.br...@panasonic.at> schrieb im
Newsbeitrag news:OTLiG76vBHA.2692@tkmsftngp07...

0 new messages