Datum

Titel

24.04.2024 00:20:14

Bestimmte Spalten als xls exportieren per Makro

23.04.2024 22:08:10

Auflisten in Spalte VBA

23.04.2024 21:33:46

Nur farbige/nicht farbige Zellen markieren

23.04.2024 21:29:56

Bestimmte Zellen auf andere Arbeitsblätter kopieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

624to628

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Farbige Zeilen löschen

Forumthread: Farbige Zeilen löschen
5 Beiträge zu diesem Forumthread
Anzeige
302 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

17.06.2005 12:27:24

Stan

Hallo!
Ich will in meiner Tabelle alle farbige zeilen löschen.
Hier habe ich ein Beispiel:
ub Makro1()
lZeile = Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row
'makro zählt Rückwärts!
For i = lZeile To 1 Step -1
If Cells(i, 1).Interior.ColorIndex = 6 Then
Rows(i).Delete
End If
Next i
End Sub
Meine Frage: Das Makro greift nur an Spalte A (wo kann ich das ändern?)
Um mehrere Farben einzugeben musste ich ein Teil von dem Makro wiederhollen. Kann ich mehrere Farbennummer nacheinander schreiben (z.B. If Cells(i, 1).Interior.ColorIndex = 6, 3, 4 Then ?
Danke für Eure Hilfe.
Gruß Stan

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Farbige Zeilen löschen

17.06.2005 12:41:19

Dieter
AW: Farbige Zeilen löschen

17.06.2005 13:07:51

Stan
AW: Farbige Zeilen löschen

17.06.2005 13:13:23

Hajo_Zi
AW: Farbige Zeilen löschen

17.06.2005 13:19:00

Stan
AW: Farbige Zeilen löschen

17.06.2005 13:46:22

Dieter

AW: Farbige Zeilen löschen

17.06.2005 12:41:19

Dieter

Hi Stan
so geht's


Sub Makro1()
Dim lZeile, i
lZeile = Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row
For i = lZeile To 1 Step -1
Select Case Cells(i, 1).Interior.ColorIndex
Case Is = 3, 4, 6
Rows(i).Delete
Case Else
End Select
Next i
End Sub

Gruss Dieter

AW: Farbige Zeilen löschen

17.06.2005 13:07:51

Stan

Hallo Dieter.
Leider wird auch nur die erste Spalte berücksichtigt.
Gefärbte Zeilen in anderen Spalten werden nicht gelöscht.
Gruß Stan

AW: Farbige Zeilen löschen

17.06.2005 13:13:23

Hajo_Zi

Hallo Stan,
Option Explicit


Sub Makro1()
Dim lZeile As Long, i As Long, j As Long
lZeile = Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row
For i = lZeile To 1 Step -1 ' Zeilen
For j = 1 To 6          ' spalte A bis F
Select Case Cells(i, j).Interior.ColorIndex
Case Is = 3, 4, 6
Rows(i).Delete
Exit For
End Select
Next j
Next i
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.

AW: Farbige Zeilen löschen

17.06.2005 13:19:00

Stan

Danke.
Alles OK.
Gruß Stan

AW: Farbige Zeilen löschen

17.06.2005 13:46:22

Dieter

Hi Stan
entschuldige bitte meine Schusseligkeit, aber ich dachte mir bei deinem Level VBA - gut könntest du selber eine variable Spaltenangabe eingeben.
Gruss Dieter