Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

DisplayAlerts

Forumthread: DisplayAlerts

DisplayAlerts
08.03.2004 12:09:09
Hans L.
Hallo zusammen
Habe folgendes Makro welches beim öffnen der Datei ausgeführt wird:

Application.DisplayAlerts = False
With Sheets(1).Range("A1")
If .Value = 5 Then .Value = 0
.Value = .Value + 1
ThisWorkbook.SaveAs ("G:\....\Backup " & .Value)
End With
Application.DisplayAlerts = True
Nun habe ich aber das Problem, dass die Warnung das ein anderer Benutzer diese bereits geöffnet hat auch nicht erscheint, welche aber unbedingt erscheinen sollte.
Für eure hilfe bin ich sehr dankbar.
Gruss Hansi
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: DisplayAlerts
08.03.2004 12:44:54
Volker Croll
Hallo Hansi,
auf die Schnelle; schon mal so probiert:
With Sheets(1).Range("A1")
If .Value = 5 Then .Value = 0
.Value = .Value + 1
Application.DisplayAlerts = False
ThisWorkbook.SaveAs ("G:\....\Backup " & .Value)
Application.DisplayAlerts = True
End With
Gruss
Volker Croll
www.crolltools.de
Anzeige
AW: DisplayAlerts
08.03.2004 12:57:16
Hansi L.
Vielen Dank Volker
Funktioniert aber leider nicht.
AW: DisplayAlerts
08.03.2004 13:10:44
Hansi L.
Sorry
Es funktioniert natürlich.
Die benachrichtung kam nicht, da ich ja zwischenzeitlich die datei unter backup speicherte so dass die eigentliche Datei wieder frei ist.
Habe es nun so gelöst (wahrscheinlich nicht die schönste Lösung9 aber es funzt.
If .Value = 5 Then .Value = 0
.Value = .Value + 1
Application.DisplayAlerts = False
ThisWorkbook.SaveAs ("G:\........\Backup " & .Value)
ThisWorkbook.SaveAs ("G:\.........\liste2004.xls")
Application.DisplayAlerts = True
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige