Excel Marko, neue Arbeitsmappe

Hallo zusammen,
Ich bin leider totaler VBA Anfänger und habe keinerlei bis kaum Kenntnisse.
Daher möchte ich sofort zu meinem Problem kommen.
Ich habe eine Excel Datei mit vielen Formeln und Verknüpfungen (auch Preise usw sind dort hinterlegt).
Oft haben wir Kunden die einen Teilbereich (Spalte A bis BA), wobei dort auch ausgeblendete Spalten drin sind, zur Verfügung gestellt bekommen. Die ausgeblendeten Spalten sollen nicht kopiert werden.
Man muss auch noch sagen, dass das Arbeitsblatt dynamisch ist, sprich es kommen noch Zeilen hinzu oder werden gelöscht.
Stand jetzt ist es so, dass ich das Arbeitsblatt in ein neue Mappe kopieren und dann alles unnötige händisch löschen muss.
Gibt es dazu vllt. ein einfachen Weg ein Makro zu erstellen?
Folgende Funktionen sollten beinhaltet sein:
1) dynamischen Druckbereich (Kopierbereich) erstellen (Spalte A bis BA), Zeilen variabel
2) diesen dann in eine neue Excel-Datei legt (nur. Werte aber mit Formatierung, inkl. Zellenparameter, ohne die ausgeblendeten Spalten)
3) den Dateinamen der Quelldatei übernimmt und durch "_Liste" ergänzt?
Ich wäre über jede Hilfe dankbar.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

sub KopierenBereichnurSichtbar() Dim wb As Workbook, aktwb As Workbook Application.ScreenUpdating = False Set aktwb = ThisWorkbook Set wb = Workbooks.Add(xlWBATWorksheet) wb.SaveAs Filename:=aktwb.Path & "/" & Left(aktwb.Name, Len(aktwb.Name) - 5) & "_Liste_" & _ _ Format(Time, "hhmmss") & ".xlsx" With aktwb.Worksheets("deintabellenname") .Range("A1:AB" & .Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy wb.Worksheets(1).Range("A1").PasteSpecial Paste:=xlValues wb.Worksheets(1).Range("A1").PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False End With Application.ScreenUpdating = True Set wb = Nothing Set aktwb = Nothing End Sub

Sub KopierenBereichnurSichtbar() Dim wb As Workbook, aktwb As Workbook Application.ScreenUpdating = False Set aktwb = ThisWorkbook Set wb = Workbooks.Add(xlWBATWorksheet) wb.SaveAs Filename:=aktwb.Path & "/" & Left(aktwb.Name, Len(aktwb.Name) - 5) & "_Liste_" & _ Format(Time, "hhmmss") & ".xlsx" With aktwb.Worksheets("FMA") .Range("A1:AB" & .Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy wb.Worksheets(1).Range("A1").PasteSpecial Paste:=xlValues wb.Worksheets(1).Range("A1").PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False End With Application.ScreenUpdating = True Set wb = Nothing Set aktwb = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread