Tabellenkalkulation

Hintergrundfarbe in bestimmten Bereichen ändern

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

hallo, würde gerne in allen tabellen in meiner excel datei die zellen die momentan einen grauen hintergrund haben auf einen weißen hintergrund abändern. dies ist ja per makro möglich, aber wie? danke & gruß stefan

Antwort 1 von CaroS

Hallo stefan186,

Gegenfrage, wie grau sind Deine Zellen denn? Siehe
http://home.arcor.de/st.gaumitz/bilder/ex_std_pal.png

Gruß,
CaroS

Antwort 2 von jonny123

Hi

warum nicht einfach markieren und farbe ändern?? Oder versteh ich da was falsch??

Gruß jonny

Antwort 3 von stefan186

also ich möchte ja nur bei denen die farbe auf weiß ändern die momentan grau sind und nicht alle bereiche. dachte so in der art, aber leider funktionierts net... bringt auch "sub" fehler?

sub test ()
Function Farbe(Zelle As Range) As Byte
If Zelle.Interior.ColorIndex = 15 Then Farbe = Zelle.Interior.ColorIndex = 2
End Function
End Sub

Antwort 4 von Primut

Hi Stefan,

hier mal ein Beispiel-Makro:

Sub Grau()

Dim zell As Object
    For Each zell In ActiveSheet.UsedRange
     If zell.Interior.ColorIndex = 15 Then
     zell.Interior.ColorIndex = 2
     Rem zell.Interior.ColorIndex = xlNone
    Else: End If
    Next
End Sub

Hinweis: Excel zeigt als Hintergrund auch weiß an, d.h. du siehst Zellen mit keiner Farbe auch weiß, was aber Prinzipiell ein Unterschied ist. Wenn du keine Farbe zuorden willst, nimmst du halt die REM Zeile.

Ansonsten hab ich der Einfachheit halber das ganze Tabellenblatt (bzw. den benutzten Bereich ) ausgewählt, wo die Farbe geändert werden soll.

Gruß Primut

Antwort 5 von stefan186

Vielen vielen Dank!!!!! Ihr seit echt spitze