Zellwert vergleichen
Wilhelm
Bisher konnte ich mit dem nachfolgenden Code ein Eingabe mit einem (in diesem Fall Zelle T4) vorgegebenen Wert vergleichen.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
''Überwacht gesamte Spalte ob Zellwert nach Vorgabe.
On Error Resume Next
Dim BBBereich As Range, BBZelle As Range
''legt Bereich fest
Set BBBereich = Range("D14:D27")
For Each BBZelle In Range(Target.Address)
If Intersect(BBZelle, BBBereich) Is Nothing Then Exit Sub
Dim intZahl As Double
'' Vorgabewert wird hier angebeben
intZahl = Sheets("SEGMENTE").Range("T4").Value
Application.EnableEvents = False
If BBZelle.Value > intZahl Then
msg = MsgBox("Wert zu hoch, bitte Blockmaß max. " & intZahl & " mm beachten")
BBZelle.ClearContents
BBZelle.Value = intZahl
End If
Application.EnableEvents = True
Next BBZelle
End Sub
Nun stehe ich vor dem Problem, dass die Zelleingabe nicht mit immer der gleichen Vorgabe in einer einzigen festen Zelle verglichen werden soll, sondern die Vorgabe (die int Zahl) soll in einer Zelle 2 Spalten nach rechts enthalten sein.
Beispiel: Eingabe erfolgt in A1; Vergleichswert ist in C1, Eingabe in A2, Vergleichswert in C2, usw. bis zur letzten Zeile z.B. A52:C52.
Ich kriege das nicht gebacken.
Kann mir jemand helfen?
Wilhelm