Wie kann ich das If für isNumeric durch eine If Left-Funktion umwandeln, dass er prüft ob der Wert in der ActiveCell.Row,8 mit 1 beginnt?
Private Sub CommandButton4_Click()
With ActiveSheet
If IsNumeric(.Cells(ActiveCell.Row, 8)) Then
MsgBox "Achtung BlaBla", vbCritical
Else
.Unprotect
.Cells(ActiveCell.Row, 9).Value = "Lala"
.Protect
End If
End With
End Sub
Hätte hier jemand eine Lösung?