PDA

Vollständige Version anzeigen : Zellen prüfen und auf Zellen, die Bedingung erfüllen Aktion ausfürhen


Mikrofon
24.08.2017, 22:08
Hi,

bei meinem Aktuellen Project soll ein Bereich I13:I100 abgesucht werden.
Zellen, die einen "/" enthalten, sollen dann gelöscht werden.

Mein Problem ist, ich weiß nicht wie ich das "schlau" schreiben soll.
Ich könnte es folgendermaßen machen:

If Range("I13") = "/" Then
Range("I13:L13").Select
Selection.Delete Shift:=xlUp
End If

If Range("I14") = "/" Then
Range("I14:L14").Select
Selection.Delete Shift:=xlUp
End If


..........


Das ganze wird aber ein ellenlanger Code. Gibt es vielleicht eine elegantere Möglichkeit?

Grüßeee :)

Scorefun
25.08.2017, 02:02
sinngemäß so: (nennt sich auch Schleife)

dim r as long

for r = 100 to 13 step -1
If InStr(1, Range("I" & r), "/", vbTextCompare) > 0 Then Rows(r).Delete
next r

Hierbei wird allerdings die ganze Zeile gelöscht

Wenn nur Dein genannter Bereich gelöscht werden soll :


Dim r As Long

For r = 100 To 13 Step -1
If InStr(1, Range("I" & r), "/", vbTextCompare) > 0 Then
Range("I" & r & ":J" & r).Delete Shift:=xlUp
End If
Next r