wenn ich hier den monatsersten zum vergleich heranziehe, habe ich das problem, daß, wenn ich erst am 5. loszähle, sich der zähler im neuen monat nicht zurücksetzt bzw. am 1. des monats der zähler gar nicht funzt, da er ja immer auf 1 gesetzt ist.
nun habe ich versucht den monat des letzten speicherdatums mit dem aktuellen monat zu vergleichen - weiss aber nicht, ob das so funzt. und dann habe ich immer noch das problem, dass der zähler nicht von neuem beginnt hochzuzählen.
Sub Zähler()
'
'
Dim lngHilfsvariable1 As Long
Dim daHilfsvariable2 As Date
Dim daHilfsvariable3 As Date
strdateiname = ActiveWorkbook.Name
Workbooks("Personl.xls").Activate
Workbooks("Personl.xls").Sheets(1).Range("A1").Select
ActiveSheet.Unprotect
ActiveCell = ActiveCell + 1
lngHilfsvariable1 = ActiveCell
ActiveCell.Offset(2, 0).Select
sdatum = ActiveWorkbook.BuiltinDocumentProperties("last save time")
ActiveCell = sdatum
daHilfsvariable2 = sdatum
daHilfsvariable3 = Date
If Month(daHilfsvariable2) <> Month(daHilfsvariable3) Then A1 = 1
' jetzt irgendwie die Monate vergleichen und von neuem loszählen
ActiveSheet.Protect
Workbooks("Personl.xls").Save
Workbooks(strdateiname).Activate
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 150, 150, 80, 100).Select
Selection.Characters.Text = lngHilfsvariable1
Selection.HorizontalAlignment = xlCenter
'
End Sub