Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Prozente berechnen > Beispieldatei im Anhang | Herbers Excel-Forum


Betrifft: Prozente berechnen > Beispieldatei im Anhang von: Joachim
Geschrieben am: 11.12.2009 13:02:32

Hallo,

ich habe folgendes Problem.

Ich habe eine Tabelle wo in Spalte A immer ein Hauptdatensatz (Plan) kommt und darunter jeweils Aufgaben zu dem jeweiligen Plan.

In der Spalte L hat jede AUFGABE ein Prozentwert. In jeden Hauptdatensatz soll nun aus den dazugehörigen AUFGABEN der durchschnitt errechnet werden.

Das funktioniert auch seither.

NUN soll mit einer Gewichtung gerechnet werden.

Ich habe das Problem in der anhängenden Excel-Mappe genau beschrieben.

https://www.herber.de/bbs/user/66523.xls

Danke für Eure Hilfe

Joachim

  

Betrifft: AW: Prozente berechnen > Beispieldatei im Anhang von: Chris
Geschrieben am: 11.12.2009 14:51:30

Private Sub CommandButton1_Click()

Dim a As Double
Dim b As Double

For i = [L65536].End(xlUp).Row To 2 Step -1

If Range("A" & i).Font.Bold = True Then
Range("L" & i) = a / b
a = 0
b = 0
Else
a = a + (Range("L" & i) * Range("K" & i))
b = b + Range("K" & i)
End If
Next i

End Sub



  

Betrifft: AW: Prozente berechnen > Beispieldatei im Anhang von: Chris
Geschrieben am: 11.12.2009 14:54:20

Die Spalte SUM kannst du dann übrigens wieder löschen.


  

Betrifft: Supi, Danke.... von: Joachim
Geschrieben am: 11.12.2009 15:02:48

Hi Chris,

danke,
mein erster Schnelltest sieht gut aus, genau so wollte ich es. Ich schau noch mal genau drüber.
Aber auf jeden Fall vielen Dank vorerst mal.

Joachim


Beiträge aus den Excel-Beispielen zum Thema "Prozente berechnen > Beispieldatei im Anhang"