kopierter Sheet erheblicher Speicherplatz
13.07.2019 13:52:16
Richard
ich bitte um Hilfe von Euch.
mit einem Makro wird aus einem Tabellenblatt (selektiert mit Autofilter) einige Daten in ein neues Arbeitsblatt kopiert hier der Code
Private Sub cmb_Branche_Ordner_Click()
Dim AnzahlTab As Integer
Dim NeueMappe As Workbook
Dim SichtbarerBereich As Range
'Tabellennamen anpassen
Set SichtbarerBereich = Sheets("tbl_Daten").Cells.SpecialCells(xlCellTypeVisible)
AnzahlTab = Application.SheetsInNewWorkbook 'Anzahl neuer Tabellen?
Application.SheetsInNewWorkbook = 1 'nur eine Tabelle in neuer Datei
Set NeueMappe = Workbooks.Add
SichtbarerBereich.Copy NeueMappe.Sheets(1).Range("A1") 'Daten kopieren
Application.Dialogs(xlDialogSaveAs).Show 'speichern unter Dialog
NeueMappe.Close False 'Neue Datei schließen
Application.SheetsInNewWorkbook = AnzahlTab 'Anzahl Tabellen zurücksetzen
End Sub
Das gesamte Testprogramm hat blos 57 K Größe die kopierte Datei bläst sich aber auf 5,5 MB auf (nur 2 Datensätze mit 16 Spalten)wird mir im Format.xlsx abgelegt.2. Frage wie baue ich einen Code ein für die Übernahme der Spaltenbreite
Im voraus vielen Dank für Eure Hilfe
Gruß Richard