Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

zelle deaktivieren "onblur"

• zelle deaktivieren "onblur" von Innuendo vom 22.04.2003 - 14:02:24
  • Re: zelle deaktivieren "onblur" von ChrisL vom 22.04.2003 - 15:09:40
  • Vielen Dank von Innuendo vom 22.04.2003 - 15:11:58

Betrifft: zelle deaktivieren "onblur"
von: Innuendo
Geschrieben am: 22.04.2003 - 14:02:24

Hallo,

ich habe zwei Zellen in denen man eine Eingabe tätigen machen kann. Wenn in einer Zelle ein Wert über 0 steht, darf in der anderen Zelle nichts mehr eingegeben werden.

Das bedeutet, wenn ich in der einen Zelle einen Wert eingebe muss bei "onblur" - bei verlassen der Zelle, die andere Zelle auf inaktiv gesetzt werden.

Wer kann mir einen Tipp dafür geben?

lg,
Innuendo

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

Beiträge aus den Excel-Beispielen zum Thema "zelle deaktivieren "onblur""