in einer Mappe mit insgesamt 13 Blättern sind 5 Blätter ausgeblendet. Wie kann ich über einen Befehl z. B. das ausgeblendete Blatt "Test1" kopieren und an das Ende, also hinter Blatt 13, stellen?
Irgendwie kriege ich das nicht hin.
Gruss, Holger
Sub Blattcopy()
'wird hinter das letzet Blatt kopiert
'und ist damit das neue Letzte
Sheets("Test1").Copy After:=Sheets(Sheets.Count)
'macht das Neue Letzte sichtbar
Sheets(Sheets.Count).Visible = True
End Sub