Office: Suche VBA Code um Registerkarte zu kopieren, umbenennen und ans Ende stellen

Hallo Forumgemeinde,

ich habe mich jetz auch mal registriert, wiel ich mir hier schon des öffteren Hilfe holen konnte und nun an
einem Problem festtecke an dem ich nicht weiterkomme.

Hier zu meinem Prob:

Ich möchte via Makro eine Registerkarte kopieren. Dann soll eine
Abfrage via Box nach dem Namen der neuen Karte kommen. der name der neuen karte soll immer mit dem aktuellen Datum
vorgeschlagen werden in der Form "yyyy-mm-dd".

Die neue Karte soll dann immer am Ende eingefügt werden.
Dann noch ein ZUsatz:

Wenn eine Registerkarte schon existiert soll eine Abfrage via Box kommen ob diese Regisrterkarte ersetzt werden soll?
Bei der Antwort Ja soll die Karte dann ersetzt werden.


Ich hoffe echt auf Eure HIlfe, komme iwie nicht weiter.

Besten Dank und Gruß

ccama

 

Hi,

zeichne den Code für das Kopieren des Tabellenblattes, das Umbenennen und ans Ende-Stellen mit dem Markorekorder auf. Wenn du diesen Code dann hier postest, kann man ihn entsprechend um die Abfrage-Boxen erweitern.

Bis später,
Karin

 

Hallo ccama,

ich habe mal ein paar Zeilen Code erstellt. Hierbei wird das aktive Register ( die aktuelle Tabelle) deinen Angaben gemäß kopiert. Füge den Code in ein Modul ein und führe ihn dann aus.

Code:

Option Explicit

Sub BlattKopie()
   Dim strDatum
   Dim Register As Worksheet
   Dim bolShtVorhanden As Boolean
   Dim strNewName As String
   Dim bolErsetzen As Boolean
   Dim vntAntwort As Variant
   
   strDatum = Format(Date, "YYYY-MM-DD")
   ActiveSheet.Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
   
   Do
      strNewName = InputBox("Name des neuen Registers", , strDatum)
      For Each Register In ActiveWorkbook.Sheets
         If Register.Name = strNewName Then
            bolShtVorhanden = True
            vntAntwort = MsgBox("Register existiert bereits," & vbCrLf _
               & "soll das Blatt überschrieben werden?", _
               vbQuestion + vbYesNo, "Sicherheitsabfrage")
            If vntAntwort = vbYes Then
               bolErsetzen = True
               Exit Do
            End If
         End If
      Next Register
      If Not bolShtVorhanden Then Exit Do
   Loop
   
   If bolErsetzen Then
      On Error Resume Next
      With Application
         .ScreenUpdating = False
         .DisplayAlerts = False
         Sheets(strNewName).Delete
         .DisplayAlerts = True
         .ScreenUpdating = True
      End With
   End If
   ActiveSheet.Name = strNewName
End Sub

Wenn du mehr als 100 Arbeitsblätter hast, lsst sich das Ganze noch etwas optimieren, aber für den Anfang sollte das reichen ...

 

Also hier mal die Aufzeichnung. Ich arbeite mich grade etwas in vba ein, ich hoffe das passt so...
Sub Makro1()
'
' Makro1 Makro
'

'
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy After:=Sheets(3)
Sheets("Tabelle1 (2)").Select
Sheets("Tabelle1 (2)").Name = "2012-05-13"

End Sub

 

Wow vielen lieben DAnk für die schnellen Antworten!!

Dein Code trifft es schon fast genau cap. Nemo....

Wenn ich den code richtig lese wird hier immer tabelle1 (Register1) kopiert. Ich sillte immer nur bestimmte Register mit entsprecheden namen haben. zb. S1 FS, S2 FS, FS2 FS, FS5 FS insgesammt sollen das 4 Makros sein.
Das ganze soll über ein Jahr quasi täglich mit neuem Register anlegen laufen. wenn du das noch optimieren kannst?

Ich bin echt begeistert!!!
DAnke!

 

Hallo ccama,

