VBA: 'Wenn nicht X in Range' suchen

Computer: Software & Programmierung Office Software
1

Hallo,

ich suche in einer mehr oder weniger freien Range Zellen, die „NICHT X“ enthalten.

Das hier findet mir ja X:
Set Resultat = meineRange.Find(X, LookIn:=xlValues, LookAt:=xlWhole)

Jetzt brauche ich nur noch das exakte Gegenteil davon, also genau die Zellen, in denen etwas Anderes als X drin steht.

Geht das nur über die altbewährte For-Schleife mit If-Konstrukt oder kann VBA das auch direkt bzw einfacher?

Danke,
Michael

2

ich suche in einer mehr oder weniger freien Range Zellen, die
„NICHT X“ enthalten.
Jetzt brauche ich nur noch das exakte Gegenteil davon, also
genau die Zellen, in denen etwas Anderes als X drin steht.
Geht das nur über die altbewährte For-Schleife mit
If-Konstrukt oder kann VBA das auch direkt bzw einfacher?

Hi Michael,

wenn der Range eine Spalte ist, dann so z.B.:

Option Explicit
’
Sub tt()
Dim OhneX As Range
On Error Resume Next
Range(„A6“) = „xyz“
Range(„A10“) = „xyz“
Range(„A100“) = „xyz“
Set OhneX = Columns(„A“).ColumnDifferences(Comparison:=ActiveSheet.Range(„a6“))
MsgBox OhneX.Address
End Sub

Gruß
Reinhard

3

Set OhneX =
Columns(„A“).ColumnDifferences(Comparison:=ActiveSheet.Range(„a6“))

Ah danke, genau das habe ich gesucht :wink: