Registriert seit: 28.09.2017
Version(en): Office 365
Wo finde ich die Sicherungsdatei?
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi,
du willst doch nicht ernsthaft behaupten, dass du keine Sicherungsdatei angelegt hast, sondern deine Tests in deiner einzigen Originaldatei durchführst?
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 28.09.2017
Version(en): Office 365
13.01.2018, 17:08
(Dieser Beitrag wurde zuletzt bearbeitet: 13.01.2018, 17:09 von Alooha.)
Hallo,
hier der funktionierende Code:
Code:
Sub Effacer_Database()
'
' Effacer_les_données Macro
ok = MsgBox("Voulez-vous vraiment effacer toutes les données importées???", vbOKCancel + vbCritical)
If ok = vbCancel Then Exit Sub
Range("A4:BO2057").Select
Selection.ClearContents
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.ClearComments
MsgBox "A présent toutes les données sont effacées irrémédiablement!"
End Sub
Vielen Dank für eure freundliche Hilfe!
Schönes WE
Alooha
Registriert seit: 28.09.2017
Version(en): Office 365
13.01.2018, 17:45
(Dieser Beitrag wurde zuletzt bearbeitet: 13.01.2018, 17:45 von Alooha.)
Hallo,
@Günter:
sorry, ich war auf der ersten Seite geblieben und hatte deine Nachricht nicht bemerkt.
Doch, alle 5 Minuten wird die Sicherungsdatei abgespeichert, aber, auf deine Frage hin habe ich jetzt nachgeschaut und jetzt erst bemerkt dass dort auch (eigentlich logischerweise) steht, wo die Sicherungsdateien abgespeichert werden. Das wusste ich eben nicht, habe im Internet gesucht, und bin fündig geworden, habe in dem angegebenen Ordner auf meinem PC gesucht, dort auch eine Datei gefunden, aber nicht die richtige.
Danke für deine Frage! Durch sie weiss ich jetzt wo sie sind.
Aber ich hatte sowieso so gut wie nichts geändert seit dem letzten Abspeichern.
Salve
Alooha
