Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1128to1132
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1128to1132
1128to1132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Zellen außer fettgedruckte löschen

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

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

Betreff
Benutzer
Anzeige
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
Anzeige
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

301 Forumthreads zu ähnlichen Themen

VBA - Zellen löschen
gegs2

Hallo,
ich bin auf der Suche nach einem Makro welches mir Zellen aus meiner Tabelle löscht. Es soll bei Spalte C von oben her anfangen zu suchen (bis Spalte AF), und alle Zellen löschen und nach oben verschieben bei welchen der Inhalt der Zelle nicht mit einem kleinen "c" beginnt.
Ist s...
22.06.2009 16:24:03
Thread-ID: 1083531
5 Beiträge
Anzeige
Tabellenblätter mit Inhaltsverzeichnis löschen | Herbers Excel-Forum
Heinz
Hallo
Ich suche seit geraumer Zeit nach der Lösung folgenden Problems:
Ich arbeite mit einer Arbeitsmappe mit ca. 100 verschiedenen Tabellenblättern. Für jede Einzelarbeit brauche ich davon ca. 10-30 Blätter. Die nicht benötigten Blätter möchte ich mittels Makro am Ende löschen.
Mittels...
04.01.2010 18:33:06
Thread-ID: 1127121
6 Beiträge
Pivot VBA Tabellenblatt löschen
murat

Halllo,
ich möchte ein erzeugtes tabellenblatt, das durch pivot doppelklick entstanden ist wieder löschen.
ich habe folgendes Makro
Private Sub CommandButton1_Click() Dim letzteZelle As Long letzteZelle = Worksheets("Tabelle42").Cells.Find(What:="*", _ After:=[A1], SearchDirection:=...
24.01.2010 21:10:25
Thread-ID: 1132506
5 Beiträge
Anzeige
per VBA zellen kopieren und löschen
Willi

Hallo Leute,
ich brauche mal wieder eure Hilfe.
Die Tabelle (https://www.herber.de/bbs/user/81194.xlsm). Das mit den Zellen färben ist soweit OK. Jetzt will ich aber, wenn in M6 ein Kreuz gesetzt wird, dass das Kreuz in L6 verschwindet und das aktuelle Datum vom Tag in N6 eingetragen wi...
30.07.2012 00:01:49
Thread-ID: 1273054
3 Beiträge
Makro zum Löschen von Tabellenblättern und Inhalte
Tabellenblättern

Hallo ich habe ein Problem in Excel.
In der angefügten Datei benötige ich ein Makro um das Dateneinlesen zu beschleunigen. Ich habe aber keine Ahnung ob so etwas überhaupt funktioniert.
Die Daten des Tabellenblattes „Werte vorher“ sollen gelöscht werden. (spalte B, C und D)
Dann sol...
09.11.2012 13:03:39
Thread-ID: 1286025
7 Beiträge
mittels VBA Zellinhalt löschen wenn
Michael

Hallo,
trotz intensiver Recherche komme ich einfach nicht weiter.
Ich möchte mittels VBA den Wert der Zelle F26 löschen, wenn in der Zelle C14 "Maus" steht. Ich weis dass ich das über die wenn Funktion machen könnte, aber die Zelle F26 muss beschreibbar bleiben. Im normalen "Betrieb" is...
12.03.2013 16:46:03
Thread-ID: 1303504
15 Beiträge
VBA Zellen löschen mit Bedingung
WalterK

Hallo,
den folgenden Code habe ich in der Recherche gefunden, er entfernt die Zeilen, bei denen die Zelle in Spalte W leer ist.
Benötige Hilfe für folgende Änderung im Code:
1.) von "W6:W" & LzL sollte er nicht nur die leeren Zellen sondern auch die Zellen mit einer eingetragene...
24.03.2013 13:04:36
Thread-ID: 1305755
3 Beiträge
1. Zeichen aller Zellen in einem Bereich löschen
Stephan

Habe Daten über eine Export-Funktion erhalten, die als erstes Zeichen immer ein Leerzeichen haben, um somit die Formatierung als Text zu erzwingen.
Ich möchte nun aber darin enthaltenen Zahlen berechnen. Hierzu muss ich zuerst das erste Zeichen (Leerzeichen) der Zellen löschen und danach al...
18.04.2013 14:59:00
Thread-ID: 1309406
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
8
5
4
13
2
6
14
2
6
4
2
12
2
3
6
2
4
4
9
6
4
4
3
3