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
Hallo wie muss der Code aussehen wenn ich nicht nach Date aktualisieren möchte sondern alle 2 Stunden ?