Supportnet / Forum / Tabellenkalkulation

Hallo Experten! Ich stehe vor dem Problem bei einer riesen Tabelle, welche aus grünen und roten Zeilen besteht, die roten Zeilen herausfiltern und löschen zu müssen. Weiß jemand, wie man dass an geschicktesten hinkriegt? Danke, Bastiaan!

Nabend Bastian,

nachfolgendes Makro kopiere in ein StandardModul und weise es einer Befehlsschaltfläche zu.

Sub Rote_Zellen_finden_und_löschen()
Dim Zeile As Long, Wiederholungen As Long
Zeile = UsedRange.SpecialCells(xlCellTypeLastCell).Row
For Wiederholungen = 1 To Zeile
If Cells(Wiederholungen, 1).Interior.ColorIndex = 3 Then
Cells(Wiederholungen, 1).ClearContents
Cells(Wiederholungen, 1).Interior.ColorIndex = x1None
End If
Next
End Sub

Bei dem Makro werden Zellen, die eine rote Hintergrundfarbe haben ermittelt. Die Inhalte der gefundenen roten Zellen werden gelöscht und die Hintergrundfarbe wird entfernt.

Wenn Du nicht weißt, wie Du das Makro in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen unter dem Punkt Anleitung zum VBA Projekt “Modul" nach. Dort befindet sich eine bebilderte Anleitung, die Dir behilflich sein sollte.
Ich hoffe, Du kommst klar. Bei Fragen oder Problemen melde Dich wieder.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi ich noch mal,

das Makro hatte einen kleinen Fehler. Nimm bitte das folgende, das sollte funktionieren.

Sub Rote_Zellen_finden_und_löschen()
Dim Zeile As Long, Wiederholungen As Long
Zeile = Worksheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
For Wiederholungen = 1 To Zeile
If Cells(Wiederholungen, 1).Interior.ColorIndex = 3 Then
Cells(Wiederholungen, 1).ClearContents
Cells(Wiederholungen, 1).Interior.ColorIndex = x1None
End If
Next
End Sub

Allerdings musst Du in der Zeile

Zeile = Worksheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row

noch den Namen "Tabelle1" gegen den Namen Deines Tabellenblattes tauschen. Lösche Tabelle1 und trage zwischen die beiden Anführungsstriche ("") Dienen Blattnamen ein.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo coros,

1. Was muß ich machen, um dem Makro eine Standardschaltfläche zuzuweisen.?

2.Ich habe, nachdem ich der HP gefolgt bin, unter EXTRAS > MAKRO > MAKROS den Makronamen "rote_Zellen_finden_und_löschen" ausgewählt und AUSFÜHREN gewäht.

3.Dann erscheint ein Fenster in dem steht.
Laufzeitfehler ´424´
Objekt erfolderlich


Bastiaan!

Hi Bastian,

aufgrund des Fehlers habe ich das zweite Makro hier gepostet. Versuche es mal damit. Was ich allerdings noch vergessenhatte zu schreiben, es wird nur Spalte A nach roten Zellen durchforstet. Wenn Du eine ander Spalte durchsuchen möchtest, dann muss in dem Makro in den Zeilen

If Cells(Wiederholungen, 1).Interior.ColorIndex = 3 Then
und

Cells(Wiederholungen, 1).ClearContents

und

Cells(Wiederholungen, 1).Interior.ColorIndex = x1None

jeweils die Zahl 1 gegen die Spaltenindexzahl der zu durchsuchenden Spalte eingetragen werden. Wobei die 1 für Spalte A steht. Eine 2 würde für Spalte B, eine 3 für Spalte C usw. stehen.

Eine Anleitung, wie Du das einer Standard- bzw. einer Befehlsschaltfläche zuweist, ist ebenfalls in der Rubrik Anleitungen und dort dann Anleitung zum Einfügen einer Befehlsschaltfläche auf der HP zu finden. Musst Du mal lesen. Wenn Du nicht klar kommst, dann melde Dich noch mal.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Danke Coros,

Ich habe das Problem anderweitig selbst gelöst, da es sehr eilig war. Trotzdem ganz ganz großen Dank

Bastiaan

• Sortieren in Excel
• Zellen nach Zeichenanzahl sortieren (Excel 2003)
• Excel, Standardfarbe in Symbolleiste ändern
• Nach Farben sortieren...
• Excel; Sortieren; 2 Zellen in Verbindung setzen