Makroschaltfläche für Excel und Word
19.12.2002 11:45:22
Steffen
Sub Zähler()
Workbooks("personl.xls").Activate
ActiveSheet.Unprotect
ActiveSheet.Range("D1").Select
ActiveCell = ActiveCell + 1
ActiveSheet.Protect
Workbooks("personl.xls").Save
MsgBox "Das ist Nummer: " & ActiveCell.Value
End Sub