Ich habe folgendes kleine Makro:
Sub new_month()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim monat As Byte
monat = month(Range("D2").Value)
Workbooks.Open Filename:="L:\Fin\man\man 2008\cons2008.xls", _
UpdateLinks:=3, Notify:=False
Windows("cons2008.xls").Visible = False
With Cells(9, monat + 8)
.Formula = Round(.Value, 1)
End With
Windows("cons2008.xls").Visible = True
Workbooks("cons2008.xls").Close SaveChanges:=True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Funktioniert soweit einwandfrei. Nun kann es vorkommen, dass beim Sachbearbeiter die im Makro zu öffnende/schließende Datei bereits offen ist und dort auch weiter daran gearbeitet wird.
Ich würde jetzt gern einbauen, dass die Datei nur dann geöffnet und geschlossen wird, wenn sie aktuell geschlossen ist, sonst soll nur der Rest des Makros ausgeführt werden.
Ich weiß allerdings nicht, wie ich in VBA die Abfrage formulieren muss, ob eine bestimmte Datei offen ist.
Kann mir da jemand bitte helfen? Danke.
Gruß
David