Wie entfernt man Zellen oder Zeilen in Excel, wenn sie nicht fett formatiert sind?
Angenommen, Sie verfügen über einen Datenbereich mit Fett und nicht Fett, wie im folgenden Screenshot gezeigt. Nun möchten Sie die Zellen oder Zeilen entfernen, die nicht fett formatiert sind. Anstatt nicht Fett manuell einzeln zu löschen, stellt dieses Tutorial Methoden vor, um dies schnell in Excel zu erledigen.
Zeilen entfernen, wenn sie nicht fett formatiert sind, mit VBA
Zellen entfernen, wenn sie nicht fett formatiert sind, mit Suchen und Ersetzen und Bereichshilfe
Zeilen/Zellen entfernen, wenn sie nicht fett formatiert sind, mit Kutools für Excel 
v Zeilen entfernen, wenn sie nicht fett formatiert sind, mit VBA
Um Zeilen zu entfernen, die nicht fett formatiert sind, nutzen Sie einfach einen VBA-Code.
1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden VBA-Code in das neue Modul-Fenster ein.
VBA: Entfernen Sie Zeilen, die nicht fett formatiert sind.
Sub DeleteNonBolded()
'UpdatebyKutoolsforExcel20151116
Dim xRg As Range
Dim xDelRg As Range
Dim xAddress As String
Dim xUpdate As Boolean
Dim I As Long
Dim xBold As Variant
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "This VBA cannot support multiple range", , "Kutools for Excel"
Exit Sub
End If
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xRg.Rows.Count
xBold = xRg.Rows(I).Cells.Font.Bold
If TypeName(xBold) = "Boolean" Then
If xBold = False Then
If xDelRg Is Nothing Then
Set xDelRg = xRg.Rows(I).EntireRow
Else
Set xDelRg = Union(xRg.Rows(I).EntireRow, xDelRg)
End If
End If
End If
Next
xDelRg.Delete
Application.ScreenUpdating = xUpdate
End Sub3. Drücken Sie die F5-Taste, um den VBA-Code auszuführen. Geben Sie im erscheinenden Kutools für Excel-Dialogfeld den Bereich an, aus dem Sie Zeilen ohne Fettschrift entfernen möchten, und klicken Sie auf die Schaltfläche OK.
Anschließend sehen Sie, dass alle Zeilen ohne Fett entfernt wurden.
Hinweis: Zeilen können nur entfernt werden, wenn keine Zelle in der betreffenden Zeile fett formatiert ist.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Zellen entfernen, wenn sie nicht fett formatiert sind, mit Suchen und Ersetzen und Bereichshilfe
Wenn Sie lediglich den Zellinhalt aus nicht fett formatierten Zellen entfernen möchten, können Sie zunächst die Funktion „Suchen und Ersetzen“ verwenden, um alle fett formatierten Zellen auszuwählen. Anschließend nutzen Sie die Bereichshilfe von Kutools für Excel, um die Auswahl auf nicht fett formatierte Zellen umzukehren, und löschen danach den Inhalt.
1. Wählen Sie den Datenbereich aus, aus dem Sie die Fettschrift entfernen möchten, und drücken Sie Strg + F, um den Dialog Suchen und Ersetzen zu öffnen. Klicken Sie anschließend auf die Schaltfläche Optionen. Siehe Screenshot:
2. Klicken Sie auf Format, um zum Dialog Format suchen zu gelangen. Wählen Sie unter dem Reiter Schriftart in der Liste Fett aus. Siehe Screenshot: Schriftschnitt
3. Klicken Sie auf OK > Alle suchen. Alle fetten Formate werden nun im Dialog Suchen und Ersetzen aufgelistet. Drücken Sie Strg + A, um alle auszuwählen, und schließen Sie anschließend den Dialog Suchen und Ersetzen. Siehe Screenshot:
4. Behalten Sie diese Zellen ausgewählt und klicken Sie auf Kutools > Auswählen > Bereichshilfe. Siehe Screenshot:
5. Aktivieren Sie im erscheinenden Dialog zunächst die Option Auswahl umkehren und wählen Sie anschließend Ursprünglicher Datenbereich aus. Jetzt sehen Sie, dass die Auswahl umgekehrt wurde. Siehe Screenshot:
6. Klicken Sie auf Schließen. Drücken Sie nun die Taste Entf, um den Zellinhalt aus den nicht fett formatierten Zellen zu entfernen.
Zeilen/Zellen entfernen, wenn sie nicht fett formatiert sind, mit Kutools für Excel
Die oben genannten Methoden sind nicht einfach genug. In diesem Fall können Sie das Hilfsprogramm Kutools für Excel mit der Funktion Zellen mit ähnlichem Format auswählen verwenden, um fett formatierten Text schnell zu identifizieren und anschließend zu entfernen.
Nachdem Sie die kostenlose Installation durchgeführt habenKutools für Excel, führen Sie bitte Folgendes aus:
1. Wählen Sie den gewünschten Datenbereich aus und klicken Sie auf Kutools > Auswählen > Zellen mit ähnlichem Format auswählen. Siehe Screenshot:
2. Klicken Sie im erscheinenden Dialog auf die Schaltfläche Format von Zelle auswählen, um eine nicht fett formatierte Zelle aus dem Datenbereich auszuwählen, und aktivieren Sie anschließend im Abschnitt „Schriftart“ ausschließlich die Option Fett. Siehe Screenshot:
3. Klicken Sie auf OK. Es erscheint ein Dialogfenster, das Sie über die Anzahl der ausgewählten Zellen informiert. Klicken Sie einfach auf Ja, um es zu schließen.
Nun sind alle nicht fett formatierten Zellen ausgewählt. Drücken Sie die Taste Entf, um den Zellinhalt zu löschen. Wenn Sie stattdessen die gesamten nicht fett formatierten Zeilen entfernen möchten, klicken Sie mit der rechten Maustaste auf eine beliebige der ausgewählten Zellen und wählen Sie Löschen > Ganze Zeile. Siehe Screenshots:
Demo: Zellen/Zeilen entfernen, wenn sie nicht fett formatiert sind
Verwandte Artikel:
- Wie konvertiert man Hyperlinks in Excel in Klartext?
- Wie zählt man, ob Zellen mit einem bestimmten Text beginnen oder enden, in Excel?
- Wie zählt und Duplikate entfernen man aus einer Liste in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins