um Zeilen zu löschen verwende ich nachfolgendes Programm (von Daniel). Allerdings hatte ich in meiner Vorlage nicht erwähnt, dass in verschiedenen Spalten auch Kommentare stehen können. Diese Kommentare bleiben momentan erhalten. Ein kleines Zusatz-Makro hat leider auch nicht funktioniert (obwohl es anscheinend schrittweise das macht, was es soll). Wie kann ich auch evtl. Kommentare (der gelöschten Zeilen) löschen?
Vielen Dank für Tipps.
Grüße, Constantin
Sub löschen()
Dim var As String
Dim FO As String
var = "ABC;AZZ;XYZ1;AZ36"
var = "{""" & Replace(var, ";", """,""") & """}"
FO = "=IF(OR(Left(RC1,Len(_var_))=_var_),Row(),0)"
FO = Replace(FO, "_var_", var)
With Sheets("Daten").Cells(1, 1).CurrentRegion
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = FO
.Cells(1, 1).FormulaR1C1 = 0
.EntireRow.RemoveDuplicates .Column, xlNo
.ClearContents
End With
End With
End Sub
https://www.herber.de/bbs/user/151799.xlsx
Zusatzmakro:
With Sheet("Daten")
lrow=.cells(rows.count,1).end(xlup).row
Range(cells(lrow+1,1),cells(lrow+1000,50).select
with selection
.clearcomments
end with
end with