Bestimmte Zellenwerte verschieben
Knatterkopf
habe mir einfach mal folgendes gedacht:
Möchte alle werte in einer Spalte die den Wert (hier) "mw1" haben in die spalte 3 weiter links verschieben.
Irgendwie geht es leider nicht so recht und ich weiß nicht warum.
Habe hier im Forum auch nichts dazu gefunden =(
Lg
Adrian
Private Sub CommandButton1_Click()
Dim Bereich As Range, Cell As Range
Set Bereich = Sheets("Tabelle1").Range("K2:K37705")
For Each Cell In Range("Bereich")
If Cell.Value = "mw1" Then
Cell.Value = Nothing
Cell.Offset(0, -3).Value = "mw1"
End If
Next
End Sub
Anzeige