e_zeil = Cells(1, "G").End(xlDown).Row
beginn = Cells(e_zeil + 1, "G").End(xlDown).Row
Ende = Cells(beginn + 1, "G").End(xlDown).Row
Cells(Application.WorksheetFunction.Max(Cells(Rows.Count, 7).End(xlUp).Row + 4, 1), 7) = _
WorksheetFunction.Sum(Range(Cells(beginn, "G"), Cells(Ende, "G")))
Bei diesem Code erhalte ich eine Summe. Wie kann ich diese fettgedruckt machen?
ActiveCell.Font.Bold = True klappt leider nicht, möchte mich auf diese Zelle beziehen, in der die Summe steht
Vielen Dank im Voraus