HERBERS Excel-Forum - die Beispiele

Thema: Werte aus jeder 20. Zeile ermitteln

Home

Gruppe

Funktion

Problem

Es sollen die Werte aus jeder 20. Zeile ermittelt werden.

Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
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 Funktion und INDIREKT

Copy funktioniert nur einmal Variables Dropdown über Indirekt()
Schreibschutz prüfen funktioniert nicht Split-Funktion beim Einlesen TXT-Datei
Match Funktion spinnt (?) SVerweis funktioniert nicht
PasteSpecial funktioniert nicht. VBA-Code funktioniert nicht mit anderem Office
Hilfe bei der INDEX Funktion Formel mit INDIREKT
MAX wenn mit Indirekt in Matrixformel Zelladressen von FunktionsParametern ermitteln
Matrixformel mit Summenfunktion Formel funktioniert nicht, SVerweis
Makro funktioniert nach Beenden von Excel nicht VLOOKUP auf Links funktioniert offline
@DAVID Zwei SUMMEWENN funktionen verknüpfen Zwei SUMMEWENN funktionen verknüpfen
Polynomfunktion Mit vba Funktionen in Excel Zellen
Rang-Funktion für Strings? Skript funktioniert nur auf einer seite?!?!
Hyperlink auf Excel-Datei funktioniert nicht indirekt(verketten.. + sverweis oder alternative
Public Funktion / Variabel VBA - Suchfunktion - Fehlermeldung
Benutzerdefinierte Funktion Userform mit Löschfunktion
Frage zu Wenn Dann Funktion Wenn-Funktion
Frage zur Funktion DISAGIO Funktion um Chart zu kreieren
Wenn-Funktion verschachtelt VBA Suchfunktion erweitern
Makro funktioniert nicht richtig zählenwenn-funktion mit mehreren kriterien
Funktion SVERWEIS Benutzerdefinierte Funktion in Open Office
Funktion Dezimal -> Zeit/ Variablen-Deklaration Probleme mit Textfunktionen
Fehler, wenn Variable in Funktion VBA-Funktion analog =ZELLE("Zeile")
Gültigkeit funktioniert nicht! Zellausrichtung funktioniert nicht
WENN-Funktion Hide-Funktion in einem Frame
bereichsnamen mit indirekt zusammensetzen Suchfunktion
Date Funktion Matrixformel mit Indirekt() oder welche Alternativ