Forum des VBA-Tutorials

Funktion oder Ereignis? Rückgabewert oder Eigenschaft? (VBA)

Martin Asal, Montag, 09. Januar 2017, 21:07 (vor 319 Tagen) @ Sophie

Hallo Sophie,

ich hoffe, ich habe dich richtig verstanden:

Du hast in Tabelle2 eine Liste mit Toleranzgrenzen für Merkmale. Das Sheet dürfte etwa wie folgt aussehen:

Merkmal UG  OG
a        5   9
b       10  15
c       25  29

Nun trägst du in einem anderen Sheet Messwerte ein, die farbig markiert werden sollen, wenn das dabei ebenfalls angegebene Merkmal nicht innerhalb dieser Toleranzen liegen.

Die folgende Funktion gibt dir entsprechende True/False Werte zurück. Bei True musst du also nur noch einfärben:

Public Function Warnung(Merkmal, Wert) As Boolean
Dim Zelle As Range
 
Warnung = False 'Startwert: Keine Warnung
Set Zelle = ActiveWorkbook.Sheets("Tabelle2").Range("A6")   '1. Zelle der Toleranzliste

Do While Zelle.Value <> ""  'Durchschleifen bis zum Ende der Toleranzliste
    If Zelle.Value = Merkmal Then
        If Zelle.Offset(0, 1) > Wert Or Zelle.Offset(0, 2) < Wert Then Warnung = True
        Exit Function
    End If
    Set Zelle = Zelle.Offset(1)   'Nächste Zeile der Toleranzliste
Loop
 
Set Zelle = Nothing
End Function

Martin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum