Ausgeblendete Zellen Löschen
Marta
habe da ein kleines Makro Problem. Und zwar wende ich den Spezialfilter an, u lasse mir alle Duplikate ausblenden, nun möchte ich bei den ausgeblendeten Zeilen (nur in Spalte U) den Inhalt löschen.
Sub ausgeblendeteLöschen()
Dim Letzte As Long
Dim I As Long
lastRowU = Range("U" & Rows.Count).End(xlUp).Row
Letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For U = Letzte To 58 Step -1
If Rows(U).RowHeight = 0 Then Rows("U58:U" & lastRowU).ClearContents
Next U
End Sub
Hat vielleicht jemand ne Idee?
VIelen Dank schonmal...
Grüße