With
Worksheets(blattname)
Kommentar = _
.<strong>Cells(1, 2).Value </strong>&
String
$(10,
" "
) & .<strong>Cells(1, 3).Value</strong> & Chr(10) _
& .Cells(Row, 2).Value &
String
$(12,
" "
) & .Cells(Row, 3).Value & Chr(10) & Chr(10) _
& .<strong>Cells(1, 9).Value </strong>&
String
$(20,
" "
) & .<strong>Cells(1, 4).Value </strong>& Chr(10) _
& .Cells(Row, 9).Value & .Cells(Row, 10).Value &
String
$(16,
" "
) & .Cells(Row, 4).Value & Chr(10) & Chr(10) _
& .<strong>Cells(1, 6).Value </strong>& Chr(10) & .Cells(Row, 6).Value & Chr(10) & Chr(10) _
& .<strong>Cells(1, 5).Value </strong>& Chr(10) & .Cells(Row, 5).Value & Chr(10) & Chr(10) _
& .<strong>Cells(1, 8).Value </strong>& Chr(10) & .Cells(Row, 8).Value & Chr(10) & Chr(10) _
& .<strong>Cells(1, 7).Value </strong>& 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: