Private Sub Worksheet_Change(ByVal Target as range

Private Sub Worksheet_Change(ByVal Target As Range) If Cells(1, 1) - (Cells(1, 2)> 100 Then Dim Mldg, Stil, Titel, Antwort Mldg = "TEXT" Stil = vbOKOnly + vbCritical + vbDefaultButton1 Titel = "Überprüfen Sie bitte Ihre Eingabe!" Antwort = MsgBox(Mldg, Stil, Titel, Hilfe, Ktxt) End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column <= 2 Then If Abs(Cells(Target.Row, 1) - Cells(Target.Row, 2)) > 100 Then MsgBox "Überprüfen Sie bitte Ihre Eingabe!", vbOKOnly + vbCritical + vbDefaultButton1, "Titel" Target.Select End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$B$1" Or Target.Address = "$C$1" Then If Range("B1") - Range("C1") > 100 Then MsgBox "Überprüfen Sie bitte Ihre Eingabe!", vbOKOnly + vbCritical + vbDefaultButton1, "Titel" Target.Select End If End If If Target.Address = "$B$2" Or Target.Address = "$C$2" Then If Range("B2") - Range("C2") > 0.1 Then MsgBox "Überprüfen Sie bitte Ihre Eingabe!", vbOKOnly + vbCritical + vbDefaultButton1, "Titel" Target.Select End If End If ' usw. End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Or Target.Address = "$C$1" Then If Range("A1") - Range("C1") > 100 Then MsgBox "Überprüfen Sie bitte Ihre Eingabe!", vbOKOnly + vbCritical + vbDefaultButton1, "Titel" Target.Select End If End If 'viele andere Anforderungen folgen hier noch End Sub

Hallo Chris,
Deine Tipps haben mich echt weiter gebracht. Dachte auch, ich hätte es nun verstanden, stolpere nun aber über ein Problem. Zunächst meine jetzige Programmierung:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Zeile 9
If Target.Address = "$K$9" Or Target.Address = "$I$9" Then
If Abs((Range("k9") - 2 * Range("i9")) / (2 * Range("I9"))) > 0.1 Then
MsgBox "Text", vbOKOnly + vbCritical + vbDefaultButton1, "Überprüfen Sie bitte Ihre Eingabe!"
Target.Select
End If
End If
'Zeile 10
If Target.Address = "$K$10" Or Target.Address = "$I$10" Then
If Abs((Range("k10") - 2 * Range("i10")) / (2 * Range("I10"))) > 0.15 Then
MsgBox "Text", vbOKOnly + vbCritical + vbDefaultButton1, "Überprüfen Sie bitte Ihre Eingabe!"
Target.Select
End If
End If
End Sub

Nun möchte ich wieder die Zeile 9 vergleichen, und zwar die Zellen in den Spalten M und K. Folgende Programmierung dachte ich müsste funktionieren, tut's aber nicht:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Zeile 9
If Target.Address = "$K$9" Or Target.Address = "$I$9" Then
If Abs((Range("k9") - 2 * Range("i9")) / (2 * Range("I9"))) > 0.1 Then
MsgBox "Text", vbOKOnly + vbCritical + vbDefaultButton1, "Überprüfen Sie bitte Ihre Eingabe!"
Target.Select
End If
End If
If Target.Address = "$m$9" Or Target.Address = "$k$9" Then
If Abs((Range("m9") - 2 * Range("k9")) / (2 * Range("k9"))) > 0.1 Then
MsgBox "Text", vbOKOnly + vbCritical + vbDefaultButton1, "Überprüfen Sie bitte Ihre Eingabe!"
Target.Select
End If
End If
'Zeile 10
If Target.Address = "$K$10" Or Target.Address = "$I$10" Then
If Abs((Range("k10") - 2 * Range("i10")) / (2 * Range("I10"))) > 0.15 Then
MsgBox "Text", vbOKOnly + vbCritical + vbDefaultButton1, "Überprüfen Sie bitte Ihre Eingabe!"
Target.Select
End If
End If
End Sub

Was mache ich falsch??? Kannst Du mir (ein letztes Mal) helfen???
Gruß, Holger

Beliebteste Forumthreads (12 Monate)

Private Sub Worksheet_Change(ByVal Target as range

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Private Sub Worksheet_Change(ByVal Target as range

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread