Letztes Blatt kopieren

Bild

Betrifft: Letztes Blatt kopieren von: Gerhard
Geschrieben am: 13.02.2005 12:11:47

Hallo wie kann via VBA immer das letzte Blatt einer Arbeitsmappe kopieren?

Danke
Gerhard

Bild


Betrifft: Sheets(Sheets.Count).Copy After:=Sheets(.. von: andre
Geschrieben am: 13.02.2005 12:25:13

Hallo Gerhard,
z.B. so:
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)


Bild


Betrifft: AW: Sheets(Sheets.Count).Copy After:=Sheets(.. von: Gerhard
Geschrieben am: 13.02.2005 15:07:17

Hallo
ist es auch möglich dem neuen kopierten Blatt einen Namen zu geben?
In meiner Arbeitsmappe werden mehrmals täglich neue Blätter hinzugefügt!
Die Blätter haben folgende Namen:
"vorletztes Blatt" KW05_CH10+CH15
"letztes Blatt" KW05_CH11+CH16 jetzt soll dieses Blatt kopiert werden und den neuen Namen KW05_CH12+CH16
wenn ich jetzt erneut das letzte Blatt kopiere soll dieses dann wiederum um 1 erhöht den Namen KW05_CH13+CH17 erhalten

Vielen Dank
Gerhard


Bild


Betrifft: AW: Sheets(Sheets.Count).Copy After:=Sheets(.. von: andre
Geschrieben am: 13.02.2005 17:54:01

Hallo Gerhard,
nach dem kopieren ist das neue Blatt in der Regel das aktive.
dann z.B. mit
AterName=Sheets(Sheets.Count).Name
ActiveSheet.Name="NEU"
Für Dienen Fall geht es z.B. so:

Sub tester()
Dim a$, b%, c%
a = Sheets(Sheets.Count).Name
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
b = Val(Mid(a, 8, 2)) + 1
c = Val(Mid(a, 15, 2)) + 1
Mid$(a, 8, 2) = b
Mid$(a, 15, 2) = c
ActiveSheet.Name = a
End Sub



 Bild

Beiträge aus den Excel-Beispielen zum Thema "Letztes Blatt kopieren"