Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nur Eintragungen in aktuellem Monat zulassen

Gruppe

Open

Problem

In Spalte B dürfen immer nur die Zellen editierbar sein, deren Nachbar in Spalte A ein Datum des aktuellen Monats trägt.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Dim wks As Worksheet
   Dim iRowL As Integer, iRow As Integer
   Set wks = Worksheets("Tabelle1")
   wks.Unprotect
   iRowL = wks.Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = 1 To iRowL
      If Month(wks.Cells(iRow, 1)) = Month(Date) Then
         wks.Cells(iRow, 2).Locked = False
      Else
         wks.Cells(iRow, 2).Locked = True
      End If
   Next iRow
   ActiveSheet.Protect
End Sub