Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1792to1796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Problem VBA Farbwechsel

Problem VBA Farbwechsel
25.11.2020 12:12:45
Hannes
Liebe Forumsmitglieder,
kenn mich in excel passable aus und brauche jetzt zwei Funktionen: 5 felder von weiß auf grün einfärben und diese felder wieder von grün auf weiß rückfärben. soweit klappt es mit dem einfärben.
allerdings legt er mir beim einfärben über 4 felder eine graue farbe, die über die gewählte einfärbfarbe überdeckt wird. beim weiß färben bleibt die graue farbe in den 4 feldern stehen.
folgende button belegungen habe ich vorgenommen

Private Sub CommandButton1_Click()
Range("m6,m10,m14,m18,l23").Select
With Selection.Interior
.Color = RGB(65, 154, 28)
End With
End Sub


Private Sub CommandButton2_Click()
Range("m6,m10,m14,m18,l23").Select
With Selection.Interior
.Color = RGB(255, 255, 255)
End With
End Sub

bitte um kurze hilfe, wie ich den ursprungszustand = weiß in den 5 feldern wieder herstellen kann
danke und lg
hannes

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem VBA Farbwechsel
25.11.2020 12:25:06
Nepumuk
Hallo Hannes,
teste mal:
Private Sub CommandButton1_Click()
    Range("m6,m10,m14,m18,l23").Interior.Color = RGB(65, 154, 28)
End Sub

Private Sub CommandButton2_Click()
    Range("m6,m10,m14,m18,l23").Interior.Pattern = xlPatternNone
End Sub

Gruß
Nepumuk
Anzeige
AW: Problem VBA Farbwechsel
25.11.2020 12:27:36
Beverly
Hi Hannes,
meinst du mit "Weiß" farblos oder tatsächlich Weiß? Farblos geht mit .ColorIndex = xlNone, Weiß kannst du selbst rausfinden.


AW: Problem VBA Farbwechsel
25.11.2020 12:29:52
peterk
Hallo
Wenn Du den Range selektierst wird er auch markiert (Grau)
Es reicht:
Range("m6,m10,m14,m18,l23").Interior.Color = RGB(65, 154, 28)

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige