Hallo,
ich benutze ein Makro von meinem Vorgänger. Mit ist aufgefallen, dass er ziemlichen Mist teilweise programmiert hat. Bei einer Funktion muss er aber wohl Hilfe gehabt haben:
exportDatum = Date ‘ exportDatum wird als Double gespeichert
exportZeit = time ‘ exportZeit wir auch als Double gespeichert
Select Case Hour(exportZeit)
Case Is &lt 14
exportDatum = DateSerial(Year(exportDatum), Month(exportDatum), Day(exportDatum)) - 1
Min_str = "22"
Case Is &lt 22
exportDatum = DateSerial(Year(exportDatum), Month(exportDatum), Day(exportDatum))
Min_str = "14"
Case Else
exportDatum = DateSerial(Year(exportDatum), Month(exportDatum), Day(exportDatum))
Min_str = "22"
End Select
Das ist nur ein Bruchteil des Codes, den Rest verstehe ich ohne Probleme, aber mir ist schleierhaft was er damit bewirken will (was wertet es aus?). Mir ist klar, dass er die Variablen Min_str und exportDatum zurückgibt, aber warum die genau diese Case Abfragen.
In dieser Funktion wird später eine Log-Datei vom Server geladen, die dann in eine Export-Excelliste eingefügt werden.
Für jeden Hinweis bin ich sehr dankbar,
Gruß,
Philipp