Ich schaffe es nicht den kopierten Bereich auf kursiv zu stellen
'Bemerkung Strom und Wasser
With Workbooks("Tempkalk.xlsm").Sheets("HUGO").Range("C19:C21")
.Value = .Value
End With
i = Workbooks("Tempkalk.xlsm").Sheets("HUGO").Range("C19:C21").Cells.Count
wksOfferte.Cells(iRowT, 3).Resize(i, 1).Value = Workbooks("Tempkalk.xlsm").Sheets("HUGO").Range("C19:C21").Value
Ich wäre dankbar für Hilfe