Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Zelleninhalte in Abhängigkeit der Zellfarbe ändern

• Zelleninhalte in Abhängigkeit der Zellfarbe ändern von Max vom 12.10.2020 17:13:43
• AW: Zelleninhalte in Abhängigkeit der Zellfarbe ändern - von Mullit am 12.10.2020 17:25:05
  • AW: Zelleninhalte in Abhängigkeit der Zellfarbe ändern - von Max am 12.10.2020 17:33:22
    • AW: Zelleninhalte in Abhängigkeit der Zellfarbe ändern - von Mullit am 12.10.2020 17:35:44

Betrifft: Zelleninhalte in Abhängigkeit der Zellfarbe ändern von: Max
Geschrieben am: 12.10.2020 17:13:43

Hallo Excel Pros,


Ich habe eine Frage bezüglich eines Makros.

Wie kann ein Makro aussehen, dass alle Werte aus Zellen löscht, die eine bestimmte Farbe haben.

In der Beispielsdatei müssen alle Werte, die in einer hellgrünen Zelle liegen, gelöscht werden.

Wie kann ich das am besten lösen?


https://www.herber.de/bbs/user/140834.xlsx



Danke und Viele Grüße

Max

  

Betrifft: AW: Zelleninhalte in Abhängigkeit der Zellfarbe ändern
von: Mullit
Geschrieben am: 12.10.2020 17:25:05

Hallo,

im Prinzip per Loop:

Public Sub test()
   Dim objCell As Range
   For Each objCell In ActiveSheet.UsedRange
       If objCell.Interior.Color = RGB(146, 208, 80) Then Call objCell.ClearContents
   Next
End Sub

Gruß, Mullit

  

Betrifft: AW: Zelleninhalte in Abhängigkeit der Zellfarbe ändern
von: Max
Geschrieben am: 12.10.2020 17:33:22

Funktioniert, vielen Dank! :)

  

Betrifft: AW: Zelleninhalte in Abhängigkeit der Zellfarbe ändern
von: Mullit
Geschrieben am: 12.10.2020 17:35:44

Hallo,

prima, alles klar, für größere Bereiche noch cooler so:...;-)

Option Explicit

Public Sub test()
   Dim objCell As Range, objUnion As Range
   For Each objCell In ActiveSheet.UsedRange
       If objCell.Interior.Color = RGB(146, 208, 80) Then
         If objUnion Is Nothing Then
            Set objUnion = objCell
         Else
            Set objUnion = Union(objUnion, objCell)
         End If
       End If
   Next
   If Not objUnion Is Nothing Then
      Call objUnion.ClearContents
      Set objUnion = Nothing
   Else
      Call MsgBox("Kein passender Farbbereich gefunden...", vbExclamation)
   End If
End Sub

Gruß, Mullit