Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Letztes Blatt kopieren"
Letztes Speicherdatum eintragen Letztes Speicherdatum in die Fußzeile aller Tabellenblätter
Letztes Zeichen der Werte einer Zellauswahl hoch-/tiefstellen In jeder Zeile einer Textdatei 1. und letztes Zeichen entfernen
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen