Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Ermittlung von Datenbank- und Array-Formelergebnissen per VBA

Gruppe

Vba

Problem

Über VBA sollen sowohl die Ergebnisse von Datenbank- wie auch Array-Formeln ermittelt und ausgegeben werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub DSumInVBA()
   Dim rngDataBase As Range
   Dim rngCriteria As Range
   Range("E3").Formula = "=dsum(a:b,""Wert"",c1:d2)"
   MsgBox Range("E3").Value
   Range("E3").ClearContents
End Sub

Sub DSumInArray()
   Range("J3").FormulaArray = _
      "=sum((a2:a100" & _
         Range("F2").Value & _
         CStr(CDbl(Range("G2").Value)) & _
         ")*(b2:b100" & Range("H2").Value & _
         Range("I2").Value & ")*b2:b100)"
   MsgBox Range("J3").Value
   Range("J3").ClearContents
End Sub