Thema Datum  Von Nutzer Rating
Antwort
26.08.2016 13:37:45 susi
NotSolved
26.08.2016 13:38:55 susi
NotSolved
Rot Mittelwerte berehnen schleife
26.08.2016 16:48:13 Gast85296
NotSolved
26.08.2016 18:49:22 Gast61882
*****
Solved
26.08.2016 20:30:05 susi
NotSolved
26.08.2016 21:55:07 Gast85296
NotSolved
26.08.2016 22:01:38 Gast85296
NotSolved
26.08.2016 22:11:54 Gast85296
*****
Solved
27.08.2016 08:35:11 susi
NotSolved
13.09.2016 20:06:01 susi
NotSolved

Ansicht des Beitrags:
Von:
Gast85296
Datum:
26.08.2016 16:48:13
Views:
867
Rating: Antwort:
  Ja
Thema:
Mittelwerte berehnen schleife
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Also, das hier war das aufgezeichnete Makro...
 
Sub MW_berechnen()
'
 ' MW_berechnen Makro '
 Range("J2").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R2C6:R13C6)"
Range("J2").Select
Selection.AutoFill Destination:=Range("J2:J13"), Type:=xlFillDefault
Range("J2:J13").Select
Range("K2").Select
ActiveCell.FormulaR1C1 = "=RC[-5]/RC[-1]"
Range("K2").Select
Selection.AutoFill Destination:=Range("K2:K13"), Type:=xlFillDefault
Range("K2:K13").Select
 
End Sub

 

und das hier mein kläglicher Versuch, es für mehrere Zellen fortzusetzten. 

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub MW_berechnen()
'
Dim i As Integer
For i = 2 To 37 Step 12
Cells(i, 10).Select
'Die Werte für den Mittelwertstehen in Spalte F, Ausgabe in Spalte J
ActiveCell.FormulaR1C1 = "=AVERAGE(RiC6:Ri+11C6)"
Cells(i, 10).Select
Selection.AutoFill Destination:=Cells("i, 10:i + 11, 10"), Type:=xlFillDefault
Cells("i, 10: i+11, 10").Select
Cells(i, 11).Select
ActiveCell.FormulaR1C1 = "=RC[-5]/RC[-1]"
Cells(i, 11).Select
Selection.AutoFill Destination:=Cells("i, 11:i+11, 11"), Type:=xlFillDefault
Cells("i, 11:i+11, 11").Select
Next i
 
End Sub

 


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
26.08.2016 13:37:45 susi
NotSolved
26.08.2016 13:38:55 susi
NotSolved
Rot Mittelwerte berehnen schleife
26.08.2016 16:48:13 Gast85296
NotSolved
26.08.2016 18:49:22 Gast61882
*****
Solved
26.08.2016 20:30:05 susi
NotSolved
26.08.2016 21:55:07 Gast85296
NotSolved
26.08.2016 22:01:38 Gast85296
NotSolved
26.08.2016 22:11:54 Gast85296
*****
Solved
27.08.2016 08:35:11 susi
NotSolved
13.09.2016 20:06:01 susi
NotSolved