Hallo zusammen,
ich habe gerade in mühsamer Arbeit folgenden Code zum Ablegen von Sheets in Workbooks zusammengeschustert:
Dim strDatei As String
strDatei = "Ablage.xls"
Set wksMappeZ = Workbooks.Open(strDatei)
Set wksMappeQ = ThisWorkbook
wksMappeQ.Sheets("Kalkulation").Copy After:=wksMappeZ.Sheets(Sheets.Count)
wksMappeZ.Sheets(Sheets.Count).Activate
For Each Blattname In Worksheets
If Blattname.Name = Sheets(Sheets.Count).Cells(8, 6).Text Then
MsgBox ("Angebotsnummer bereits vorhanden!")
Application.DisplayAlerts = False
wksMappeZ.Sheets(Sheets.Count).Delete
Application.DisplayAlerts = True
wksMappeZ.Close SaveChanges:=True
Exit Sub
End If
Next Blattname
ActiveSheet.Name = Sheets("Kalkulation").Cells(8, 6).Value '///////Umbenennen des Sheets in Seriennummer
wksMappeZ.Close SaveChanges:=True
In der Zieldatei möchte ich allerdings nur den Inhalt der Datei (nicht den Quellcode) haben.
Die Suche ergibt nur diverse "Select" und "Paste" Varianten, die ich eigentlich vermeiden wollte.
Danke für Eure Hilfe im Voraus!
lg Haegarle