Datei soll beim speichern nicht geöffnet werden

Sub dateizähler() Dim datei As String, zähler As Byte zähler = 0 datei = Dir("C:\Zusatz*.xls") Do Until datei = "" zähler = zähler + 1 datei = Dir() Loop If zähler = 0 Then ActiveWorkbook.SaveAs "C:\Zusatz.XLS" Else ActiveWorkbook.SaveAs "C:\Zusatz" & zähler & ".XLS" End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub dateizähler() Dim datei As String, zähler As Byte zähler = 0 datei = Dir("C:\Zusatz*.xls") Do Until datei = "" zähler = zähler + 1 datei = Dir() Loop If zähler = 0 Then ActiveWorkbook.SaveCopyAs "C:\Zusatz.XLS" Else ActiveWorkbook.SaveCopyAs "C:\Zusatz" & zähler & ".XLS" End If End Sub

Hallo,
wenn ich SaveCopyAs benutze öffnet Excel zwar keine neue Mappe, aber es kommt ein Hinweis den man jedesmal manuel bestätigen müsste. Und das Programm soll ja automatisch laufen.
Der Hinweis lautet wie folgt:
kanal_4.xls ist bereits geöffnet. Wenn Sie es erneut öffnen, verlieren Sie damit alle Änderungen, die Sie eingegeben haben. Soll kanal_4.xls erneut geöffnet werden?
Gibt es noch einen anderen Weg damit Excel nicht jedesmal eine neue Mappe aufmacht?
Hier nochmal das Programm:


Sub Test01()
Application.OnTime Now + TimeValue("00:00:5"), "Test02"
End Sub


Sub Test02()
ChDir "C:\Download\Excel Projekt"
Workbooks.Open Filename:="C:\Download\Excel Projekt\kanal_4.xls"
Range("F1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-3]>=1,1,0)"
Range("F1").Select
Selection.AutoFill Destination:=Range("F1:F500"), Type:=xlFillDefault
Range("F1:F44").Select
Range("H1").Select
ActiveCell.FormulaR1C1 = "=SUM(C[-2])"
Range("H2").Select
Application.OnTime Now, "dateizähler"
Application.OnTime Now + TimeValue("00:00:5"), "Test01"
End Sub


Sub dateizähler()
Dim datei As String, zähler As Byte
zähler = 0
datei = Dir("C:\Zusatz*.xls")
Do Until datei = ""
zähler = zähler + 1
datei = Dir()
Loop
If zähler = 0 Then
ActiveWorkbook.SaveCopyAs "C:\Zusatz.XLS"
Else
ActiveWorkbook.SaveCopyAs "C:\Zusatz" & zähler & ".XLS"
End If
End Sub

Mit freundlichen Grüßen
Benjamin

Sub Test02() Dim wb As Workbook, offen As Boolean ChDir "C:\Download\Excel Projekt" 'Prüfung ob kanal_4.xls geöffnet ist For Each wb In Application.Workbooks If LCase(wb.Name) = LCase("kanal_4.xls") Then wb.Activate offen = True Exit For End If Next If offen = False Then Workbooks.Open FileName:="C:\Download\Excel Projekt\kanal_4.xls" End If Range("F1").Select ActiveCell.FormulaR1C1 = "=IF(RC[-3]>=1,1,0)" Range("F1").Select Selection.AutoFill Destination:=Range("F1:F500"), Type:=xlFillDefault Range("F1:F44").Select Range("H1").Select ActiveCell.FormulaR1C1 = "=SUM(C[-2])" Range("H2").Select Application.OnTime Now, "dateizähler" Application.OnTime Now + TimeValue("00:00:5"), "Test01" End Sub

Beliebteste Forumthreads (12 Monate)

Datei soll beim speichern nicht geöffnet werden

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datei soll beim speichern nicht geöffnet werden

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread