Excel VBA Summe von Bereich

[Terades]

Hallo zusammen,

ich möchte mir über VBA die Summe eines variablen Bereiches auswerten Lassen. Und zwar habe ich mir ein Marco geschrieben, welches bestimmte Ereignisse nummerriert.

Jetzt möchte ich über VBA die Summe bilden von jeder 0 bis zur nächsten 0.

Bsp:

0    2
1    3
2    5    x
0    1
1    3    x
0    2

Da sollte als erstes eine 10 Rauskommen, dann eine 4 usw.

Die Zahl kann dann ruhig immer an der Letzten Zeile vor der nächsten 0 stehen. (wie das x)

VBA deswegen: Hab die andere Lösung schon (mithilfe dieses Forums) aber da es zum teil sehr viele Daten sind ist VBA einfach die bessere Lösung denke ich.

Vielen Dank!:)

[Klaus-Dieter]

Hallo,

Und zwar habe ich mir ein Marco geschrieben, welches bestimmte Ereignisse nummerriert.

warum zeigst du uns das nicht? Da kann man sicher drauf aufbauen.

[Terades]

Code:

Sub RollenwechselProAuftragZählen()
  Dim rngTreffer As Range
  Dim lngC As Long
  Dim strAdresse As String
  Dim alteAdresse As String
 
  With Worksheets("Tabelle2")
     .Columns(66).ClearContents
     
     Set rngTreffer = .Columns(21).Find("RollenWechsel", LookIn:=xlValues, lookat:=xlWhole)
     
     If Not rngTreffer Is Nothing Then
       
        strAdresse = rngTreffer.Address
        alteAdresse = rngTreffer.Address

        Do

           If rngTreffer.Offset(0, -11) <> Range(alteAdresse).Offset(0, -11) Then
              lngC = 0
           End If
           
           alteAdresse = rngTreffer.Address
           
               lngC = lngC + 1
              .Cells(rngTreffer.Row, 66) = lngC
           Set rngTreffer = .Columns(21).FindNext(rngTreffer)
        Loop While rngTreffer.Address <> strAdresse
     End If
     
  End With
 
  Call Jobwechsel
 
End Sub


Sub Jobwechsel()
  Dim rngTreffer As Range
  Dim lngC As String
  Dim strAdresse As String
  Dim alteAdresse As String
 
  With Worksheets("Tabelle2")

     Set rngTreffer = .Columns(49).Find("*", LookIn:=xlValues, lookat:=xlWhole)
     
     If Not rngTreffer Is Nothing Then
       
        strAdresse = rngTreffer.Address
        alteAdresse = rngTreffer.Address

        Do

           If rngTreffer.Offset(0, 0) <> Range(alteAdresse).Offset(0, 0) Then
              lngC = 0
             .Cells(rngTreffer.Row, 66) = lngC
           End If
           
           alteAdresse = rngTreffer.Address
           
           lngC = lngC

           Set rngTreffer = .Columns(49).FindNext(rngTreffer)
        Loop While rngTreffer.Address <> strAdresse
     End If
     
  End With
 
End Sub

PS: Bin kein Profi also ist bestimmt nicht gerade schön gelöst, habt nachsicht. :)

[Fennek]

Hallo,

mit VBA ginge es mit columns(3).specialcells(4).areas

Da die Formelspezialisten aber hier eine Lösung anbieten bevor ich auch nur den ersten Test machen kann, werde ich keine lauffähigen Code posten.

mfg

[BoskoBiati]

Hi,

warum müssen es immer Makros sein? Das geht doch mit Formeln viel einfacher. Leider stellst Du hier nur Brocken vor, damit kann man sich kein Bild machen von dem, was Du fabrizierst.

[Terades]

Hi,

warum müssen es immer Makros sein? Das geht doch mit Formeln viel einfacher. Leider stellst Du hier nur Brocken vor, damit kann man sich kein Bild machen von dem, was Du fabrizierst.

Hallo BoskoBiati

also mit Formeln hab ich das soweit hinbekommen (mit Hilfe)

Code:

=WENNFEHLER(SUMME(INDEX(BF:BF;KKLEINSTE(WENN($U$1:$U$10001="Rollenwechsel";ZEILE($U$1:$U$10001);"N");ZEILE(U85))):INDEX(BF:BF;KKLEINSTE(WENN($U$1:$U$10001="Rollenwechsel";ZEILE($U$1:$U$10001);"N");ZEILE(U86))-1));"")

Das klappt dann auch, allderings wenn ich was ändere berechnet er ständig die Tabelle neu was zu Problemen führt. ::(

Darum dachte ich mach ich das mit VBA das ich das nur bei bedarf durch laufen lasse.

Aber vlt ist das ja auch sinnlos. :(

[BoskoBiati]

Hi,

allderings wenn ich was ändere berechnet er ständig die Tabelle neu was zu Problemen führt.

aber nicht wegen dieser Formel! Deswegen sage ich ja, Du doktorst da rum, ohne zu wissen, was passiert. Wir wissen es auch nicht, da Du immer nur Brocken vorstellst

[Terades]

Ok habe jetzt mal meinen Aktuellen Stand als Beispieldatei erstellt.

Hier die Datei:

Achtung: Die findet irgendwie noch kein Ende und sucht im Kreis.. Also ist der Ansatz so schonmal ok? Denke so in etwa könnte das klappen. :)

[Klaus-Dieter]

Hallo,

das scheint mir alles etwas unausgegoren zu sein. Die Begriffe EEnd und Start setzt du von Hand?

[Terades]

Hallo,

das scheint mir alles etwas unausgegoren zu sein. Die Begriffe EEnd und Start setzt du von Hand?

Ja so ganz Optimal ist das bestimmt nicht, das denke ich mir auch ist viel Stückwerk.

Die erstelle ich über ein Makro.

Code:

Sub Jobwechsel()
  Dim rngTreffer As Range
  Dim lngC As String
  Dim strAdresse As String
  Dim alteAdresse As String
 
  With Worksheets("Tabelle2")

     Set rngTreffer = .Columns(49).Find("*", LookIn:=xlValues, lookat:=xlWhole)
     
     If Not rngTreffer Is Nothing Then
       
        strAdresse = rngTreffer.Address
        alteAdresse = rngTreffer.Address

        Do

           If rngTreffer.Offset(0, 0) <> Range(alteAdresse).Offset(0, 0) Then
              lngC = 0
             .Cells(rngTreffer.Row, 66) = lngC
             .Cells(rngTreffer.Row, 68) = "Start"
             
               If rngTreffer.Row > 2 Then
                   .Cells(rngTreffer.Row - 1, 68) = "EEnd"
               End If
               
           End If
           
           alteAdresse = rngTreffer.Address
           
           lngC = lngC

           Set rngTreffer = .Columns(49).FindNext(rngTreffer)
        Loop While rngTreffer.Address <> strAdresse
     End If
     
  End With
 
End Sub