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.

Excel-Beispiele zum Thema " Markierung von Text"

Legende eines Datenblattes einschließlich der Farbmarkierung		Markierung einer Datumsreihe gem. UserForm-TextBoxes
Markierung von Formeln über bedingte Formatierung		Markierung des jeweils aktuellen Datums
Markierung von Wochenenden		Markierung von Lotto-Treffern bei einer Tippgemeinschaft.
Zeitabhängige Zellmarkierungen über bedingte Formatierung setzen		Zahlenmarkierungen in einer Lottoliste