Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nur Summenformel zur längsten Spalte eintragen

Gruppe

Bereich

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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