Thema Datum  Von Nutzer Rating
Antwort
Rot VBA: Blockweise Mittelwert bilden und in neue Tabelle
 23.11.2016 14:37:37 Conrad
NotSolved
26.11.2016 22:16:11 Mackie
NotSolved
27.11.2016 10:33:41 Gast34625
NotSolved
27.11.2016 11:12:29 Gast34625
NotSolved
27.11.2016 12:03:40 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Conrad		 Datum:
23.11.2016 14:37:37		 Views:
1038		 Rating:
     
Antwort:
  Ja
Thema:
VBA: Blockweise Mittelwert bilden und in neue Tabelle

Hallo zusammen,

ich komme bei meinem Problem leider nicht weiter.
Ich muss aus einer Tabelle mit mehreren Spalten und etwas 30.000 Zeilen, alle 6 Zeilen einen Mittelwert bilden. Diesen würde ich dann anschließend gerne in ein neues Tabellenblatt schreiben lassen, sodass eine "kompimierte Tabelle" entsteht. Bei dem Versuch habe ich Testweise nur eine Spalte genommen, soll aber generell für mehrere laufen.

Sub Mittelwert()
    
    Dim wksArbeitsblatt As Worksheet
    Dim wksZielblatt As Worksheet
    Dim rngBereich As Range
    Dim dblMittelwert As Double
    Dim dblZelleRowZielblatt As Double
    Dim lngZelleRowArbeitsblatt As Long
    
    Set wksArbeitsblatt = tblBasisdaten
    Set wksZielblatt = tblZieldaten
    Set dblZelleRowZielblatt = ActiveWorkbook.wksZielblatt.Cells.Row
    Set lngZelleRowArbeitsblatt = ActiveWorkbook.wksArbeitsblatt.Cells.Rows
    Set rngBereich = wksArbeitsblatt.Range(wksArbeitsblatt.Cells(lngZelleRowArbeitsblatt, 1), _
        wksArbeitsblatt.Cells(lngZelleRowArbeitsblatt + 5, 1))
    
        With dblZelleRowZielblatt = 1
        
        For lngZelleRowArbeitsblatt = 2 To 50000 Step 6
            
            dblMittelwert = Application.WorksheetFunction.AverageIf(rngBereich, ">0")
            wksZielblatt.Cells(dblZelleRowZielblatt, 1) = dblMittelwert
            dblZelleRowZielblatt = dblZelleRowZielblatt + 1
        Next lngZelleRowArbeitsblatt
        
                   
        End With
        
        

        
End Sub



Vielen Dank

mfG

Conrad

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA: Blockweise Mittelwert bilden und in neue Tabelle
 23.11.2016 14:37:37 Conrad
NotSolved
26.11.2016 22:16:11 Mackie
NotSolved
27.11.2016 10:33:41 Gast34625
NotSolved
27.11.2016 11:12:29 Gast34625
NotSolved
27.11.2016 12:03:40 Mackie
NotSolved