Tab.blätter kopieren, autom. umbennen & hochzählen
28.06.2004 15:53:17
Stephan
Ich hab da gerne mal ein Problem und komme nicht weiter!
Also:
Ich habe eine gut ausgefüllte Tabelle. Diese möchte ich per "CommandButton" 1:1 koperien. Dieses soll aber immer wieder funktionieren, also 1, 2, 3, usw. Kopie erstellen (hintereinander am Ende). Danach soll die neue aber nicht die Excel-eigene Bezeichung haben sondern eine eigene bestimmte. Weiterhin soll sie hinter der Bezeichnung auch noch eine aufsteigende Nummer erhalten.
Ungefähr so:
Original Tab.(Sheet): WP01_Calc
Knopf auf Orig. Tab gedrückt -> 1.Kopie: WP01_Calc_v1
Knopf nochmal auf Orig. Tab gedrückt -> 2.Kopie: WP01_Calc_v2
Knopf nochmal auf Orig. Tab gedrückt -> 3.Kopie: WP01_Calc_v3
Wer wüsste da eine Lösung? Hab schon diverse Dinge über copy after probiert.
Letzter Lösungsversuch war folgender:
>
Private Sub CommandButton1_Click()
>
>Dim wbk As Workbook
>Set wbk = ThisWorkbook
>wbk.Sheets("WP01_Calc").Copy After:=wbk.Sheets(wbk.Sheets.Count)
>
>wbk.BuiltinDocumentProperties("Category") = Val(wbk.BuiltinDocumentProperties ("Category")) + 1
>wbk.Sheets(wbk.Sheets.Count).Name = "WP01_Calc" & wbk.BuiltinDocumentProperties("Category")
>
>End Sub
Der funktioniert aber nur halbwegs. Problem dabei ist das er einfach immer weiterzählt. D.h. wenn ich 5 mal kopiere zählt er ja von 1-5, aber wenn ich jetzt Z.B. 4 & 5 lösche und danach wieder auf kopieren gehe, macht er leider mit 6, 7, 8, etc weiter. Das ist nur blöd da dann keine Flexibilität vorhanden ist. Denn falls mal ein Blatt falsch ausgefüllt ist, soll es einfach gelöscht werden, und die neue Kopie erhält dann die "gelöschte" Nummer!!?!
Wer kann da evtl. weiterhelfen?
Gruß Stephan
Anzeige