Mit einem Button Text und Farbe einer Zelle ändern

Hallo,

Ich habe folgendes Problem:

Im Bereich D12 bis J20 (der Bereich kann auch größer sein) habe ich in den Zellen unterschiedlich Inhalte.

z.B.

"F/U" mit der Hintergrundfarbe grün, "F/K" mit der Hintergrundfarbe rot oder "F/G" mit der Hintergrundfarbe gelb.

Über einen Button möchte ich die Inhalte und die Hitergrundfarben dieser Zellen auf einmal ändern können.

Alle Inhalte in dem genannten Bereich sollen dann F/A lauten und die Hintergrundfarbe soll grau sein.

Wenn man den Button ein zweites Mal betätigt sollen die alten Werte wieder in den Zellen stehe.

Ich gehe davon aus das man dies mit VBA lösen muss.

Ich habe schon mal mit der Hitergrundfarbe probiert, aber wenn ich es wieder zurück ändere ist die Zelle weiß.

Private Sub CommandButton1_Click()
If ActiveCell.Interior.ColorIndex = 15 Then
         ActiveCell.Interior.ColorIndex = xlNone
     Else
         ActiveCell.Interior.ColorIndex = 15     
End If
End Sub

Könnte mir einer von Euch helfen?

Vielen Dank im vorraus.

Mfg Tommylik

Please also mark the comments that contributed to the solution of the article

Content-Key: 374762

Url: https://administrator.de/contentid/374762

Printed on: April 24, 2024 at 08:04 o'clock

3 Comments

Latest comment

Hi,
warum ist Dein Text so irre lang ohne Inhalt am Ende? Korrigiere das bitte mal.

Ich habe schon mal mit der Hitergrundfarbe probiert, aber wenn ich es wieder zurück ändere ist die Zelle weiß.

Na klar. genau genommem ist sie transparent, denn Du setzt ja explizit "xlNone". Wenn Du die vorherige Farbe wieder haben willst, dann musst Du diese zwischenzeitlich irgendwo zwischenspeichern. z.B. auf einem anderen, ausgeblendeten Formular, wo Du der Zelle mit den gleichen Koordinaten dort die aktuelle Farbe des Zelle im Zielblatt gibst. Oder Du könntest die Farbe im Zell-Kommentar speichern.

Schon mal was von bedingten Formatierungen gehört?

E.

Hallo emeriks,

Vielen Dank für deine Antwort.
Also muß ich mir die bedingte Formatierung anschauen. Das mit dem Zwischenspeichern ist ein zu großer Aufwand. Wenn sich ein Wert ändert auf der Hauptseite sagen wir von F/U nach F/G dann muss man das ja auf der Seite wo man Zwischenspeichern möchte auch ändern.

Mein Beispiel mit dem xlnone ist Blödsinn von mir gewesen. Aber kann man den Code nicht so abändern das zwischen 2 Farben hin und her geschaltet wird?

Vielen Dank nochmal für deine Hilfe

Mfg Tommylik

Also muß ich mir die bedingte Formatierung anschauen.

Musst nicht. Es ist nur eine Alternative.

Das mit dem Zwischenspeichern ist ein zu großer Aufwand. Wenn sich ein Wert ändert auf der Hauptseite sagen wir von F/U nach F/G dann muss man das ja auf der Seite wo man Zwischenspeichern möchte auch ändern.

Nein., musst man nicht.

Angenommen Du hast eine zweite, versteckte Tabelle "TabelleX":

Private Sub CommandButton1_Click()
  If ActiveCell.Interior.ColorIndex = 15 Then
          'Farbe der aktuellen Zelle aus der Zwischenspeicherung wiederherstellen  
         ActiveCell.Interior.ColorIndex = ActiveWorkbook.Sheets("TabelleX").Range(ActiveCell.Address).Interior.ColorIndex  
     Else
          'zwischenspeichern der Farbe der aktuellen Zelle  
         ActiveWorkbook.Sheets("TabelleX").Range(ActiveCell.Address).Interior.ColorIndex  = ActiveCell.Interior.ColorIndex  
          'Farbe der aktuellen Zelle ändern  
         ActiveCell.Interior.ColorIndex = 15     
  End If
End Sub

German Question Microsoft Office Microsoft

Hotly discussed

Check of ZFW Firewallgleixnerd - 5 Comments

Wireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments

How to set up and configure a Linux GRE tunnelAlexWisha - 3 Comments