VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Nur Summenformel zur längsten Spalte eintragen

Gruppe

Allgemein

Bereich

Bereich

Thema

Nur Summenformel zur längsten Spalte eintragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bereich