Blatt kopie speichern

Sub Blatt_ablegen() Application.DisplayAlerts = False ActiveSheet.Shapes("Button 1").Visible = False Sheets(Array("Tab1", "Tab2")).Copy Cells.Copy Cells(1, 1).PasteSpecial xlPasteValues Range("A1").Select ActiveWorkbook.SaveAs "T:Auswertungen\Mon_" _ & Format(Sheets("Tab1").Range("D2"), "YYYY") ActiveWorkbook.Close ActiveSheet.Shapes("Button 1").Visible = True Application.DisplayAlerts = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Blatt_ablegen_alle() Dim WS_Counter As Integer Application.DisplayAlerts = False ActiveSheet.Shapes("Button 1").Visible = False For WS_Counter = 1 To 2 With Worksheets(WS_Counter).Copy Cells.Copy Cells(1, 1).PasteSpecial xlPasteValues End With Next WS_Counter Range("A1").Select ActiveWorkbook.SaveAs "T:\Mon_" _ & Format(Sheets("Qualität").Range("D2"), "YYYY") ActiveWorkbook.Close ActiveSheet.Shapes("Button 1").Visible = True Application.DisplayAlerts = True End Sub


With Worksheets(WS_Counter).Copy
Cells.Copy
Cells(1, 1).PasteSpecial xlPasteValues
End With

Hi Snewi,
was bedeutet dieser Codefetzen? Du referenzierst auf ein Worksheet.Copy, innerhalb der WITH-Schleife auf gar nichts und versuchst dann irgenwas einzufügen. erstens: im WITH mit .CELLS (Punkt!) referenzieren, sonst bringt das with nix.
Zweitens: in diesem Fall geht das so eh nicht. Mit sheet.COPY wirfst du den Focus auf ein neues Blatt, dann steigt die Schleife aus weil sie im falschen Workbook sucht. Probiers mal so:

Sub Blatt_ablegen_alle()
Dim wkbOld As Workbook
Dim WS_Counter As Integer
Set wkbOld = ActiveWorkbook
'    Application.DisplayAlerts = False
'    ActiveSheet.Shapes("Button 1").Visible = False
For WS_Counter = 1 To 2
Worksheets(WS_Counter).Copy
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
wkbOld.Activate
Next WS_Counter
'    Range("A1").Select
'    ActiveWorkbook.SaveAs "T:\Mon_" _
'      & Format(Sheets("Qualität").Range("D2"), "YYYY")
'    ActiveWorkbook.Close
'    ActiveSheet.Shapes("Button 1").Visible = True
'Application.DisplayAlerts = True
End Sub

wkbOld merkt sich das alte Blatt und kehrt dorthin zurück, bevor die Schleife auf das zweite Workbook greift. Das ersetzen von Formeln zu Werten habe ich mit .value = .value über den Bereich gelöst.
Der Code erstellt zwei Dateien, eine für Tabelle1 und eine für Tabelle2. Ich gehe aufgrund deiner Fragestellung davon aus, dass du das so möchtest.
Magst du weiter unten RÜ auf den "bedingte Formatierung" Thread geben?
https://www.herber.de/forum/messages/1302348.html
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread