|
Hallo Gast,
vielen Dank für die Antwort. Der Tip mit der String-Funktion und die "with Worksheets"-Methode machen den Code deutlich besser lesbar. Leider funktioniert ihr tip so nicht ganz. Mit dem Vorschlag würde der ganze Inhalt des Kommentars formatiert. Dies sollte so aber nicht sein. Es sollen nur Teile des Kommentars formatiert werden.
Die in dem Code dick markierten Teile sollen formatiert werden der Rest soll als Standard im Kommentar drin stehen (siehe Beispiel unten)
With Worksheets(blattname)
Kommentar = _
.Cells(1, 2).Value & String$(10, " ") & .Cells(1, 3).Value & Chr(10) _
& .Cells(Row, 2).Value & String$(12, " ") & .Cells(Row, 3).Value & Chr(10) & Chr(10) _
& .Cells(1, 9).Value & String$(20, " ") & .Cells(1, 4).Value & Chr(10) _
& .Cells(Row, 9).Value & .Cells(Row, 10).Value & String$(16, " ") & .Cells(Row, 4).Value & Chr(10) & Chr(10) _
& .Cells(1, 6).Value & Chr(10) & .Cells(Row, 6).Value & Chr(10) & Chr(10) _
& .Cells(1, 5).Value & Chr(10) & .Cells(Row, 5).Value & Chr(10) & Chr(10) _
& .Cells(1, 8).Value & Chr(10) & .Cells(Row, 8).Value & Chr(10) & Chr(10) _
& .Cells(1, 7).Value & Chr(10) & .Cells(Row, 7).Value
End With
Ich versuch dies mal mit einem Bsp. darzustellen:
Inhalt .Cells(1,2).Value = Tag --- Inhalt .Cells(Row,2).Value = 20.05.2014
So soll jetzt der Kommentar aussehen:
Tag
20.05.2014
Inhalt aus Cells(1,2) formatiert dick und unterstrichen, Inhalt aus Cells(Row,2) Standard.
Vielen Dank
|