Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Dim iMonth As Integer, iYear As Integer
   If Month(Date) = 12 Then
      iMonth = 1
      iYear = Year(Date) + 1
   Else
      iMonth = Month(Date) + 1
      iYear = Year(Date)
   End If
   With Worksheets("Tabelle1")
      .Range("B1").Value = iMonth
      .Range("B3").Value = Year(Date)
   End With
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open