Wie kann ich mehrere Zellen kursiv und unterstrichen formatieren
Mein Ansatz kann es ja nicht sein
'Formatierung Unterstreichen und Kursiv innerhalb Textblock
iRowT = wksOfferte.Cells(wksOfferte.Rows.Count, 3).End(xlUp).Row - 1
wksOfferte.Cells(iRowT, 3).Font.Italic = True
wksOfferte.Cells(iRowT, 3).Font.Underline = xlUnderlineStyleSingle
'Formatierung Unterstreichen und Kursiv innerhalb Textblock
iRowT = wksOfferte.Cells(wksOfferte.Rows.Count, 3).End(xlUp).Row - 4
wksOfferte.Cells(iRowT, 3).Font.Italic = True
wksOfferte.Cells(iRowT, 3).Font.Underline = xlUnderlineStyleSingle
Danke für eure Hilfe