Gruss Leo
Private Sub Workbook_Open()
Tabelle1.Cells(1, 1) = Tabelle1.Cells(1, 1) + 1
End Sub
Private Sub Workbook_Open()
Range("A1").Value = Range("A1").Value + 1
End Sub
Private Sub Workbook_Open()
Tabelle1.Cells(15, 3) = Tabelle1.Cells(15, 3) + 1
End Sub