Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  Füllfarbe

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Füllfarbe (475 mal gelesen)
DocTape
Mitglied



Sehen Sie sich das Profil von DocTape an!   Senden Sie eine Private Message an DocTape  Schreiben Sie einen Gästebucheintrag für DocTape

Beiträge: 51
Registriert: 20.02.2014

SWX 2014 Sp2.0
Dell 5810 Workstation
preowned SpaceExplorer
vermackelte MX mouse
randvolle Kaffeetasse<P>Windows 7

erstellt am: 05. Aug. 2016 11:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo zusammen,

folgendes "Problem", ein Kollege bevorzugt in seinen Tabellen gelb um diverse Spalten hervorzuheben. Das ist nach meinem empfinden unschön.....
Jetzt such ich nach einer Möglichkeit wenn ich diese Dokumente öffne sie anders darzustellen. Graustufen würde mir sehr entgegenkommen.
Gibt es da irgendwo eine Einstellung ??
Die orginal farbe in dem Dokument will ich nicht ändern! Ich will nur nicht mehr diese geleben Spalten sehen...
Und nein - die Einstelluzngen am Monitor will ich auch nicht befummeln...

Bin für jeden tip dankbar.....

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Paulchen
Mitglied
Bauing./SW-Entwickler


Sehen Sie sich das Profil von Paulchen an!   Senden Sie eine Private Message an Paulchen  Schreiben Sie einen Gästebucheintrag für Paulchen

Beiträge: 1227
Registriert: 19.08.2004

Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice

erstellt am: 05. Aug. 2016 16:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für DocTape 10 Unities + Antwort hilfreich

Sowas hier?
Seitenlayout - Designs - Farben

(via http://www.herber.de/forum/archiv/1236to1240/1237421_Excel2010_induvidialisei  rte_Farbpalette.html )

------------------
http://www.din1055.de"   |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Thomas Harmening
Moderator
Arbeiter ツ




Sehen Sie sich das Profil von Thomas Harmening an!   Senden Sie eine Private Message an Thomas Harmening  Schreiben Sie einen Gästebucheintrag für Thomas Harmening

Beiträge: 2897
Registriert: 06.07.2001

Das Innerste geäussert
und aufs Äusserste verinnerlicht

erstellt am: 05. Aug. 2016 18:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für DocTape 10 Unities + Antwort hilfreich

Nimm eine blau getönte Brille :-)

Da ich selber kaum Farben verwende (max die Standard Vorgaben (Ausgabe, berechnung etc.)) kann ich manuell nichts beisteuern.


Was ich mir aber Vorstellen kann
per Vba den Befüllten Zellbereich in ein Array einlesen, den Farbwert auslesen,
Farbwert zwischenspeichern (extra tabellenblatt)
und neuen Farben zuweisen).
beim Speichern die alten Farbwerte wieder herstellen.

Code:
Sub Shadeofgrey()
Dim arrWerte()
Dim raZelle As Range
Dim lZaehler As Long
Dim lZaehler2 As Long

Application.ScreenUpdating = False

    With Worksheets("Tabelle1")
        For Each raZelle In Worksheets("Tabelle1").UsedRange
            If raZelle.Interior.ColorIndex = 6 Then
                ReDim Preserve arrWerte(0 To 2, 0 To lZaehler)
                arrWerte(0, lZaehler) = raZelle.Address
                arrWerte(1, lZaehler) = raZelle.Interior.Color

                raZelle.Interior.ColorIndex = 15
                lZaehler = lZaehler + 1
            End If
        Next raZelle
    End With
Application.ScreenUpdating = True

MsgBox ("habe fertig")
End Sub


Code:
Sub yellosubmarine()

Dim arrWerte()
Dim raZelle As Range
Dim lZaehler As Long
Dim lZaehler2 As Long

Application.ScreenUpdating = False

    With Worksheets("Tabelle1")
        For Each raZelle In Worksheets("Tabelle1").UsedRange
            If raZelle.Interior.ColorIndex = 15 Then
                ReDim Preserve arrWerte(0 To 2, 0 To lZaehler)
                arrWerte(0, lZaehler) = raZelle.Address
                arrWerte(1, lZaehler) = raZelle.Interior.Color
                raZelle.Interior.ColorIndex = 6
                lZaehler = lZaehler + 1
            End If
        Next raZelle
    End With
Application.ScreenUpdating = True

MsgBox ("habe fertig")
End Sub



Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz