Freigeben über

excel beliebigen Text mit Tastenkombi einfärben

Anonym
2021-03-04T05:27:54+00:00

Hallo,

ich möchte einen beliebigen Text in Excel mit verschiedenen Tastenkombis, blau, rot, grün, schwarz einfärben.

Nach dem Erstellen von Makros, hüpft das Makro immer in die Zelle zurück mit der das Makro erstellt wurde.

Das Makro soll für alle beliebigen Texte innerhalb beliebiger Zellen funktionieren.

Bitte um Hilfe!

Gruß

Michael

Microsoft 365 und Office | Excel | Für Zuhause | Windows

Gesperrte Frage. Diese Frage wurde aus der Microsoft-Support-Community migriert. Sie können darüber abstimmen, ob sie hilfreich ist, aber Sie können keine Kommentare oder Antworten hinzufügen oder der Frage folgen.

0 Kommentare
Antwort, die vom Frageautor angenommen wurde
  1. Andreas Killer 144K Zuverlässigkeitspunkte Freiwilliger Moderator
    2021-03-24T11:04:14+00:00

    Wie kann nun noch ein ausgewählter Bereich (innerhalb einer Zelle) gefärbt werden?

    Gar nicht, denn wenn Du eine Zelle editierst, dann kannst Du keine Makros ausführen.

    Andreas.

    Eine Person fand diese Antwort hilfreich.
    0 Kommentare

7 zusätzliche Antworten

Sortieren nach: Am hilfreichsten
Am hilfreichsten Neueste Älteste
  1. Andreas Killer 144K Zuverlässigkeitspunkte Freiwilliger Moderator
    2021-03-04T08:02:48+00:00

    Lösche das Select weg und beziehe Dich auf ActiveCell.

    Andreas.

    0 Kommentare
  2. Anonym
    2021-03-24T10:39:42+00:00

    Hallo Andreas,

    besten Dank, es funktioniert! Wie kann nun noch ein ausgewählter Bereich (innerhalb einer Zelle) gefärbt werden? Ich meine damit nicht mehrere Zellen sondern innerhalb einer Zelle eine Beliebige Anzahl an Buchstaben/Zahlen/Sonderzeichen?

    Sub textRotFaerben()

    '

    ' textRotFaerben Makro

    '

    ' Tastenkombination: Strg+r

        With ActiveCell.Characters(Start:=0, Length:=-199).Font

            .Name = "Calibri"

            .FontStyle = "Standard"

            .Size = 11

            .Strikethrough = False

            .Superscript = False

            .Subscript = False

            .OutlineFont = False

            .Shadow = False

            .Underline = xlUnderlineStyleNone

            .Color = 255

            .TintAndShade = 0

            .ThemeFont = xlThemeFontNone

        End With

    End Sub

    0 Kommentare
  3. Anonym
    2021-03-24T12:05:07+00:00

    Hallo Michael,

    wenn es ein ganz bestimmter Textteil ist, der eingefärbt werden soll, kennst du ja seine Länge. Mit Instr kannst du dann in deinem Code die Startposition feststellen und beide Werte im Code eingeben.

    Claus

    0 Kommentare
  4. Anonym
    2021-03-24T12:25:23+00:00

    Hallo Claus,

    Den Text den ich einzufärben will, steht in beliebigen Zellen und beginnt immer an verschiedenen Stellen innerhalb der Zelle und ist beliebig lang. Ich möchte somit beliebige Teile von einem Text mit verschiedenen Farben hervorheben. Ähnlich wie in einem Buch, in dem man beliebig lange Passagen mit unterschiedlichen Farben markieren kann. Mit einer Lösung würdest Du mir helfen sehr viel Zeit einzusparen!

    Danke schon mal!

    Michael

    0 Kommentare