Markierung von Text

Bild

Betrifft: Markierung von Text
von: Jens
Geschrieben am: 23.09.2003 09:56:39

Hallo zusammen,

ich benötige ienmal Eure Hilfe.

Ich habe in der Zelle A1 einen Text. Diesen möchte ich nun mit Hilfe von einem Makro makieren. Jedoch soll nicht die gesamte Zelle Markiert werden sondern nur der Text in der Zelle.

Diesen Tect möchte ich danach weiterverabeiten.

Wer kann mir helfen ?

Vielen Dank im voraus

Bild


Betrifft: AW: Markierung von Text
von: Nike
Geschrieben am: 23.09.2003 10:57:22

Hi,
einfach mal den Makrorekorder mitlaufen lassen,
dann kommt z.B. so was raus:


Sub Makro1()
    ActiveCell.FormulaR1C1 = "test"
    With ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "Arial"
        .FontStyle = "Standard"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=2, Length:=3).Font
        .Name = "Arial"
        .FontStyle = "Standard"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 3
    End With
    Range("A2").Select
End Sub


Das könnte man jetzt auch auf das Wesentliche reduzieren,
wenn man z.B. die Buchstaben nur rot haben möchte:


Sub Aenderung()
    With Range("A1").Characters(Start:=2, Length:=3).Font
        .ColorIndex = 3
    End With
End Sub


Was willst du denn machen?

Bye

Nike


Bild


Betrifft: AW: Markierung von Text
von: Jens K
Geschrieben am: 23.09.2003 11:35:12

Hallo

Vielen Dank für dein Hilfe,

ich möchte gerne den reinen Text in die Zwischenablage kopieren (mit Format) und danach diesen in Lotus Notes einsetzen.


Bild


Betrifft: AW: Markierung von Text
von: Nike
Geschrieben am: 23.09.2003 11:54:22

Hi,
wie wäre es dann einfach nur mit
Range("A1").Text

Bye

Nike


Bild


Betrifft: AW: Markierung von Text
von: Jens K
Geschrieben am: 23.09.2003 12:18:36

Hallo

Grünsätzlich schon. Jedoch bekomme ich bei Range ("A1").Text eine Fehlermeldung " Fehler beim Kompelieren / Verwendung einer Eigenschaft unzulässig"

Hast du dafür eine Lösung.

Leider wird auch bei der ersten Varriante von Dir der Text in eine anderen Zelle kopiert, diese sollte aber nicht passieren.


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Markierung von Text"