Makro: Summe bilden und in nächste freie Zelle
25.09.2023 14:29:49
Timo
erst einmal vielen Dank, ich konnte in diesem Forum schon sehr sehr viel Hilfe bekommen und habe eigentlich immer zu jedem Problem eine Lösung gefunden.
Dafür vielen Dank.
Zu folgendem Problem finde ich allerdings keine Lösung, oder zumindest keine, die funktioniert.
Eine Tabelle mit Umsätzen wird in Excel kopiert. Durch das Makro werden dann unnötige Spalten gelöscht und die Formatierung etwas angepasst. Dabei steht jeder Umsatz in einer eigenen Zeile. Es fehlt aber eine automatische Summenbildung.
Die zu addierenden Beträge stehen nach ausgeführtem Makro dann immer in Zeile "H".
Wie kann ich jetzt im Makro hinterlegen, dass unter dem letzten Umsatz eine Summe gebildet werden soll in Zeile "H". Die Menge der Umsätze variiert ja.
Vielen Dank vorab.
Das Makro ist folgendes:
Sub KS_Formatierung()
' Überflüssige Zeilen löschen
ActiveSheet.Columns("G:G").Delete
ActiveSheet.Columns("H:K").Delete
ActiveSheet.Columns("I:J").Delete
' Betrag auf EUR formatieren
ActiveSheet.Columns("H:H").Style = "Currency"
' Hyperlinks löschen
ActiveSheet.Cells.Activate
Selection.Hyperlinks.Delete
' Alles mittig setzen, Zeilenumbrüche entfernen
ActiveSheet.Cells.HorizontalAlignment = xlCenter
ActiveSheet.Cells.Activate
With Selection
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
' Spaltenbreite autom. anpassen
ActiveSheet.Cells.Activate
Selection.EntireColumn.AutoFit
' Spalte A auf Breite=16
ActiveSheet.Columns("A:A").ColumnWidth = 16
' Überschrift formatieren
Range("A1").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A1:H3").Select
Selection.Font.Bold = True
Range("C3").Select
ActiveCell.FormulaR1C1 = "Umsatz-Nr."
Range("A4").Select
End Sub