|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.11.2016 14:37:37 |
Conrad |
|
|
|
26.11.2016 22:16:11 |
Mackie |
|
|
|
27.11.2016 10:33:41 |
Gast34625 |
|
|
|
27.11.2016 11:12:29 |
Gast34625 |
|
|
 VBA: Blockweise Mittelwert bilden und in neue Tabelle |
27.11.2016 12:03:40 |
Mackie |
|
|
Von:
Mackie |
Datum:
27.11.2016 12:03:40 |
Views:
673 |
Rating:
|
Antwort:
|
Thema:
VBA: Blockweise Mittelwert bilden und in neue Tabelle |
|
Füge ein Active-X-Button (CommandButton1) auf deinem Basisblatt hinzu und ordne seinem Click-Ereignis diesen Code zu.
GGF musst Du den Code etwas modifizieren.
Private Sub CommandButton1_Click()
Arbeitsbl = "tblBasisdaten": Rem ich nehme mal an, so heisst dein Basisdatenblatt
Zielbl = "tblZieldaten": Rem ich nehme an, mal so heisst dein Zieldatenblatt
lastze = 30000: Rem letzte zeile
lastsp = 2: Rem letzte spalte
For spalte = 1 To lastsp
zielzeile = 0: Z = 0: Sum = 0
For zeile = 2 To lastze: Rem 50000
Z = Z + 1: Sum = Sum + Sheets(Arbeitsbl).Cells(zeile, spalte)
If Z = 6 Then
mitw = Sum / 6: zielzeile = zielzeile + 1
Sheets(Zielbl).Cells(zielzeile, spalte) = mitw
Z = 0: Sum = 0
End If
Next zeile
Next spalte
End Sub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
23.11.2016 14:37:37 |
Conrad |
|
|
|
26.11.2016 22:16:11 |
Mackie |
|
|
|
27.11.2016 10:33:41 |
Gast34625 |
|
|
|
27.11.2016 11:12:29 |
Gast34625 |
|
|
VBA: Blockweise Mittelwert bilden und in neue Tabelle |
27.11.2016 12:03:40 |
Mackie |
|
|