Office: kann man zellen nach Hintergrundfarbe markieren?

Guten Morgen zusammen,

wenn man in einem Formular mit Eingabefeldern, die alle grünen Hintergrund haben, einen alle Eingaben löschen-Button bauen will, müsste dies doch über ein Makro möglich sein, welches sagt:

alle Zellen mit grünem Hintergrund auf diesem Tabellenblatt markieren und Inhalte löschen

Kann mir jemand dazu einen Tipp geben.

Danke und Gruss
Tore

 

Es gibt mehrere Ansätze, aber der Ablauf ist im Prinzip gleich. Die einzelnen Felder werden dabei nicht markiert, sondern der Reihe nach gelöscht.

Zuerst: Ich gehe mal davon aus, daß das Formular sich nicht über das gesamte Tabellenblatt (z.B. 256x65536 Zellen) erstreckt. Also sollte man, um unnötige Rechenzeit zu vermeiden, den zu durchsuchenden Bereich eingrenzen. Das läßt sich manuell machen, ggf. aber auch automatisch.

Dann wird in einer Schleife jede Zelle überprüft, ob sie dem Kriterium entspricht und, wenn ja, deren Inhalt gelöscht.

Code:

dim x as long 'Spalte
dim y as long 'Zeile
dim x1 as long
dim y1 as long
dim x2 as long
dim y2 as long

'linke obere Ecke definieren:
x1=1 : y1=1

'manuell:
'rechte untere Ecke definieren:
x2=20 : y2=40

'automatisch:
'rechte untere Ecke ermitteln:
x2=activesheet.cells(y1,x1).specialcells(xllastcell).column
y2=activesheet.cells(y1,x1).specialcells(xllastcell).row

'Bereich durchlaufen
for y=y1 to y2
  for x=x1 to x2

    'Zellen-Hintergrundfarbe überprüfen:
    if activesheet.cells(y,x).interior.colorindex=4 then
      activesheet.cells(y,x).clearcontents
    endif

  next x
next y

Man könnte auch einen "Range" definieren und diesen dann mit "for each" durchsuchen. Ist Geschmackssache und mir gefällt obige Variante besser.

Da oben wird jetzt auf "colorindex" Nr. 4 überprüft, was Du dann entsprechend anpassen müßtest. Ev. mußt Du auch alternativ die "color"-Eigenschaft überprüfen, wobei Dir die rgb()-Funktion hilfreich sein könnte.

Code:

    if activesheet.cells(y,x).interior.color=rgb(255,127,63) then

Aber im Prinzip müßte es eigentlich so klappen. Ist allerdings ungetestet und so aus'm Stegreif...

Gruß, Michael

 

Grüezi Tore

Das kannst Du auch einfacher haben... ;-)

- Markiere mit gedrckter STRG-Taste alle Zellen
- Gib diesem Bereich dann im Namensfels links neben der Bearbeitungszeile einen Namen-


Nun kannst Du im Namensfeld diesen Namen auswählen und alles gemeinsam löschen (ggf. kannst Du das dann auch mit VBA tun...).

 

Hallo,

mit folgendem Makro geht das ganz einfach:

Code:

Public Sub Zelleninhalte_FarbeRGBLöschen()

  Dim Zelle As Range
  For Each Zelle In ActiveSheet.UsedRange.Cells
    With Zelle
      If .Interior.Color = vbGreen Then  'Farbe Grün =RGB(0,255,0)
        .ClearContents
      End If
    End With
  Next Zelle
  
End Sub

Es fragt im benutzten Bereich des aktiven Arbeitsblattes den Zellhintergrund auf die Farbe Grün ab und löscht den Zellinhalt.