Alle Zellen außer fettgedruckte löschen

Forumthread: Alle Zellen außer fettgedruckte löschen

Manuel

Hallo zusammen,
ich habe eine Tabelle in der normale, fettgeschriebene und leere Zellen vorkommen.
Ich möchte jetzt, dass alle Zellen außer den fettgeschriebenen gelöscht werden.
Wichtig dabei wäre, dass im Fall einer Löschung die Zellen von unten nachrücken.
Leider hab ich keine Ahnung wie ich das anstellen soll und hab sonst nirgendwo sowas gefunden.
Wenn mir jemand bei meinem Problem behilflich sein könnte, dann wäre das echt klasse!
MfG
Manuel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Alle Zellen außer fettgedruckte löschen

21.01.2010 11:00:46

Siggi

Hi Manuel,
hier ein Beispiel, um in Zelle Spalte A zu prüfen ob fettschrift vorhanden. Tabelle wird von hinten aufgearbeitet.

Sub Makro1()
For i = 0 To 10
Cells(10 - i, 1).Select
If Selection.Font.Bold = False Then
Rows(10 - i & ":" & 10 - i).Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub

Grüßle Siggi

AW: Alle Zellen außer fettgedruckte löschen

21.01.2010 11:34:23

Manuel

Hallo Siggi,
erstmal vielen Dank für die schnelle Antwort. Leider bekomme ich beim Ausführen immer einen Laufzeitfehler '1004' angezeigt in der dritten Zeile:
Cells(10 - i, 1).Select
Weisst Du vielleicht woran das liegen könnte?
MfG
Manuel

AW: Alle Zellen außer fettgedruckte löschen

21.01.2010 12:02:48

Siggi

Hi Manuel,
sorry, kleiner Fehler. In Zeile 2 musst du
For i = 0 to 9
schreiben
ansonsten will er Zeile 0 auch noch bearbeiten.
Grüßle Siggi

AW: Alle Zellen außer fettgedruckte löschen

21.01.2010 11:41:24

welga

Hallo Manuel,
versuch mal folgendes:

Sub liste()
Dim i As Long
Dim ii As Long
With Sheets(1)
For i = .UsedRange.Rows.Count To 1 Step -1
For ii = 1 To .Cells(i, Columns.Count).End(xlToLeft).Column
.Cells(i, ii).Select
If Selection.Font.Bold = False Then Selection.Delete shift:=xlUp
Next ii
Next i
End With
End Sub

Gruß
welga

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um alle Zellen außer den fettgedruckten in Excel zu löschen, kannst du ein einfaches Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf "Einfügen" und wähle "Modul", um ein neues Modul zu erstellen.

Kopiere den folgenden Code in das Modul:

Sub Makro1()
   For i = 0 To 9
       Cells(10 - i, 1).Select
       If Selection.Font.Bold = False Then
           Rows(10 - i & ":" & 10 - i).Select
           Selection.Delete Shift:=xlUp
       End If
   Next i
End Sub

Schließe den VBA-Editor und gehe zurück zu Excel.
Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf „Ausführen“ klickst.

Dieser Code löscht alle Zellen unterhalb der Zeile 10, die nicht fettgedruckt sind. Du kannst die Zeilenzahl anpassen, falls deine Daten anders strukturiert sind.

Häufige Fehler und Lösungen

Laufzeitfehler '1004': Dieser Fehler kann auftreten, wenn du versuchst, eine Zelle zu bearbeiten, die nicht existiert. Stelle sicher, dass die Schleife auf die richtigen Zeilen verweist. Ändere die Schleife zu For i = 0 To 9, um den Zugriff auf Zeile 0 zu vermeiden.
Makro funktioniert nicht: Überprüfe, ob du das Makro richtig im richtigen Modul eingefügt hast und dass du die korrekten Excel-Berechtigungen hast, um Makros auszuführen.

Alternative Methoden

Falls du keine VBA-Makros verwenden möchtest, kannst du auch die Filterfunktion nutzen:

Markiere die gesamte Tabelle.
Gehe zu "Daten" > "Filtern".
Setze einen Filter auf die Schriftart und wähle nur fettgedruckte Zellen aus.
Markiere die gefilterten Zellen (die nicht fettgedruckt sind) und drücke Entf, um sie zu löschen.
Entferne den Filter, um alle Zellen wieder anzuzeigen.

Praktische Beispiele

Hier sind zwei Beispiele für die Anwendung des Makros:

Beispiel 1: Du hast eine Liste von 10 Namen in Spalte A und möchtest alle Namen außer den fettgedruckten löschen, um die Übersicht zu verbessern.
Beispiel 2: In einer Tabelle mit Verkaufszahlen sind einige Zellen fettgedruckt. Wenn du die nicht fettgedruckten Zellen löschen möchtest, um die wichtigsten Informationen hervorzuheben, kannst du das oben beschriebene Makro verwenden.

Tipps für Profis

Anpassen der Zeilenanzahl: Wenn deine Tabelle mehr als 10 Zeilen hat, passe die Schleife im Makro an, um die gesamte Tabelle zu berücksichtigen.
Testen in einer Kopie: Führe das Makro zunächst in einer Kopie deiner Datei aus, um unbeabsichtigte Datenverluste zu vermeiden.
Schnellzugriff auf das Makro: Du kannst das Makro im Schnellzugriffsmenü hinzufügen, um es einfacher auszuführen.

FAQ: Häufige Fragen

1. Wie kann ich alle Zellen außer fettgedruckte in einer bestimmten Zeile löschen?
Du kannst das Makro so anpassen, dass es nur auf eine spezifische Zeile anwendet, indem du die Zeilenreferenz im Code änderst.

2. Kann ich das Makro auch für andere Schriftarten verwenden?
Ja, du kannst die Schriftartbedingungen im Makro nach deinen Wünschen anpassen, um andere Kriterien zu verwenden.

Beliebteste Forumthreads (12 Monate)

Alle Zellen außer fettgedruckte löschen

Forumthread: Alle Zellen außer fettgedruckte löschen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Alle Zellen außer fettgedruckte löschen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Alle Zellen außer fettgedruckte löschen

Forumthread: Alle Zellen außer fettgedruckte löschen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Alle Zellen außer fettgedruckte löschen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread