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"