Office: (Office 2016) Tabellenblatt hinter ausgeblendetes Tabellenblatt kopieren bzw. verschieben

Hallo zusammen,

ich moechte ein Tabellenblatt mit VBA kopieren und ans Ende stellen. Und zwar wirklich ganz ans Ende, auch hinter ein evtl. ausgeblendetes Tabellenblatt. Wenn ich das ausgeblendete Tabellenblatt wieder einblende steht es aber immernoch ganz am Ende....Eine Zeile, die immer nur das letzte Tabellenblatt sichtbar macht, bringt nichts, da evtl. auch mehrere unsichtbare Blaetter am Ende stehen koennen. Und alle Blaetter einblenden will ich aus einem anderen Grund auch nicht.
Faellt jemandem dazu etwas ein? Evtl. alle Tabellenblaetter von hinten einblenden, bis das erste sichtbare Tabellenblatt kommt? Oder geht das eleganter?

Was ich bisher habe ist wohl ziemlich Standart:

Sheets("XYZ").Copy after:=Sheets(Sheets.Count)
Set wks = Sheets("XYZ (2)")
With wks
.name = "ABC"
.Visible = xlSheetVisible
End With

Danke und viele Gruesse,
Adam

 

Hallo Adam,

wo ist dein Problem?
Wie von Dir beschrieben: Letztes Blatt einblenden, kopieren, vorletztes (!) Blatt ausblenden, fertig:

Code:

Sheets(Sheets.Count).Visible = True

Sheets("Test1").Copy after:=Sheets(Sheets.Count)

Sheets(Sheets.Count - 1).Visible = False

Sheets("Test1 (2)").Name = "ABC"

For i = 1 To Sheets.Count
    Sheets(i).Visible = True
Next i

Die Schleife am Ende nur zur Prüfung, ob's funktioniert hat.

Gruß,
Lutz

 

Hi Adam,

laufe in einer Schleife über alle Blätter, schreibe die ausgeblendeten in ein Array und blende sie ein. Kopiere anschließend das gewünschte Tabellenblatt ans Ende und blende dann die im Array befindelichen Blätter wieder aus:

Code:

Sub TabKopieren()
    Dim arrTabs()
    Dim shTab As Object
    Dim lngZaehler As Long
    lngZaehler = 1
    For Each shTab In Sheets
        If shTab.Visible = False Then
            ReDim Preserve arrTabs(1 To lngZaehler)
            arrTabs(lngZaehler) = shTab.Name
            lngZaehler = lngZaehler + 1
            shTab.Visible = True
        End If
    Next shTab
    Worksheets("XYZ").Copy after:=Sheets(Sheets.Count)
    Worksheets(Worksheets.Count).Name = "Hallo"
    Worksheets(arrTabs).Visible = False
End Sub

Bis später,
Karin