Thema: Werte aus geschlossenen Arbeitsmappen einlesen

Home

Gruppe

Link

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

Defekter Link bei Forumsbeiträgen	Defekter Link bei Forumsbeiträgen
Defekter Link bei Forumsbeiträgen	Hyperlink per Code aktivieren, gibt Fehlerhinweis
Verlinkung Excel-Powerpoint	VBA Links im Verzeichnis auslesen
VLOOKUP auf Links funktioniert offline	xlDialogInsertHyperlink.show
Hyperlinks in Excel	Link ändert sich beim Sortieren
sverweis nach links möglich?	Grafik - Linie nach unten, Kriterien links
Bereich von rechts nach links auslesen?	Hyperlink auf Excel-Datei funktioniert nicht
Hyperlinks automatisch starten	Hyperlink zu Wordtabelle mit Textmarke
Userform. Link datei	Hyperlink variabel
Hyperlink - UserForm	Hyperlink öffnet Arbeitsmappe mit Parametern
Excel links auf seite	Mail mit Link und Parameter erzeugen
Links automatisch aus Zellen generien	Hyperlinks finden
Hyperlink zurückwandeln?	Hyperlink zurückwandeln?
Hyperlink zurückwandeln?	Hyperlink
Hyperlink als Button	Dateiname externer Datei ändern
Links to Other Workbooks - Nur wo?	Hyperlink öffnen - URL in Zelle
Hyperlink ... Verkürzung der Verzeichnisauswahl	Tabelle mit Link im Forum posten
Hyperlinks - Standardordner ändern	Tabellenblatt aus externer Exceldatei kopieren
Hyperlink	bestimmten Text blinken lassen
verlinkungen in markiertem bereich erneuern	Blinkender Kreis nach Zahl in Zelle?
Daten aus Zellen autom. nach Links verschieben	Hyperlink
ConboBox mit externe Daten füllen	gutes WORD-Forum, Link?
Hyperlinks	Set oWS = oWB.Worksheets(Range("link").Parent.Name
Hyperlink	TEIL/RECHTS/LINKS
Prüfen ob Hyperlink