ich habe ein Problem mit den logischen Operatoren. Dieser soll als variable gespeichert werden und dann in die Abfrage eingesetzt werden. Auf Basis des Operators und des Suchwerts sollen die Zeilen dann gruppiert werden.
Bsp.: Spalte A (Bereich) hat Werte von 1 bis 17014969. Über den Operator (=) und das Kriterium (z.B. 1000) sollen nun alle Werte gruppiert werden, welche nicht dem Operator & Kriterium entsprechen. Also Und das funktioniert nicht wie ich es mir vorstelle.
Vielleicht hat ja jemand von euch einen weiteren Lösungsansatz.
Vielen Dank!
Code:
Sub Zeile_gruppieren_3()
Dim c As Range
Dim Bereich As String
Dim Operator As String '(=)
Dim Kriterium As String
On Error GoTo Ende
ActiveSheet.Cells.ClearOutline
Bereich = InputBox("Kriterienbereich angeben", "Gruppierung")
Operator = InputBox("Operator eingeben", "Gruppierung")
Kriterium = InputBox("Suchkriterium eingeben", "Gruppierung")
For Each c In ActiveSheet.Range(Bereich)
' Hier funktioniert es nicht:
If c.Value = Operator & Kriterium Then
c.Rows.Group
End If
Next
Ende:
End Sub