Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schleifen

Forumthread: Schleifen

Schleifen
10.01.2005 16:36:30
Jan
Ahoi an alle VBA-Profis,
ich habe wiedermal ein Problemchen. Ich will mit Hilfe einer For-Next-Schleife einen Gesamtrauminhalt mehrerer Räume errechnen. In der Spalte C stehen in unregelmäßigen Abständen die Flächen der Räume. In der Spalte M stehen in den gleichen Abständen (in der selben Zeile wie die Raumfläche) die dazugehörigen Raumhöhen. Die Schleife soll die Zeilen 5 bis 20 durchlaufen.
Der Ablauf für die Schleife müsste also lauten:
Wenn in der Spalte C ein Wert steht, dann nimm diesen Wert und multipliziere ihn mit der Raumhöhe (Spalte M), die in der selbe Zeile steht.
Addiere dieses Produkt mit den Produkten aus den nächsten Zeilen.
Vielen Dank sagt Jan
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleifen
HerbertH
probier das:


Public Sub ges_rauminh()
Dim i%, s As Double, sGes As Double
  For i = 1 To 20
    If Cells(i, 3) > 0 Then
        s = Cells(i, 3) * Cells(i, 13)
        sGes = sGes + s
     End If
  Next
  
[p20] = sGes
End Sub

     gruß Herbert
Anzeige
AW: Schleifen
PeterW
Hallo Jan,
ohne Zwischenergebnisse geht das dann also so:

Sub Rauminhalt()
Dim iCount As Integer
Dim dblRauminhalt As Double
For iCount = 5 To 20
If Not IsEmpty(Cells(iCount, 3)) Then
dblRauminhalt = dblRauminhalt + Cells(iCount, 2) * Cells(iCount, 13)
End If
Next
MsgBox dblRauminhalt
End Sub

Gruß
Peter
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige