Hallo zusammen, ich habe eine Arbeitsroutine die mir viel Zeit kostet , ich suche eine Formel / Makro der mir dabei hilft.
Ich hoffe ich werde es hinbekommen mit der Erklärung ! ich habe in der angehängten Datei einen Screenshot gemacht es erklärt mit Zeile und Spalten was das Vorhaben ist .
DEN DURCHNITTSWERT ERRECHNEN:
SPALTE "A " GLEICHE WERT FINDEN -- DURCHNITT (B8:B9) ERRECHNEN DANN " NACH RECHTS ZIEHEN UM DEN DURCHNITT FÜR DIE 3 ZEILEN ZU HABEN DANACH KOPIEREN NACH ( B8:C8:C9 ) ZIEL IST DANN NUR EINE ZEILE ZU LASSEN MIT EINEM WERT ANDERE ZEILEN LÖSCHEN
Hallöchen,
darf's auch was mit Formeln sein?
Hier mal das Prinzip. Mit der Funktion TEILERGEBNIS kannst Du auch Mittelwerte berechnen. Du filterst die Datenspalten, TEILERGENIS bringt Dir die Mittelwerte, und dann kopierst Du die Daten z.B. auf ein anderes Blat.
Wenn es um viele Daten geht, könnte man das per VBA auf die gleiche Art und Weise lösen. Code für eine Zahl aufzeichnen, eine Schleife und noch ein paar Zeilen drumherum programmieren. Bei Wenigen Daten ist das manuell auch fix "gefiltert"...
(16.07.2015, 15:08)schauan schrieb: [ -> ]Hallöchen,
darf's auch was mit Formeln sein?
Hier mal das Prinzip. Mit der Funktion TEILERGEBNIS kannst Du auch Mittelwerte berechnen. Du filterst die Datenspalten, TEILERGENIS bringt Dir die Mittelwerte, und dann kopierst Du die Daten z.B. auf ein anderes Blat.
Wenn es um viele Daten geht, könnte man das per VBA auf die gleiche Art und Weise lösen. Code für eine Zahl aufzeichnen, eine Schleife und noch ein paar Zeilen drumherum programmieren. Bei Wenigen Daten ist das manuell auch fix "gefiltert"...
Hi Schauan, natürlich darf es auch mit formeln sein, es sind nicht viele daten maximum ca. 200 zeilen
Hallo,
Formeln brauchen aber separate Zellen!
Hallöchen,
so könnte das mit dem Filtern aussehen. Du musst nur vor dem Filtern die kompletten Spalten A:D markieren. In Deiner Datei wurde nur der obere Bereich bis zur ersten Leerzeile gefiltert.
Die Ergebnisse in E:H kopierst Du irgendwo hin. Wenn Du alle Zahlen durch hast, kannst Du die Daten in A:D löschen und dann die Ergebnisse dort hin übertragen.
Man könnte aber auch statt der Filterlösung den Bereich E:H per Formel füllen. Die Daten aus Spalte A kann man per Formel ohne Duplikate in Spalte E eintragen und anschliessend die zugehörigen Mittelwerte berechnen. Das wird aber bei mir heute nichts mehr, eventuell schiebt Edgar die entsprechende Lösung nach. Ich könnte mir dann morgen Abend noch was mit VBA einfallen lassen ;-) wenn bis dahin nicht auch schon jemand schneller war.
| Arbeitsblatt mit dem Namen 'Sheet1' |
| | A | B | C | D | E | F | G | H |
| 1 | GD | % W | % D | % L | -53 | 8,333333 | 27,77778 | 63,88889 |
| 2 | -53 | 8,333333 | 27,77778 | 63,88889 | | | | |
| Zelle | Formel |
| E1 | =TEILERGEBNIS(4;A:A) |
| F1 | =TEILERGEBNIS(1;B:B) |
| G1 | =TEILERGEBNIS(1;C:C) |
| H1 | =TEILERGEBNIS(1;D:D) |
| Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg |
(16.07.2015, 21:08)schauan schrieb: [ -> ]so könnte das mit dem Filtern aussehen. Du musst nur vor dem Filtern die kompletten Spalten A:D markieren. In Deiner Datei wurde nur der obere Bereich bis zur ersten Leerzeile gefiltert.
Die Ergebnisse in E:H kopierst Du irgendwo hin. Wenn Du alle Zahlen durch hast, kannst Du die Daten in A:D löschen und dann die Ergebnisse dort hin übertragen.
Man könnte aber auch statt der Filterlösung den Bereich E:H per Formel füllen. Die Daten aus Spalte A kann man per Formel ohne Duplikate in Spalte E eintragen und anschliessend die zugehörigen Mittelwerte berechnen. Das wird aber bei mir heute nichts mehr, eventuell schiebt Edgar die entsprechende Lösung nach. Ich könnte mir dann morgen Abend noch was mit VBA einfallen lassen 
wenn bis dahin nicht auch schon jemand schneller war.
Hallo Schauan, danke für die ausführliche erkläung, ich habe das erste Teil wie Du es beschrieben hast probiert , das ergebnis ist nicht korrekt, sicher es liegt an meiner Unerfahrenheit mit Excel.(Die Daten aus Spalte A kann man per Formel ohne Duplikate in Spalte E eintragen und anschliessend die zugehörigen Mittelwerte berechnen) es hört sich gut an klar ich werde warten bis Du bischen Zeit hast , es wäre super wenn du ein Beispiel in meiner angehängter Datei einträgst , rest werde ich dann für den restlichen Zeilen machen, vielen Dank
Hallo,
1. Leerzeilen löschen.
2. Spalte A Filtern ohne Duplikate nach F2
3. Formel in G2 eintragen und nach rechts und unten ziehen:
| Arbeitsblatt mit dem Namen 'Sheet1' |
| | A | B | C | D | E | F | G | H | I |
| 1 | GD | % W | % D | % L | | | | | |
| 2 | -53 | 8,333333 | 27,77778 | 63,88889 | | -53 | 8,33333 | 27,77778 | 63,88889 |
| 3 | -51 | 5,555556 | 25 | 69,44444 | | -51 | 5,55556 | 25,00000 | 69,44444 |
| 4 | -50 | 11,11111 | 25 | 63,88889 | | -50 | 11,11111 | 25,00000 | 63,88889 |
| 5 | -43 | 13,88889 | 22,22222 | 63,88889 | | -43 | 13,88889 | 22,22222 | 63,88889 |
| 6 | -42 | 19,44444 | 22,22222 | 58,33333 | | -42 | 19,44444 | 22,22222 | 58,33333 |
| 7 | -41 | 27,77778 | 25 | 47,22222 | | -41 | 27,77778 | 25,00000 | 47,22222 |
| 8 | -34 | 26,38889 | 12,5 | 61,11111 | | -34 | 8,33333 | 27,77778 | 63,88889 |
| 9 | -33 | 27,77778 | 16,66667 | 55,55556 | | -33 | 27,77778 | 16,66667 | 55,55556 |
| 10 | -32 | 22,22222 | 25 | 52,77778 | | -32 | 26,38889 | 18,05556 | 55,55556 |
| 11 | -32 | 30,55556 | 11,11111 | 58,33333 | | -31 | 20,83333 | 26,38889 | 52,77778 |
| 12 | -31 | 16,66667 | 30,55556 | 52,77778 | | -29 | 20,83333 | 30,55556 | 48,61111 |
| Zelle | Formel |
| G2 | =MITTELWERTWENN($A:$A;$F2;B:B) |
| H2 | =MITTELWERTWENN($A:$A;$F2;C:C) |
| I2 | =MITTELWERTWENN($A:$A;$F2;D:D) |
| Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg |
Mit einem einfachen Makro:
Code:
Option Explicit
Sub Mittelwert()
Dim loa As Long
Dim loB As Long
Dim loC As Long
Dim loLetzte As Long
Application.ScreenUpdating = False
loC = 2
loLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For loa = 2 To loLetzte
If Cells(loa - 1, 1) <> Cells(loa, 1) Then
Cells(loC, 6) = Cells(loa, 1)
For loB = 7 To 9
Cells(loC, loB) = Application.WorksheetFunction.AverageIf(Range("A2:A" & loLetzte), Cells(loa, 1), Range("B2:B" & loLetzte))
Next
loC = loC + 1
End If
Next
Range("A1:D1").Copy Range("F1")
Columns("A:E").Delete
Application.ScreenUpdating = True
End Sub
(17.07.2015, 08:16)BoskoBiati schrieb: [ -> ]1. Leerzeilen löschen.
2. Spalte A Filtern ohne Duplikate nach F2
3. Formel in G2 eintragen und nach rechts und unten ziehen:
Hallo BoskoBiati, vielen Dank, es funktionniert einwandfrei super , ich wünsche euch allen ein schönes Wochenende.[/code]