PDA

Vollständige Version anzeigen : VBA Tbl. Speichern / Umbennen in der selben Mappe


Lilalauneandreas
03.10.2016, 17:27
Hallo,

hätte mal wieder Fragen. :rolleyes: :rolleyes: :rolleyes:

Es geht um Kopieren/ Speichern/ Umbenennen von Tabellen in ein und der selben Arbeitsmappe.

Werde mir ganz viel Mühe geben- dies verständlich zu beschreiben.:D :D :D


*Würde meine "Tabelle1" als Sicherheitskopie mit dem Namen "Kopie Original", als neues Arbeitsblatt ans Ende der selben Mappe kopieren und speichern. :rolleyes:

* Wenn aber schon eine "Kopie Original" existiert, kann dann eine :boah: Bildschirmmeldung :boah: ausgegeben werden - Z.B mit " CMD - Abbrechen" :o ; "CMD - weitere Kopie" :grins: - "und diese Kopie, die dann erstellt wird, mit aktuellen Datum im Tabellennamen " vor der letzten Mappe gespeichert wird?:)

Würde mich freuen wenn dies geht würde.


Hoffe ich habe es richtig formuliert. :entsetzt:


Grüsse Andreas

R J
03.10.2016, 18:07
wie nun genau? ans Ende oder vor das letzte Blatt? Beispiel kopiert vor das letzte Blatt...


Sun KopiereBlatt
Dim var
For Each var In ThisWorkbook.Sheets
If var.Name = "Kopie Original" Then
If MsgBox("Das Blatt 'Kopie Original' gibt es schon." & vbCrLf _
& "Soll ein neues Blatt erstellt werden?", vbQuestion + vbYesNo, "Sicherungskopie bereits vorhanden") = vbYes Then
Sheets("Tabelle1").Copy Before:=Sheets(Worksheets.Count)
On Error Resume Next
ActiveSheet.Name = "Kopie " & Date
If Err.Description <> "" Then
MsgBox "Kopie " & Date & vbCrLf & Err.Description
Err.Clear
Exit Sub
End If
Else
Exit Sub
End If
End If
Next
Sheets("Tabelle1").Copy Before:=Sheets(Worksheets.Count)
ActiveSheet.Name = "Kopie Original"
End Sub

Lilalauneandreas
03.10.2016, 19:15
:) :) :) Hallo Ralf,

Danke- eingefügt- berichtigt:mrcool: - und geht-

Ganz großes Lob:)