Excel VBA Summe von Bereich

[BoskoBiati]

Hi,

und schon wieder ein Brocken, der mit dem Original wohl nichts gemein hat...

Das Makro sucht z.B. in Spalte 49, die ist aber leer. Verarschen kann ich mich auch alleine. Liegt wohl am Fasching, Clown gefrühstückt......

[Terades]

Hi,

und schon wieder ein Brocken, der mit dem Original wohl nichts gemein hat...

Die Orginal Datei hat über 300 MB glaube nicht das sich das wer antun will da ist die Bsp. Datei doch angenehmer.

Allerdings müssten nur noch die Spaltennummern getauscht werden dann würde es auch bei der Orginaldatei laufen.

Aber passt schon ich bekomm das schon hin ist zu aufwendig, danke trotzdem!:)

[Wastl]

Hi,

die Beispieldatei scheint abgespeckt oder neu gestrickt zu sein, den letzten geposteten code finde ich nicht, und auch nicht die entsprechenden zellwerte dazu.

Bezogen auf das von dir gepostete Beispiel tut bei mir der Code

Code:

Sub wastl()
Dim i As Long
Dim Erg As Long
i = 1
With Tabelle3
   While .Cells(i, 1) <> ""
       If .Cells(i, 2) = "EEnd" Then
           .Cells(i, 4) = Erg
           Erg = 0
       Else
           Erg = Erg + Cells(i, 1)
       End If
   i = i + 1
   Wend
End With
End Sub

Wenn du unbedingt eine undimensionierte Schleife verwenden willst.

Ich denke aber, das Prinzip wird klar, ich muss keine Summenformel nachbauen, da VBA selber rechnen kann.

[BoskoBiati]

Hi,

Die Orginal Datei hat über 300 MB

Da ist dann wohl was oberfaul....

[Terades]

Hi,

die Beispieldatei scheint abgespeckt oder neu gestrickt zu sein, den letzten geposteten code finde ich nicht, und auch nicht die entsprechenden zellwerte dazu.

Bezogen auf das von dir gepostete Beispiel tut bei mir der Code

Code:

Sub wastl()
Dim i As Long
Dim Erg As Long
i = 1
With Tabelle3
   While .Cells(i, 1) <> ""
       If .Cells(i, 2) = "EEnd" Then
           .Cells(i, 4) = Erg
           Erg = 0
       Else
           Erg = Erg + Cells(i, 1)
       End If
   i = i + 1
   Wend
End With
End Sub

Wenn du unbedingt eine undimensionierte Schleife verwenden willst.

Ich denke aber, das Prinzip wird klar, ich muss keine Summenformel nachbauen, da VBA selber rechnen kann.

Sehr gut, genau das wollte ich eigentlich machen nur vermutlich viel zu Umständlich!

Vielen Dank!

[Wastl]

hab noch einen Fehler entdeckt

Code rechnet den Wert neben EEnd nicht ein

Code:

Sub wastl()
Dim i As Long
Dim Erg As Long
i = 1
With Tabelle3
   While .Cells(i, 1) <> ""
       If .Cells(i, 2) = "EEnd" Then
           Erg = Erg + Cells(i, 1)
           .Cells(i, 4) = Erg
           Erg = 0
       Else
           Erg = Erg + Cells(i, 1)
       End If
   i = i + 1
   Wend
End With
End Sub

nun passts