Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
252to256
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dynamische Auswertung

Dynamische Auswertung
08.05.2003 11:10:25
Pscheuss
Hallo Excelspezies!

Seit einiger Zeit verfolgt mich folgendes Problem:

Ich möchte ein Macro erstellen welches Folgendes leisten soll:

1) Bewertungen (1-10) aus einer Seite (Formular) Auslesen
Es sollen 8 Eigenschaften bewertet werden mit Punkten zwischen 1 und 10)

Also:

A B

a 1-10
b 1-10
g 1-10

ist die Eingabe.

Das Makro soll diese Werte bei Betätigung eines Schalters "Auswerten" nehmen und in eine Auswertetabelle kopieren.

Anschließend sollen die Eingabefelder für weitere Eingaben wieder frei sein.

2) Auswertung:

Die aus der "Eingabe" kommenden Werte sollen in einer Zeile stehen:

A

a)1-10 zB: 3
b)1-10 zB. 4
..
g)1-10 zB. 8

Wenn nun die nächsten Zahlen kommen soll automatisch ein Mittelwert aus a-g (1-10) alt + a-g (neu)/n(anzahl der durchläufe) in eine feste Ergebnispalte geschrieben werden.

Diese Zahlenfolge würde immer größer werden..a1+a2+an
Wenn ich diese Zahlenfolge (jeder einzelne Wert) durch einen Zähler n=n+1 laufen lasse ergibt sich immer der aktuelle Mittelwert.

Leider kenne ich mich Exceltechnisch nicht aus..:-(

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Dynamische Auswertung
12.05.2003 18:24:46
Michael Rueth

Hallo Pscheuss

wenn Du in Tabelle1 in den Zellen A2:H2 Deine Eingaben machst, einen Commandbutton mit dem folgenden Code hinterlegst, müßte in Tabelle 2 das Ergebnis erscheinen.

Private Sub CommandButton1_Click()
Dim Tab2Row, AktTabelle
AktTabelle = ActiveSheet.Name
Sheets("Tabelle2").Activate
'Mittelwertfelder-Zusammenfassung eintragen
For i = 1 To 8
Sheets("Tabelle2").Cells(1, i).Value = "Mittelwert Eingabefeld " & i
Sheets("Tabelle2").Cells(2, i).FormulaR1C1 = "=Sum(R[1]C:R[65000]C)/count(R[1]C:R[65000]C)"
Next
'letzte Zeile in Tabelle2 suchen
ActiveSheet.Range("a1").SpecialCells(xlCellTypeLastCell).EntireRow.Range("a1").Activate
m1:
For i = 0 To 7
If Not IsEmpty(ActiveCell.Offset(0, i)) Then Tab2Row = ActiveCell.Row: GoTo m2
Next
ActiveSheet.Range("a" & ActiveCell.Row - 1).Activate
GoTo m1
'Werte übertragen und löschen
m2:
For i = 1 To 8
Sheets("Tabelle2").Cells(Tab2Row + 1, i) = Sheets("Tabelle1").Cells(2, i)
Sheets("Tabelle1").Cells(2, i).Clear
Next
Sheets(AktTabelle).Activate
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige