Hallo zusammen,
ich versuche über Makro regelmässig eine Zwischenversion einer Datei zu erzeugen.
Falls die Zwischenversion geöffnet ist, möchte ich eine MsgBox erzeugen, die mir sagt: "Bitte zuerst Datei schliessen".
Habe dafür folgender Code entwickelt, funktioniert aber nicht. Wäre für einen Feedback dankbar.
Gruss
Salim
Private Sub CommandButton1_Click()
Me.Hide
Dim wks As Worksheet, wbThis As Workbook, wbSave As Workbook
Dim rng As Range
Set wbThis = ThisWorkbook
With wbThis.Worksheets("Abrechnungsblatt")
strDateiname = ThisWorkbook.Path & "\" & .Range(" J4") & "_" & .Range("R8") & "_" & _
.Range("R6") & "_" & "Backup" & "_" & Format(Date, "YYYYMMDD") & ".xls"
End With
For Each wb In Workbooks
If wb.Name = "strDateiname" Then
MsgBox " Bitte zuerst bestehende Version schliessen"
Exit Sub
End If
Next wb
'hier geht es dann weiter mit dem Code'
End Sub