Bedingung für Makro
Andreas
mit eurer Hilfe habe ich folgenden Code erstellt und in ein Modul eingefügt. Dieser Code bewirkt das wenn in Spalte 11 "erledigt"steht diese Zeile auf ein anderes Arbeitsplatt kopiert wird. Wie kann man den Code ändern damit anstatt des Wortes "erledigt" mehrere Begriffe diese Bedingung erfüllen. Die Begriffe stehen auf dem Tabellenbaltt in Spalte O4 bis O10. Die Spalte 11 hat als Gültigkeit genau diese Zellen O4:O10.
Sub Erledigte()
For i = 1 To Tabelle1.[G65536].End(xlUp).Row
If Cells(i, 11) = "erledigt" Then
x = Tabelle2.[G65536].End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, 12)).Copy Tabelle2.Cells(x, 1)
Range(Cells(i, 1), Cells(i, 12)) = ""
Range("A4:M115").Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SmallScroll Down:=-126
Range("A4").Select
End If
Next i
End Sub
Anzeige