Excel bestimmte Zeilen löschen

Computer: Software & Programmierung Office Software
1

Hallo,

wie kann man in Excel Zeilen mit einer bestimmten Farbe löschen?

Danke.

Gruß
Gunter

2

wie kann man in Excel Zeilen mit einer bestimmten Farbe
löschen?

Hi Gunter,m
wie kam die Farbe in die Zelle? manuell oder bed. Formatierung.
Gruß
Reinhard

3

Hallo Reinhard,

die Schrift-Farbe kam manuell in die Zeilen.
Am liebsten wäre mir ein Makro.

Gruß
Gunter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

wie kam die Farbe in die Zelle? manuell oder bed.
Formatierung.

die Schrift-Farbe kam manuell in die Zeilen.
Am liebsten wäre mir ein Makro.

Hi Gunter,

Sub tt()
Dim Zei As Long
For Zei = 1 To Range("A65536").End(xlUp).Row
 If Range("A" & Zei).Font.ColorIndex = 3 Then Range("A" & Zei).EntireRow.Delete
Next Zei
End Sub

Gruß
Reinhard

5

Hi Gunter,

Sub tt()
Dim Zei As Long
For Zei = 1 To Range(„A65536“).End(xlUp).Row
If Range(„A“ & Zei).Font.ColorIndex = 3 Then Range(„A“ &
Zei).EntireRow.Delete
Next Zei
End Sub

Gruß
Reinhard

Hallo Reinhard,

besten Dank. Hat fast auf Anhieb geklappt. Ich musste nur von hinten die Schleife anfangen also:

For Zei = Range(„A65536“).End(xlUp).Row to 1 Step -1

Irgendwie kam sonst das Makro mit löschen und den Zeilennummern durcheinander.

Klasse, dass es so hilfsbereite Leute gibt.

Gruß
Gunter

6

hi Reinhard,
ein paar klitzekleine Anmerkungen:
nach meiner unmaßgeblichen Meinung können durchaus hinter der letzten beschriebenen Zelle noch leere Zellen mit der Schriftformatierung kommen , diese werden mit deinem Code nicht erfasst
wenn in zwei Zellen hintereinander Schriftformatierung vorkommen wird bei dir nur die erste gelöscht
richtige Programmierer im echten Leben schreiben nie ein Zeichen zuviel (man könnte auch sagen sie sind stinkend faul) aber deklarieren trotzdem Variablen so, dass sie sofort deren Inhaltstyp erkennen können
wenn Excel 12 genutzt … ja ich sag ja schon nix mehr :wink:

angepasster Code:

Sub tt()
Dim LoZei As Long
For LoZei = UsedRange.Row To 1 Step -1
If Cells(LoZei, 1).Font.ColorIndex = 3 Then Rows(LoZei).Delete
Next Zei
End Sub

cu Micha

7

Hallo Micha,
ja da hast du mit Allem wahr.
Nobody is perfect, apropos, mag ja sein dass dein Code in Excel12 läuft, aber ansonsten:
Usedrange wird als nicht deklarierte Variable angesehen
Worksheets(„Tabelle1“).usedrange.row funktioniert, ergibt aber die falsche Zeile und zei soll wohl lozei sein.
Gruß
Reinhard

8

hi Reinhard,
upps da habe ich wohl ein „zei“ übersehen (das kommt davon wenn man live editiert)

UsedRange (Eigenschaft)
Gibt ein Range-Objekt zurück, das den verwendeten Bereich im angegebenen Arbeitsblatt darstellt

also muss der code im Klassenmodul eines Tabellenblattes liegen oder referenziert werden, warum soll das nicht funktionieren ?

ich wollte ja eigentlich auch nur mit den klitzekleinen Anmerkungen auf deine geliebte absolute Zahl hinweisen

übst du eigentlich schon ? 1048576 1048576 1048576 1048576 1048576

cu Micha

9

ich wollte ja eigentlich auch nur mit den klitzekleinen
Anmerkungen auf deine geliebte absolute Zahl hinweisen
übst du eigentlich schon ? 1048576 1048576 1048576 1048576
1048576

Hallo Micha

*grins*,
werde dann doch wohl auch Rows.Count nehmen, vielleicht schon ab heut :smile:
Gruß
Reinhard