Text per VBA verändern

Moin,

ich möchte den Text in einer Zelle verändert anzeigen lassen, dieses per VBA, aber mit einem VBA, was nicht vorher weiß, wie lang der Text sein wird

hier als Beispiel:

Sub TextStyle()

    ActiveCell.FormulaR1C1 = "abcdembotc" & Chr(10) & "(Hundestand)" 'hier würden zwei Variablen statt Wörter eingefügt werden

    With ActiveCell.Characters(Start:=1, Length:=10).Font

        .Name = "Arial"

        .FontStyle = "Fett"

        .Size = 11

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleSingle

        .ThemeColor = xlThemeColorLight1

        .TintAndShade = 0

        .ThemeFont = xlThemeFontNone

    End With

    With ActiveCell.Characters(Start:=11, Length:=12).Font

        .Name = "Arial"

        .FontStyle = "Kursiv"

        .Size = 10

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ThemeColor = xlThemeColorLight1

        .TintAndShade = 0

        .ThemeFont = xlThemeFontNone

    End With

End Sub

Es soll also in der Zelle oben das erste Wort stehen und darunter dann das andere Wort und beide mit einer anderen Formatierung.

Da die Wörter nicht immer die gleiche Länge haben, komme ich mit diesem Makro leider nicht weiter.

Weiß hier jemand ne Lösung?

Danke

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub TextStyle() Dim i As Integer ActiveCell.FormulaR1C1 = "abcdembotc" & Chr(10) & "(Hundestand)" 'hier würden zwei Variablen statt Wörter eingefügt werden 'Default-Einstellung für alles With ActiveCell.Font .Name = "Arial" .FontStyle = "Fett" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleSingle .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With 'Abweichende Einstellung für Zeile 2 i = InStr(1, ActiveCell.Value, Chr(10), vbTextCompare) If i > 0 Then With ActiveCell.Characters(Start:=i + 1, Length:=Len(ActiveCell.Value) - i).Font .FontStyle = "Kursiv" .Size = 10 .Underline = xlUnderlineStyleNone End With End If End Sub

dim Var1 as string dim Var2 as string Var1 = "abcdembotc" Var2 ="(Hundestand)" ActiveCell.value = Var1 & vbLF & Var2 With ActiveCell.Characters(Start:=1, Length:=Len(Var1)).Font .... End With With With ActiveCell.Characters(Start:=Len(Var1) + 2, Length:=len(Var2)).Font .... End with

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Text per VBA verändern

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread