2 Spalten vergleichen automatisch!

McSniper92 · 21. Oktober 2016, 13:39

Nein die OK variable die makiert er auf dem anderen Tabellenblatt

VB.NET-Quellcode

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, Cell As Range
Dim White As Long: White = RGB(255, 255, 255)
Dim Red As Long: Red = RGB(255, 0, 0)
Set Rng = Intersect(Target, Range("N:AH"), Range("4:" & Rows.Count))
If Not Rng Is Nothing Then
Rng.Interior.Color = White
For Each Cell In Rng
If Not IsEmpty(Cell.Value) And Not Cell.Value = -999 And IsNumeric(Cell.Value) Then
Ok = Standard.BreiteOK(Cells(Cell.Row, 3).Value, Cells(Cell.Row, 4).Value, Cell.Value, MinValue, MaxValue)
If Ok Then
Cell.Interior.Color = White
Else
Cell.Interior.Color = Red
MsgBox "invalid value range. Cell=" & Cell.Address & " MinValue=" & MinValue & " MaxValue=" & MaxValue
End If

hier sagt er mir das die OK Variable nicht deklariert ist

petaod · 21. Oktober 2016, 15:05

Warum definierst du sie nicht einfach?
Stell dich doch nicht so an.
OK ist ein Boolean, MinValue und MaxValue sind Double.

McSniper92 · 21. Oktober 2016, 15:07

Habe ich gemacht

geht nicht ....

petaod · 21. Oktober 2016, 15:13

Was geht nicht und welche Fehlermeldung kommt?
Wo hast du die Variablen definiert?

McSniper92 · 24. Oktober 2016, 06:24

VB.NET-Quellcode

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, Cell As Range
Dim MaxWert As Double
Dim MinWert As Double
Dim OK As Boolean
Dim White As Long: White = RGB(255, 255, 255)
Dim Red As Long: Red = RGB(255, 0, 0)
Set Rng = Intersect(Target, Range("N:AH"), Range("4:" & Rows.Count))
If Not Rng Is Nothing Then
Rng.Interior.Color = White
For Each Cell In Rng
If Not IsEmpty(Cell.Value) And Not Cell.Value = -999 And IsNumeric(Cell.Value) Then
Print OK = Sheet4.Alarm1(Cells(Cell.Row, 3).Value, Cells(Cell.Row, 5).Value, Cells(Cell.Row, 10).Value, Cells(Cell.Row, 15).Value, Cell.Value, MinWert, MaxWert)
If OK Then
Cell.Interior.Color = White
Else
Cell.Interior.Color = Red
MsgBox "invalid value range. Cell=" & Cell.Address & " Min=" & MinWert & " Max=" & MaxWert
End If
End If
Next
End If
End Sub

Fehlermeldung:
Runtime error 438
Object doesn´t support this property or method

Dann markiert er mir folgende Zeile:
Print OK = Sheet4.Alarm1(Cells(Cell.Row, 3).Value, Cells(Cell.Row, 5).Value, Cells(Cell.Row, 10).Value, Cells(Cell.Row, 15).Value, Cell.Value, MinWert, MaxWert)

mrMo · 24. Oktober 2016, 06:30

Ich bin ja kein VBA Experte, aber ist das so richtig?

Print OK = Sheet4.Alarm1(Cells(Cell.Row, 3).Value, Cells(Cell.Row, 5).Value, Cells(Cell.Row, 10).Value, Cells(Cell.Row, 15).Value, Cell.Value, MinWert, MaxWert)

OK ist ja ein boolean, der kann üblicherweise nur true/false...

petaod · 24. Oktober 2016, 10:47

McSniper92 schrieb:

Print OK

Was beabsichtigst du mit Print?
Ich kann mich nicht erinnern, so was vorgeschlagen zu haben.

McSniper92 · 24. Oktober 2016, 10:49

petaod schrieb:

McSniper92 schrieb:

Print OK

Was beabsichtigst du mit Print?

Das hast du mir so gesagt

Aber ohne geht es :-O
Aber er zeigt mir für MinWert und Maxwert immer 0 an?
hmm?

petaod · 24. Oktober 2016, 10:50

Ich sehe in meinem Post kein Print

McSniper92 · 24. Oktober 2016, 11:10

petaod schrieb:

Ich sehe in meinem Post kein Print

Sorry war durch das kopieren darein geraten....

petaod · 24. Oktober 2016, 11:41

McSniper92 schrieb:

er zeigt mir für MinWert und Maxwert immer 0 an

Wie sieht deine Funktion Sheet4.Alarm1 aus?

McSniper92 · 24. Oktober 2016, 11:46

petaod · 24. Oktober 2016, 11:59

Sieht auf den ersten Blick gut aus.
Setze einen Breakpoint in Zeile 11 und schau dir MaxWert und MinWert an.
Sind das sinnvolle Werte?
Dann steppe aus der Routine raus.
Danach müssten diese Werte auch in MaxWert und MinWert der Worksheet_Change-Routine auftauchen.

McSniper92 · 24. Oktober 2016, 13:35

VB.NET-Quellcode

Property Get Alarm1(ByVal Laenge As String, ByVal Farbe As String, ByVal Breite As String, ByVal Tiefe As String, ByVal Schwelle1 As Double, _
Optional ByRef MinWert As Double, Optional ByRef MaxWert As Double) As Boolean '*****A1
Dim r As Long
For r = 4 To Cells(Rows.Count, 3).End(xlUp).Row
[color=#FF0000]If Cells(r, 3).Value = Laenge Then[/color]
If Cells(r, 5).Value = Farbe Then
If Cells(r, 10).Value = Breite Then
If Cells(r, 15).Value = Tiefe Then
MinWert = Cells(r, 28).Value
MaxWert = Cells(r, 29).Value
Alarm1 = Schwelle1 >= MinWert And Schwelle1 <= MaxWert
Exit Property
End If
End If
End If
[color=#FF0000]End If[/color]
Next
End Property

(If Cells(r, 3).Value = Laenge Then)
In der Roten If Schleife hängt er die Werte bleiben alle 0?

petaod · 24. Oktober 2016, 14:01

McSniper92 schrieb:

In der Roten If Schleife hängt er

Die einzige Schleife ist das For in Zeile 4.
Er wird sicher nicht in einer If-Abfrage hängen bleiben.
Steppe durch den Code uns schaue, wo sich das Verhalten nicht nach deinem Geschmack entwickelt.
Das Debuggen kann dir niemand abnehmen.

McSniper92 · 24. Oktober 2016, 14:11

(Y)

petaod · 24. Oktober 2016, 14:19

Works as designed.
Die innerste Bedingung erreicht er erst in der Zeile, wo Länge, Breite, Farbe und Tiefe mit den übergebenen Parametern übereinstimmen.
Schau mal nach, welche Zeile das für deinen Aufruf darstellt und, wenn er es nicht tut, warum nicht.

Ich habe eh ein schlechtes Gefühl bei deiner Methode, alles (auch die Zahlen) als String zu behandeln.

Wie gesagt: Debugging ist angesagt. Breakpoint und Singlestep.
Danach verstehst du vielleicht sogar, wie das Programm arbeitet.

2 Spalten vergleichen automatisch!

VB.NET-Quellcode

VB.NET-Quellcode

McSniper92 schrieb:

petaod schrieb:

McSniper92 schrieb:

petaod schrieb:

McSniper92 schrieb:

VB.NET-Quellcode

McSniper92 schrieb:

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben