Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
452to456
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
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nicht-farbige Zellen löschen

Nicht-farbige Zellen löschen
14.07.2004 09:55:58
Philipp
Hallo zusammen!
Hoffe, mir kann jemand helfen.
Ich will in einem Tabellenbereich Zeilen, in denen kein einziges Feld
einen bestimmten Farbhintergrund hat, komplett löschen.
Wie kann ich Zeile für Zeile die einzelnen Zellen prüfen und sobald
ein Feld farbig hinterlegt ist auf die nächste Zeile übergehen?
Wäre super, wenn mir hier jemand einen Tipp geben könnte!
Vielen Dank!
Gruß
Philipp

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nicht-farbige Zellen löschen
14.07.2004 10:04:39
Franz
Hallo Philipp,
nur mal als Idee schnell hingeschrieben so ähnlich:
For each Zelle in UsedRange
if Zelle.font.colorindex = xlnone then Zelle.clearcontents
next
Kommst mit VBA = gut ja vielleicht weiter...
Grüße
Franz
AW: Nicht-farbige Zellen löschen
14.07.2004 11:28:19
Philipp
Hallo Franz!
Vielen Dank schonmal - klappt aber nicht so ganz, wie ich mir das vorstelle.
Ich will auf jeden Fall die KOMPLETTE Zeile löschen, wenn KEINE Zelle in der Spalte
farbig hinterlegt ist.
Komme zwar einigermaßen mit VBA klar, aber das ist mir dann noch zu hoch.
Mit der If-Funktion, das ist klar bzw. eine If not-Funktion würde es wahrscheinlich
tun, schon mal ein guter Hinweis von Dir, aber leider kriege ich die Bedingung noch nicht formuliert.
Er muß ja quasi je Zeile prüfen, ob eine farbige Zelle vorliegt. Ist dies der Fall,
kann er direkt in die nächste Zeile hüpfen und dort prüfen.
Hast Du vielleicht noch mal einen Tipp für mich bitte?!
Vielen Dank!
Gruß
Philipp
Anzeige
AW: Nicht-farbige Zellen löschen
14.07.2004 11:39:31
Franz
Hallo Philipp,
kann's leider nicht ganz richtig aus dem Stehgreif und zum Ausprobieren fehlt mit grade die Zeit. Aber versuch mal folgendes:
- eine For-Schleife um die Zeilen von oben nach unten zu durchlaufen
- darin verschachtelt eine weiter Schleife:
for each Zelle in activerow (oder so ähnlich, musst ein bisschen probieren, wie das genau heißen muss:
for i = 1 to xxx
for each Zelle in activerow
if ...
next
next
Viel Glück
Franz
AW: Nicht-farbige Zellen löschen
WernerB.
Hallo Philipp,
mit diesem Makro werden die entsprechenden Zeilen gelöscht, wenn in der Spalte "A" (Zeile 1 bis 100) eine Zelle keinen Farbhintergrund hat; ggf. musst Du das Makro eben auf Deine Gegebenheiten anpassen.

Sub Philipp()
Dim i As Long
Application.ScreenUpdating = False
For i = 100 To 1 Step -1
If Cells(i, 1).Interior.ColorIndex = xlNone Then
Cells(i, 1).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
Anzeige
AW: Nicht-farbige Zellen löschen
14.07.2004 12:50:24
Philipp
Hallo Werner!
Auch Dir erstmal einen herzlichen Dank!
Ich habe allerdings jetzt das Problem, daß ALLE Zeilen gelöscht werden.
Ich möchte nicht die Zeilen löschen, in denen EINE Zelle keinen Farbhintergrund
hat, sondern die löschen in denen KEINE einen Farbhintergrund hat.
D.h. ich muß wohl noch eine Prüfung einbauen, die die einzelnen Zellen der Zeile
durchgeht und bei Vorliegen eines Farbhintergrundes in die nächste Zeile hüpft.
Fällt Dir hier vielleicht noch etwas zu ein?
Vielen Dank!
Gruß
Philipp
Was hältst du davon...:
14.07.2004 13:32:27
Franz
Hallo Philipp,
hier mal ein Beispiel (jetzt getestet):

Sub loeschen()
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = ActiveSheet.UsedRange
For Each Zelle In Bereich
If Not Zelle.Interior.ColorIndex = xlNone Then
MsgBox Zelle.Row
Rows(Zelle.Row).Delete Shift:=xlUp
End If
Next
End Sub

Gib bitte Bescheid, ob's klappt.
Grüße
Franz
Anzeige
Zeile mit "MsgBox" muss raus! o.t.
14.07.2004 15:30:12
Franz
AW: Nicht-farbige Zellen löschen
Martin
Hallo Philipp,
noch ein Vorschlag:

Sub Farbige_Zellen_löschen()
z = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
s = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
For i = z To 1 Step -1
For j = 1 To s
If Not Cells(i, j).Interior.ColorIndex = xlNone Then
Rows(i).Delete
Exit For
End If
Next j
Next i
End Sub

Gruß
Martin Beck
AW: Nicht-farbige Zellen löschen
K.Rola
Hallo,
die Zeilenzahl musst du halt anpassen, weiß nicht,
wovon die abhängig sein soll:

Sub Zeile()
Dim z As Long
Application.ScreenUpdating = False
For z = 100 To 1 Step -1
On Error Resume Next
If Rows(z).Interior.ColorIndex = -4142 Then Rows(z).Delete
Err.Clear
Next
Application.ScreenUpdating = True
End Sub

Gruß K.Rola
Anzeige
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
2
4