Informationen und Beispiele zum Thema MsgBox | |
---|---|
![]() |
MsgBox-Seite mit Beispielarbeitsmappe aufrufen |
![]() |
![]() ![]() |
Re: zelle deaktivieren "onblur"
von: ChrisL
Geschrieben am: 22.04.2003 - 15:09:40
Hallo Innuendo
Würde dir empfehlen das Blatt zu Schützen und die Eingabe lediglich in den von dir vogegebenen Zellen zu erlauben. Mit nachstehendem Makro erreichst du, dass bei Eingabe in Zelle A1 (>0) die Zelle B1 geschützt wird, ansonsten (<=0) freigegeben ist.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
If IsNumeric(Target) = False Then
MsgBox "Fehler: Zelle A1 muss nummerisch sein."
Exit Sub
End If
ActiveSheet.Unprotect
If Target > 0 Then
Range("B1").Locked = True
Else
Range("B1").Locked = False
End If
ActiveSheet.Protect
End If
End Sub
Gruss
Chris
![]() ![]() |
Vielen Dank
von: Innuendo
Geschrieben am: 22.04.2003 - 15:11:58
Hallo Chris,
vielen Dank für deine Hilfe. Das Blatt werde ich sowieso noch schützen.
Herzlichen Dank,
Innuendo
![]() |