Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte aus geschlossenen Arbeitsmappen einlesen

Gruppe

Extern

Problem

Aus geschlossenen Arbeitsmappen mit den Arbeitsmappennamen 1.xls bis n.xls (gem. den Variablen in den Zellen B2:B3) sollen die in Zelle B5 angegebenen Bereiche aus den in Zelle B4 angegebenen Arbeitsblätten summiert werden.

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

StandardModule: Modul1

Sub SetSum()
   Dim dValue As Double
   Dim iCounter As Integer
   Dim sFormula As String, sPath As String
   sPath = Range("B1").Value
   If Right(sPath, 1) <> "\" Then
      sPath = sPath & "\"
   End If
   For iCounter = Range("B2").Value To Range("B3").Value
      sFormula = "'" & sPath
      sFormula = sFormula & "[" & iCounter & ".xls" & "]"
      sFormula = sFormula & Range("B4").Value & "'!"
      sFormula = sFormula & Range("B5").Value
      Range("C1").Formula = "=" & sFormula
      dValue = dValue + Range("C1").Value
   Next iCounter
   Range("C1").ClearContents
   Range("B6").Value = dValue
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Link und Extern