Blatt kopieren und vor dem letzten Blatt einfügen?
Oliver
Ich habe mir da ein kleines Makro zurecht gebastelt, welches mir von einem Tabellenblatt namens "Vorlage" eine Kopie erstellt und dieses in vor dem tabellenblatt "Vorlage" einfügt.
Private Sub CommandButton2_Click()
Dim Eingabe As String
Eingabe = TextBox1
Sheets("Vorlage").Copy Before:=Sheets(8)
Sheets("Vorlage (2)").Name = Eingabe
Range("G1, Y1") = Eingabe
Unload UserForm1
End Sub
Nun mein Problem: Ich möchte gerne, dass die Kopie immer vor dem Tabellenblatt mit dem Namen "Vorlage" eingefügt wird. Im Moment wird das Blatt vor dem Tabellenblatt 8 eingefügt. Das ist zwar im Moment das Blatt 8 (es steht am Ende), wenn aber ein Blatt eingefügt wurde, ist das eingefügte Blatt das Blatt 8. Alle weiteren Blätter werden dann immer vor dem vorher neu eingefügten Blatt eingefügt. Da es sich aber um Kalenderwochen handelt, wäre diese Reihenvolge schlecht.
Ich hoffe, ihr habt verstanden was ich meine und habt eventuell eine Lösung für mich?
Schon mal besten Dank im Voraus,
Oliver
Anzeige