Mit untenstehendem Sub kann ich innerhalb einem Bereich gewisse Zellen, die ein bestimmtes Kriterium erfüllen, einem wneuen Bereich zuordnen.Wenn ich beispielsweise das 4. Argument mit "ABC" übergebe, werden alle Zellen mit dem Eintrag "ABC" innerhalb des übergebenen Ranges "sGross" dem neuen Bereich "sKlein" zugeordnet.
Nun möchte ich mit sID nicht nur ein fixes Kriterium übergeben können, sondern eine Bedingung.
Beispiel: innerhalb dem Range "sGross" sollen alle Zellen dem Range "sKlein" zugeordnet werden, sofern in der Zelle ein Wert gleich oder grösser 0.25 enthalten ist.
Wie muss ich mein Sub anpassen? Kann ich den Operator auch mit dem Sub als Argument übergeben (z.B. als 5. Argument?
Das würde dann heissen:
Sub DefBereichInBereich(sGross as String, sKlein As String, sTabNam as String, sID, sOp as String)
Call DefBereichInBereich("Abweichung", "zuHoch", "Tabelle1", 0.25, ">=")
Wie müsste ich in diesem Fall sOp in der Zeile If rngCell.Text = sID Then verwenden?
Danke für eine Antwort.
Gruss, Peter
Sub DefBereichInBereich(sGross As String, sKlein As String, sTabNam As String, sID As String)Dim rngCell As Range, rngL As Range
For Each rngCell In Range(sGross)
If rngCell.Text = sID Then
If rngL Is Nothing Then
Set rngL = rngCell
Else
Set rngL = Union(rngL, rngCell)
End If
End If
Next
If Not rngL Is Nothing Then
Names.Add sKlein, RefersTo:=Sheets(sTabNam).Range(rngL.Address(True, True))
End If
End Sub