Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Excel Mittelwert berechnen (VBA)
zurück: Reitturnier weiter: Zeilen Ausblenden mit Hilfe von Checkboxen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Tigerjenny
Im Profil kannst Du frei den Rang ändern


Verfasst am:
14. Okt 2013, 11:37
Rufname:

Excel Mittelwert berechnen (VBA) - Excel Mittelwert berechnen (VBA)

Nach oben
       Version: Office 2010

Hallo Leute,

leider stellt mich meine Idee vor ein größeres Problem als gedacht. Shock
Ich erstelle für meine Firma ein neues Beurteilungssystem, weil unser altes schlichtweg veraltet ist.

So schaut es bisher aus.




Durch Anklicken eines Feldes wird dort ein Kreuz gesetzt.
Wenn in einem "Bereich" schon ein Kreuz ist, wird das gelöscht und das Neue an die aktuell angeklickte Stelle gesetzt.

(logischerweise ist nur 1 Kreuz pro Bereich möglich)

das hab ich so gelöst:

VBA Code:

Code:
Set Bereich1 = Range("C9:H9")
    If Intersect(ActiveCell, Bereich1) Is Nothing Then

        Else
        Bereich1.ClearContents
        ActiveCell.Value = "X"
        End If



Mein Problem:

Ich möchte am Ende den Mittelwert aller abgegebenen Noten errechnen.
Wenn ein Feld nicht benotet wurde, soll das natürlich mit berücksichtigt werden und nicht mit eingehen.

Wie löse ich das in VBA?



-------------------------------------------------------------------------


Ich vermute ich brauche die variable counter, summe und mittelwert.
Wie mache ich per Code klar, dass wenn das X bei C9 gesetzt wurde, dass es ne 1 für diesen Bereich gab und wenn das X bei D11 steht, es dafür ne 2 gab.
Und wenn irgendwo eben gar nichts abgegeben wurde, der counter diesen Bereich nicht mitzählt und trotzdem am Ende ein genauer Mittelwert auf 2 nachkommstellen gerundet dabei heraus kommt?

Habe mir das ganze Wochenende schon das Hirn zermartert aber es scheitert an meinen nicht vorhandenen Programmierkünsten... >___< Embarassed

Bin für jede Art Hilfe dankbar!
Und für jede noch so kleine Erklärung dazu, noch dankbarer!

Gruß Jenny
steve1da
Moderator


Verfasst am:
14. Okt 2013, 11:41
Rufname:

AW: Excel Mittelwert berechnen (VBA) - AW: Excel Mittelwert berechnen (VBA)

Nach oben
       Version: Office 2010

Hola,

wenn schon VBA, dann auch im richtigen Forum Wink

Ich verschiebs mal fix.

Gruß,
steve1da
Tigerjenny
Im Profil kannst Du frei den Rang ändern


Verfasst am:
14. Okt 2013, 12:54
Rufname:


AW: Excel Mittelwert berechnen (VBA) - AW: Excel Mittelwert berechnen (VBA)

Nach oben
       Version: Office 2010

Also ich habs jetzt mal ganz Neandertaler-mäßig erst mal so versucht.


habe im public bereich ne Long Variable für summe erstellt.

Code:
Dim summe As Long


Und jetzt pro Bereich den ich deklariert habe folgendes geschrieben:

Code:
         If ActiveSheet.Cells(9, 3).Value = "X" Then
        a = 1
        End If
        If ActiveSheet.Cells(9, 4).Value = "X" Then
        a = 2
        End If
        If ActiveSheet.Cells(9, 5).Value = "X" Then
        a = 3
        End If
        If ActiveSheet.Cells(9, 6).Value = "X" Then
        a = 4
        End If
        If ActiveSheet.Cells(9, 7).Value = "X" Then
        a = 5
        End If
        If ActiveSheet.Cells(9, 8).Value = "X" Then
        a = 6
        End If
usw...


Und dann einen Button gemacht der mir eine Messagebox mit der summe ausgibt.

Code:
   
Sub SummeBerechnen()
 
summe = a + b
   
MsgBox summe
   
End Sub



Wie mach ich es jetzt dass er weiß wenn irgendein Buchstabe 0 (also gar nicht ausgewählt wurde) auch im Mittelwert nicht berücksichtigt wird?
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Tage mit Datum berechnen 1 mausi123 1082 17. Nov 2005, 09:16
< Peter > Tage mit Datum berechnen
Keine neuen Beiträge Excel Formeln: Mittelwert von absoluten Zahlen (Betrag) ?!? 8 derschroe 5648 12. Okt 2005, 15:14
derschroe Mittelwert von absoluten Zahlen (Betrag) ?!?
Keine neuen Beiträge Excel Formeln: Überstunden berechnen 1 Kaya001 2122 07. Aug 2005, 18:35
ae Überstunden berechnen
Keine neuen Beiträge Excel Formeln: Zeit und Stunden berechnen 2 power-user 4051 03. Aug 2005, 22:20
power-user Zeit und Stunden berechnen
Keine neuen Beiträge Excel Formeln: Preise berechnen 2 excelflasche 1010 18. Mai 2005, 08:19
excelflasche Preise berechnen
Keine neuen Beiträge Excel Formeln: Stunden berechnen 4 Blacksmithtwo 3129 25. Apr 2005, 17:18
Leeza Stunden berechnen
Keine neuen Beiträge Excel Formeln: Zeitdauer abzüglich Nachtzeit und Wochenende berechnen 1 sia 2216 19. Feb 2005, 13:59
Jeanie Zeitdauer abzüglich Nachtzeit und Wochenende berechnen
Keine neuen Beiträge Excel Formeln: Formel um die Wahrscheinlichkeit einer Menge zu berechnen 1 Martin209 881 22. Dez 2004, 07:34
xpecidy Formel um die Wahrscheinlichkeit einer Menge zu berechnen
Keine neuen Beiträge Excel Formeln: Pausenzeiten dynamisch berechnen und anzeigen 8 acki-bm 2213 07. Dez 2004, 18:19
Sanne Pausenzeiten dynamisch berechnen und anzeigen
Keine neuen Beiträge Excel Formeln: Anzahl bei 2 Bedingungen aus Tabelle berechnen 6 Satanico 1723 21. Okt 2004, 14:48
Satanico Anzahl bei 2 Bedingungen aus Tabelle berechnen
Keine neuen Beiträge Excel Formeln: Mittelwert aus mehr als 30 Argumenten berechnen 9 wirrwarr 1180 15. Okt 2004, 16:01
Arnim Mittelwert aus mehr als 30 Argumenten berechnen
Keine neuen Beiträge Excel Formeln: Dienstaltersstufe berechnen 2 linuxskipper 6971 19. Sep 2004, 17:00
linuxskipper Dienstaltersstufe berechnen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum