Excel - Textfarbe aendern

Dieses Thema im Forum "Software" wurde erstellt von Taleung, 19. September 2004.

  1. Taleung

    Taleung New Member

    Servus,

    Ich habe eine Exceltabelle die einmal die Woche upgedated wird.
    Die neuen Daten sollen mit bestimmten Farbe (Rot, Gruen, Blau etc) geschrieben werden.
    Wo kann ich einstellen das die Textfarbe nicht schwarz sondern eine andere Farbe ist.
    Es ist nervig immer jeden Eintrag umfaerben zu muessen.

    Danke.....
     
  2. TomPo

    TomPo Active Member

    Die Schriftfarbe kann man ändern über das Menü "Format -> Zellen ..." oder über die Formatierungspalette. Einblenden lässt die sich über die Symbolleiste heisst glaube ich "Standard" (beim rübergleiten mit dem Mauszeiger über die einzelnen Buttons wird eine Info gezeigt).
    Man sollte aber zuvor die entsprechenden Zellen, deren Schriftfarbe man ändern möchte, auswählen/markieren.
    Beim updaten von Datenblättern sollte darauf geachtet werden, dass man dann auch nur die Daten importiert, ansonsten werden die Formatierungen übernommen, und dann sind die voreingestellten Schriftfarben wieder verschwunden.
    Oder die Tabelle, aus deren Daten importiert werden sollen, die Farben dementsprechend setzen. Dann bleiben auch die Farben erhalten.
     
  3. Fehler 3

    Fehler 3 New Member

    Über Menü: Format>Bedingte Formatierung, dann die Bedingungen und das Format der Zellen vorgeben.
     
  4. Taleung

    Taleung New Member

    Hier ist mein Problem.....Ich will vermeiden das die Zellen markieren muss.
    Sobald ich eine Zelle anklicke, zu schreiben anfange, soll der Text in der von mir vorgewaehlten Farbe erscheinen.

    :confused:
     
  5. swissorion

    swissorion meist auf'm MacSofa

    - ist nur ein bestimmter Teil der neuen Tabellen Texte einzufärben ?
    - ist nur der neue Text andersfarbig zu machen ?
    (jede Woche hat eine andere Farbe)
    - ist die neue Textfarbe von etwas abhängig oder willkür ?

    ich denke, da an eine Lösung mit Makro, welches beim Tabellenstart im Hintergrund abläuft oder aber mit klickbaren Knöpfen die du nach Lust und Laune zum Text einfärben verwenden könntest.
     
  6. Taleung

    Taleung New Member

    @swissorion

    Du hast den Nagel auf den Kopf getroffen. Farbe spielt keine Rolle, solang sie sich von der vorherigen Woche unterscheidet.

    Und wie mach ich so einen Macro?:confused:
     
  7. swissorion

    swissorion meist auf'm MacSofa

    Also die Farbe spielt keine Rolle.
    Trifft dies nun auf alle Daten der Tabelle zu oder
    nur auf die neu hinzugefügten ?
    Hier ein Makro fürs ändern der ganzen Tabelle.
    **************
    Sub FarbigeSchrift()
    '
    ' FarbigeSchrift Makro
    ' Makro am 20.09.2004 von Swissorion aufgezeichnet
    '

    '
    Cells.Select
    With Selection.Font
    .Name = "Verdana"
    .FontStyle = "Standard"
    .Size = 10
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
    .ColorIndex = 4
    End With
    Range("B7").Select

    End Sub
    ************************
    Am einfachsten erstelltst du ein Makro:
    Menu: Extras/Makro/Aufzeichnen
    Namen vergeben und Ok klicken
    Dann die schritte machen, welche du möchtest
    (alles wird im Hintergrund aufgezeichnet.)
    Wenn du fertig bist, den blauen viereckigen
    Button klicken und du kannst dir das Makro anschauen.
    Nun könntest du noch für jede Farbe einen Button Zeichnen. dann mit der rechten Maustaste draufgehen und Makro zuweisen wählen.
    nun hast du das Makro auf Knopfdruck.
    für jede Farbe die du vermutlich alternierend pro Woche änderst ein button und Makro erstellen.
    mann kann das ganze sicherlich noch voll automatisieren z.B.
    Wenn Woche sowieso startet automatisch Makro A
    und macht den Text blau u.s.w.
    Aber da bin ich nun nicht mehr so fit das zu beschreiben.
     
  8. Taleung

    Taleung New Member

    Also des werd ich gleich morgen mal ausprobieren.

    Danke... Ich meld ich mich dann wieder!
     
  9. swissorion

    swissorion meist auf'm MacSofa

    Sub ganzfarbig()
    Cells.Select
    With Selection.Font
    .ColorIndex = 4
    End With
    Range("B7").Select

    End Sub
     

Diese Seite empfehlen