Kopieren und Einfügen via VBA Code
30.07.2015 06:34:30
Tommy241
Ich nutze folgenden Code, den Klexy mir erstellt hat.
Dazu erstmal großes Lob und vielen Dank dafür.
Der Code funzt prima, jedoch möchte ich beim kopieren, die Formatierung, bzw.
die Spaltenbreite mit kopieren, sodass das Tabellenblatt 1 zu 1 kopiert wird.
Makros, die auf dem Tabellenblatt liegen, sollen nicht mitkopiert werden.
Was mich ich in folgendem Code ändern, damit das funzt?
Sub Öffnen_auslesen_schließen()
Dim ZielDatei As String, QuellDatei As String
Dim ImportDatei, wks As Worksheet
ZielDatei = ThisWorkbook.Name
ImportDatei = Application.GetOpenFilename
If ImportDatei False Then
Set wks = Workbooks.Open(ImportDatei).Sheets("Tabelle1")
Else
Exit Sub
End If
wks.Select
QuellDatei = ActiveWorkbook.Name
Range("A1:J50").Select
Selection.Copy
Windows(ZielDatei).Activate
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Paste
ActiveWorkbook.Save
Windows(QuellDatei).Activate
ActiveWorkbook.Close SaveChanges:=True
End Sub
Anzeige