Gruppe
Allgemein
Problem
In der per VBA in Zelle G1 einzutragenden Summenformel soll die Spalte variabel gehalten werden. Es ist immer die Spalte zugrundezulegen, die die meisten Einträge enthält.
StandardModule: Modul1
Sub VariableSum()
Dim iCol As Integer, iAct As Integer, iCount As Integer
For iCol = 1 To 3
If WorksheetFunction.CountA(Columns(iCol)) > iCount Then
iCount = WorksheetFunction.CountA(Columns(iCol))
iAct = iCol
End If
Next iCol
Range("G1").Formula = "=SUM(R1C" & iAct & ":R65536C" & iAct & ")"
End Sub