[REQ] Excel Macro

Print Page

eitschpi 23.04.2015 - 08:27 1701 1

Posts

eitschpi

alpakaflüsterer

Registered: Dec 2004
Location: eierbärhausen
Posts: 4363

23.04.2015 - 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

stb_203076.csv (downloaded 82x)

Bearbeitet von eitschpi am 23.04.2015, 08:41

wergor

connoisseur de mimi

Registered: Jul 2005
Location: graz
Posts: 4027

24.04.2015 - 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

Bearbeitet von wergor am 24.04.2015, 09:44

All times are GMT +1 hour. The time now is 13:27.

[REQ] Excel Macro

Forum Index > Software > Applications, Apps & Drivers

eitschpi

wergor