Code erweitern
25.04.2022 12:00:12
Heinie
Wie kann ich in untenstehendem Code erfolgreich folgende Schnipsel einbauen bzw was muss angepasst werden?
Das muss eingefügt werden:
With ActiveSheet
If Left(.Cells(ActiveCell.Row, 8), 1) = "1" Then
MsgBox "Achtung Bla", vbCritical
Else
.Unprotect
.Cells(ActiveCell.Row, 9).Value = "LA"
.Protect
End If
End With
Bestehender Code:
Private Sub CommandButton10_Click()
ActiveSheet.Unprotect
Dim lROW As Long, iMAX As Integer, iJott As Integer
Const cMAX As Integer = 70 'Anzahl Einträge
lROW = ActiveCell.Row
iMAX = WorksheetFunction.Max(Columns(9))
iJott = WorksheetFunction.CountIf(Columns(9), iMAX)
If WorksheetFunction.Count(Columns(9)) = 0 Then 'I ist leer
Cells(lROW, 9) = 1
Cells(lROW, 10) = 1
Else
If iJott