AW: Vba wenn Zelle durchgestrichen dann ans Ende der Tabelle
28.08.2024 21:07:39
daniel
Hi
wenn das nicht sofort automatisch passieren soll sondern nur auf anforderung, dann probier mal diesen Code:
Function xxx(Zelle As Range)
xxx = IIf(Zelle.Font.Strikethrough, "x", 1)
End Function
Sub Machs()
With ActiveSheet.UsedRange
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=xxx(RC2)"
If WorksheetFunction.Sum(.Cells) .Cells.Count Then
Intersect(.SpecialCells(xlCellTypeFormulas, 2).EntireRow, Columns(3)).ClearContents
.EntireRow.Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo
End If
.ClearContents
End With
End With
End Sub
auszuführen ist dann das Makro "Machs" (du darfst dir auch gerne kreativere Namen ausdenken)
das funktioniert aber nur bei manuellem Durchstreichen, nicht bei verwendung der Bedingten Formatierung.
Gruß Daniel