Inhalte per Klick löschen

Forumthread: Inhalte per Klick löschen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Inhalte per Klick löschen

sabbelschlaeppchen

Hallo,
ich wäre dankbar für Hilfe:
Ich möchte alle Zelleninhalte mit blauer Schrift per Klick auf einen Button löschen. Wie kann man das programmieren?
Gruß, sabbelschlaeppchen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Inhalte per Klick löschen

Peter
AW: Inhalte per Klick löschen

sabbelschlaeppchen
AW: Inhalte per Klick löschen

Peter

AW: Inhalte per Klick löschen

11.01.2011 19:11:26

Peter

Hallo,
versuch es so:

Public Sub FarbigeLoeschen()
Dim rBereich  As Range
Dim rZelle    As Range
Set rBereich = ThisWorkbook.Worksheets("Tabelle1").Range("A1:F10")
For Each rZelle In rBereich
If rZelle.Font.ColorIndex = 5 Then rZelle = ""
Next rZelle
Set rBereich = Nothing
End Sub

Gruß Peter

AW: Inhalte per Klick löschen

11.01.2011 19:30:57

sabbelschlaeppchen

Muss es nicht mit Private Sub CommandButton1_Click() beginnen, wenn es auf Klick laufen soll? Aber dann funktioniert es nicht.
Gruß sabbelschlaeppchen

AW: Inhalte per Klick löschen

11.01.2011 21:21:22

Peter

Hallo,
es kommt auch darauf an, woher die Zellen ihre Farben bezogen haben.
Wenn sie mit bedingter Formatierung erzeugt wurde, dürfte es schwierig werden,
bzw. müsste die bedingte Formatierung per Makro nachgebildet werden.
Wenn Du den Button per Formular (Rechtsklick auf die Menüleiste) erzeust, kannst Du dort das Makro, wie gezeigt, angeben.
Gruß Peter