Ein Aehnliches Problem wie vorhin schon Gerd: Wie stelle ich es an, dass Excel das zu kopierende Blatt ans Ende stellt? Dazu muss ich wohl erst ermitteln, welches das letzte Blatt ist. Mit dem Makrorekorder schaff ich das nur halbwegs.
Ich habe eine Schaltfläche in der Symbolleiste, die nach Anklicken das letzte Blatt kopieren und ans Ende stellen soll. Danach öffnet sich eine InputBox und fragt nach einer Nummer, die als Blattname und in Zelle J3 eingetragen wird. Der zweite Teil läuft mit:
Sub NeuerAuftrag()
Dim Nummer As Integer
Nummer = InputBox("Auftragsnummer eingeben (letzte 4 Ziffern)")
Range("J3").Value = Nummer
ActiveSheet.Name = Nummer '
End Sub
Kann mir jemand mit dem Kopieren und Platzieren helfen?
Danke
Willy