sind die vier Basis-Tabellen in einer oder in vier Dateien (WorkBooks)? Wenn die in 1 WB sind, dann frage ich mich, warum der neue Tabellen-Name ohne jeglichen Zusatz der Herkunft ist. Allerdings würde das auch die Frage nach dem bereits vorhandenen WorkSheet mit dem Tagesdatum erklären ...

 

das ganze ist in einer ecxeldatei, und die 4 unterschiedlichen register sollen nach unterschiedlichen wochen (gerade / ungerade) kopiert werden zb kw1 nimmt man makro S1 FS für die wochentage, für die Wochenendtage dann S4 FS, In KW 2 nimmt man dann immer für die wochentage S2 FS und am We S5 FS.....

das ganze sind reporte die mit unterschiedlichen schichten zu tun haben. auf den eigentlichen blätern sind wiederum verweise aus einzelne schichten usw.....

 

aso, ich habe die orginaldatei leider nicht hier sondern im geschäft.... sonst hätte ich heute morgen gleich meinen code mitgepostet.
aber dein code ist eh schon weiter

 

Also das ist jetzt mein bearbeiteter code...
Ich habe noch paar änderungen gemacht.

das unload me schließt ein eingabe Formular.
Die Registervorlagen sind ausgeblendet, von daher lass ich die kopie einblenden.
in zelle B3 soll immer das datum. naja eigl. soll da das selbe datum stehen wie die registerkarte aber das bekomm ich nicht hin....

cap.nemo wenn du mir das noch optimieren kannst, weil ich überst jahr mehr als 100 Karten anlege oder sonst noch einen tipp hast, bin ich echt sehr dankbar!!

sonnige Grüße
cama

Private Sub CommandButton1_Click()
Unload Me
Dim strDatum
Dim Register As Worksheet
Dim bolShtVorhanden As Boolean
Dim strNewName As String
Dim bolErsetzen As Boolean
Dim vntAntwort As Variant
strDatum = Format(Date, "YYYY-MM-DD")
Sheets("S1 FS").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
Range("B3").Value = Format(Date, "YYYY-MM-DD")
ActiveSheet.Visible = True
Do
strNewName = InputBox("Name des neuen Tagesreports?", , strDatum)
For Each Register In ActiveWorkbook.Sheets
If Register.Name = strNewName Then
bolShtVorhanden = True
vntAntwort = MsgBox("Tagesreport existiert bereits," & vbCrLf _
& "soll das Blatt überschrieben werden?", _
vbQuestion + vbYesNo, "Sicherheitsabfrage")
If vntAntwort = vbYes Then
bolErsetzen = True
Exit Do
End If
End If
Next Register
If Not bolShtVorhanden Then Exit Do
Loop
If bolErsetzen Then
On Error Resume Next
With Application
ScreenUpdating = False
DisplayAlerts = False
Sheets(strNewName).Delete
DisplayAlerts = True
ScreenUpdating = True
End With
End If
ActiveSheet.Name = strNewName
End Sub

 

Ich werde erst am WE wieder Zeit finden, mich mit Coding und so zu befassen. Die 100 Blätter waren nur wegen der Zeit, wenn geprüft wird, ob das Blatt schon existiert ...

 

Ich habe nun auch noch 2 Probs festgestellt.

1. Wenn man bei der datumsabfrage auf Abbrechen klickt möchte Excel debuggen.
2. Wenn ich gefragt werde ob ich ein Blatt überschreiben möchte und mit nein antworte, dann das Register umbenennen möchte, geht das nicht.
Ich kann dann nur noch das aktuelle Blatt ersetzten sonst komme ich nicht mehr aus dem Eingabefeld raus....

Wär cool wenn du am WE nochmal drüberschauen könntest^^

Gruß

 

Hallo,

es ist WE und ich kann dir leider derzeit nicht helfen. Familiäre Gründe lassen nicht zu, dass ich mich so konzentrieren kann, wie es sein sollte. Sorry. Ich denke, dass dir einige andere Helfer beiseite stehen können (ist ja nicht mehr viel und ich gebe es hiermit frei) oder am Pfingstwochenende ... In dem Fall bitte noch einmal erinnern!

 

Hallo. ka klar, dann kümmer dich mal lieber um die family. und vielen dank!

Falls mir sonst noch jemand weiterhelfen kann, die 2 probleme zu lösen?? wär echt super!

Gruß
cama1511