Active Sheet in andere Mappe kopieren
23.10.2016 17:37:52
Luna
Wie kann man untenstehenden VBA Code ändern so dass ich folgendes erreiche.
Ich würde gerne das nicht ein bestimmter Sheet (Venezuela) sondern immer der Active Sheet ohne Formeln und Formate, also nur die Werte, kopiert wird.
Dann wäre schön wenn eine Abfrage käme die fragt ob der Name aus A1 so übernommen werden soll, dann "Ja" oder "Nein" dann einen neuen Namen eingegeben.
Als letztes noch wenn der Name schon existiert bei "Ja" überschreiben und bei "Nein" einen neuen Namen eingeben.
Ich hoffe es ist verständlich.
Hier das aktuelle Makro:
Public Sub CopySheet()
Dim wbkQuelle As Workbook
Dim wbkZiel As Workbook
Dim wksQuelle As Worksheet
Set wbkQuelle = Workbooks("Lista De Repuestos.xlsm")
Set wbkZiel = Workbooks("Terminado.xlsx")
Set wksQuelle = wbkQuelle.Worksheets("Venezuela")
wksQuelle.Copy After:=wbkZiel.Sheets(wbkZiel.Sheets.Count)
With ActiveSheet.UsedRange
.Value = .Value
End With
ActiveSheet.Name = Range("A1").Text
End Sub
Saludos y muchas gracias a todos
Luna
Anzeige