Nur Werte und Format Spalten Anpassen
01.12.2022 22:13:42
Sascha
Ich möchte Zellen aus einem Sheet, in eine andere Datei in einen neuen Sheet kopieren. Das gelingt mir allerdings möchte ich nur die Werte, das Format und die Spalten anpassen. Weiß nicht wie?
Mein jetziger Code
Sub BlattInGeschlosseneMappeKopieren()
Application.ScreenUpdating = False
Set GeschlosseneMappe = Workbooks.Open("F:\Test_tool\Prov Muster\ProvAuskunft\Provisionsauskunft_Vorlage.xltm")
Sheets.Add Before:=GeschlosseneMappe.Sheets("Stammdaten")
ThisWorkbook.Sheets("Vorlage").Range("A4:O500").Copy ActiveSheet.Cells(1, 1).EntireColumn.AutoFit
ActiveSheet.Name = ThisWorkbook.Sheets("Vorlage").Range("D2").Value & ThisWorkbook.Sheets("Vorlage").Range("E2").Value
GeschlosseneMappe.Close SaveChanges:=True
Application.ScreenUpdating = True
MsgBox "Die Datei wurde in Ordner C:\Users\Desktop\Lern_Projekte\Test_tool\Prov Muster\ProvAuskunft gespeichert.", 64, "Kopieren beendet"
End Sub
Anzeige