[REQ] Excel Macro

Seite 1 von 1 - Forum: Applications, Apps & Drivers auf overclockers.at

URL: https://www.overclockers.at/applications/req-excel-macro_242744/page_1 - zur Vollversion wechseln!

eitschpi schrieb am 23.04.2015 um 08:27

Habe eine Menge Excelsheets/kommaseparierte CSVs, die wie im Anhang aussehen. Eine variable Anzahl von Zeilen ist das Problem

Es ist in der letzten Zeile der Mittelwert der Spalte angegeben, danach kommt noch eine Leerzeile und das Sheet ist aus.

Jetzt bräuchte ich ein Macro, mit dem ich die Summe pro Spalte ausrechnen kann. Die Sheets sind aus einer Software exportiert, die das Berechnen kann aber nicht exportieren.

Kann man das mit einem Macro lösen, dass ich z.B. "SUMME(B:B)-B#letzterWert", weil das ja der Mittelwert ist und ich den nicht in der Summe brauche?

tia

wergor schrieb am 24.04.2015 um 08:54

Code:

Sub test1()    
    last_row = ActiveSheet.Cells(1048576, 1).End(xlUp).Row
    last_col = ActiveSheet.Cells(1, 16384).End(xlToLeft).Column
        
    For i = 0 To last_col - 1
        Dim formula As String
        
        'OFFSET(reference cell,
            'row offset from ref cell to start the range,
            'col offset to start the range, height of range you want,
            'width of range you want)
        formula = "=SUM(OFFSET(A1," & 1 & "," & i & "," & last_row - 2 & "," & 1 & "))"
        Cells(last_row + 2, i + 1).Value = formula
    Next
End Sub