VBA Makro speichert falsche Datei ab.
16.04.2023 09:27:45
Bernd_
Hallo Zusammen,
das unten stehende Makro legt aus einer xlsm Datei alle 30 Minuten das Blatt "tabelle1" und "tabelle2" als xlsx Datei in einem Ordner ab. Aus den abgelegten Dateien werden Daten gezogen. Daher dieser Vorgang.
Nun habe ich das Problem, wenn zwei Excel Dateien geöffnet sind, aber die xlsm Datei nicht im Vordergrund zu sehen ist wird zwar das Makro abgearbeitet, aber es wird dann die Excel Datei im Vordergrund abgelegt. Und das ist nicht gut.
Ist es möglich das Makro so zu ändern das nur die Datei benutzt wird in der sich auch das Makro befindet ?
Gruß Bernd_
Sub copyData()
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Worksheets(Array("tabelle1", "tabelle2")).Copy
Rows("1:3").Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("C25:AB1079").Value = Range("C25:AB1089").Value
Range("C25").Select
ActiveWorkbook.SaveAs Filename:="\\XXXXXXX\XXXXX\XXXXXXX\XXXXXXXXXXXXXXXXXXXX.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close 0
Application.OnTime Now() + TimeValue("00:30:00"), "copyData"
Application.CalculateFull
Application.EnableEvents = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub