ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden, z.B. in zeile 60 ff.
Hab gestern schon mal gefragt und folgendes Makro erhalten:
Private Sub Worksheet_Change2(ByVal target As Range)
Wert = target.Value
Spalte = ActiveCell.Column
Select Case Spalte
Case Is = 8
If Wert = "Absage" Then
Rows(ActiveCell.Row - 1).Select
Selection.Cut
Rows("51:51").Select
Selection.Insert Shift:=xlDown
End If
If Wert = "Auftrag" Then
Rows(ActiveCell.Row - 1).Select
Selection.Cut
Rows("61:61").Select
Selection.Insert Shift:=xlDown
End If
End Select
End Sub
Allerdings funktioniert es nicht, das heißt, es passiert gar nichts, wenn die Wörter eingetragen werden.
Kann jemand helfen?
Gruß