Hallo,
ich habe folgendes Problem.
Das Makro soll beispielsweise in der Matrix A2:A10 nach einem bestimmten Wert suchen, der in Zelle A1 steht. Das gleiche soll in der Spalte B gemacht werden. Befinden sich die gefundenen Zellen in der gleichen Zeile, sollen die gefundenen Zellen inkl. der Zeile (bzw. A:AI) gelöscht werden.
Problem ist nun, dass die Funktion bei der ersten gefundenen Zelle abbricht. Sprich das hier funktioniert nicht:
gesucht: x | y
Zeile A5: x | z
Zeile A7: x | y
Das Makro sollte nun Zeile A7 löschen, da aber in der Zeile A5 schon ein "x" steht, y aber nicht gleich z ist, bricht die Funktion ab.
Gibt es dafür eine geeignete Schleife oder ähnliches?
Dim c As Range
Dim d As Range
Set c = ActiveSheet.Range("A2:10").Find(what:=Range("A1").Value)
Set d = ActiveSheet.Range("B2:10").Find(what:=Range("B1").Value)
If Not (c Is Nothing) Then
If d.Row = c.Row Then
Range(c.Offset(0, 0), c.Offset(0, 34)).ClearContents
End If
End If
Schon einmal vielen Dank im voraus!