Markierung von Text

• Markierung von Text von Jens vom 23.09.2003 09:56:39
  • AW: Markierung von Text - von Nike am 23.09.2003 10:57:22
    • AW: Markierung von Text - von Jens K am 23.09.2003 11:35:12
      • AW: Markierung von Text - von Nike am 23.09.2003 11:54:22
        • AW: Markierung von Text - von Jens K am 23.09.2003 12:18:36

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

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




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.




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




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.

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