Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige