Dim Eram_bootzaehler As Eram Long ' Adr 02,03,04,05
Dim Ram_bootzaehler As Long

/---------------------------------------------------

Ram_bootzaehler = Eram_bootzaehler
Incr Ram_bootzaehler
Eram_bootzaehler = Ram_bootzaehler

/--------------------------------------------------

Das geht sicher .
Bei jedem Booten wird der Zaehler um eins hochgezählt.

Gento