Aktulisieren und Speichern Auto
07.02.2019 12:09:30
Alex
Private Sub Workbook_Open()
With Worksheets("G1X").Range("A1")
If Not .Value = Date Then
.Value = Date
Call Verbindungen_aktualisieren
End If
End With
End Sub
Anzeige