|
Hier eine Lösung wie man es machen könnte:
Option Explicit
'****************************************************************
'!!!!!!!Achtung!!!!
'Dieser Code löscht ohne zu Fragen ganze Zeilen, welche in Splate 1 Fett geschriebenen Inhalt erhalten
'Jegliche Verantwortung zur Ausführen des Codes liegen beim Anwender
'******************************************************************
Sub Fett_Löschen()
Dim lstZeile As Integer, i As Integer
Dim wsQ As Worksheet
'Aktive Tabelle in Variable Speichern, dient nur dazu weniger schreibarbeit zu haben
Set wsQ = ThisWorkbook.ActiveSheet
'Letzte belegte Zelle in Spalte 1 ermitteln, von Zeile 20000 nach oben
lstZeile = wsQ.Cells(20000, 1).End(xlUp).Row
'Schleife um von Letzter gefundenen Zeile bis zur 1. Zeile abarbeiten
For i = lstZeile To 1 Step -1
'Wenn Aktive Tabelle Zelle(Schleifenzähler,Spalte 1) Schrift Fett = Wahr dann
'Ganze Zeile löschen
If wsQ.Cells(i, 1).Font.Bold = True Then
wsQ.Rows(i).Delete
End If
Next i
End Sub
|