Zusammengesetzte Zellen formatieren

Hallo zusammen,
ich hätte eine weitere Frage zur teilweisen Formatierung von zusammengesetzten Zellen.
Mein Makro kopiert die Inhalte verschiedener Zellen aus mehreren Worksheets in eine Zelle. Dies funktioniert mittlerweile sehr gut, auch dank der Hilfe von letzter Woche (@Onur: vielen Dank!).
Hier ein Auszug:

~f~

Worksheets("Ziel").Range("A37").Value = Worksheets("Bausteine II").Range("A56") & " " & Trim(Worksheets("Meta").Range("C15").Text & " " & Worksheets("Bausteine II").Range("A57")
Worksheets("Ziel").Range("A38").Value = Worksheets("Bausteine II").Range("D57") & " " & Date + 14 & " " & Worksheets("Bausteine II").Range("A58")

~f~

Mein Ziel ist, dass zB. Trim(Worksheets("Meta").Range("C15").Text) dick und unterstrichen kopiert wird. Selbes soll für das Datum gelten, was sich noch schwieriger gestalten dürfte. :(
Mit dem Rekorder kann ich nur Zeichen zählen lassen. Das Problem ist, dass die Zahlenwerte nicht immer gleich sind. -> habe ich also zB eine vierstellige Zahl eingestellt, passt es für alle vierstelligen Zahlen. Kommt dann aber eine dreistellige oder gar eine fünfstellige Zahl, versagt das Makro und es kommt zu einer ungewollten Formatierung von Textteilen.
Hätte hier jemand eine Lösung?
Wie immer im Voraus vielen Dank für die Hilfe!
Mit den besten Grüßen
Christoph

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim lStart As Long, lLength With Worksheets("Ziel") With .Range("A37") .Value = Worksheets("Bausteine II").Range("A56") & " " & Trim(Worksheets("Meta").Range(" _ C15").Text) & " " & Worksheets("Bausteine II").Range("A57") With .Font .Underline = xlUnderlineStyleNone .Bold = False End With lStart = Len(Worksheets("Bausteine II").Range("A56") & " ") + 1 lLength = Len(Trim(Worksheets("Meta").Range("C15").Text)) With .Characters(Start:=lStart, Length:=lLength).Font .Underline = xlUnderlineStyleSingle .Bold = True End With End With With .Range("A38") .Value = Worksheets("Bausteine II").Range("D57") & " " & Format(Date + 14, "dd.mm.yyyy") _ & " " & Worksheets("Bausteine II").Range("A58") With .Font .Underline = xlUnderlineStyleNone .Bold = False End With lStart = Len(Worksheets("Bausteine II").Range("D57") & " ") + 1 lLength = Len(Format(Date + 14, "dd.mm.yyyy")) With .Characters(Start:=lStart, Length:=lLength).Font .Underline = xlUnderlineStyleSingle .Bold = True End With End With End With End Sub

Beliebteste Forumthreads (12 Monate)

Zusammengesetzte Zellen formatieren

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread