Microsoft Excel

Herbers Excel/VBA-Archiv

Wieder so ne krumme Aufgabe :-( ... | Herbers Excel-Forum


Betrifft: Wieder so ne krumme Aufgabe :-( ... von: Joachim
Geschrieben am: 13.11.2009 08:29:14

HI,

ich habe eine Mappe mit einer Tabelle "Buchung". Darin sind am Zeile 6 daten drin.
IN Spalte A ist jeweils eine Hauptkategorie und darunter jeweils mehrere Aufgaben, die zur jeweiligen Hauptkathegorie gehören.

Alle Aufgaben haben in G eine Prozentangabe. Ich brauche nun in der Spalte G den Durchschnitt der jeweiligen Aufgaben.

Alle Hauptkathegoriene haben in A immer den gleichen Begriff, in meinem Beispiel "Einkauf"

Wie könnte man per Makro die erste Kathegorie ("Einkauf")ermitteln , dann in darunterliegenden Aufgaben den Durchschnitt in G errechnen und in die Kathegorie schreiben.

Dann zur nächsten usw.

Ich habe zum besseren verständniss ein Beispiel gemacht:

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

Danke Euch schon mal.
Joachim

  

Betrifft: AW: Wieder so ne krumme Aufgabe :-( ... von: Oberschlumpf
Geschrieben am: 13.11.2009 09:25:08

Moin Joachim

Versuch es mit diesem Makro, welches du in einem allgemeinen Modul speichern musst:

Sub sbMittel()

    Dim lloZeile As Long, lloAufg As Long, ldbProz As Double, liAnz As Integer
    
        For lloZeile = 6 To Cells(Rows.Count, 1).End(xlUp).Row
            If Range("A" & lloZeile).Value = "" Then Exit For
            If Range("A" & lloZeile).Font.Bold = True Then
                lloAufg = lloZeile + 1
                    Do While Range("A" & lloAufg).Font.Bold <> True And _
                                   Range("A" & lloAufg).Value <> ""
                        ldbProz = ldbProz + Range("G" & lloAufg).Value
                        liAnz = liAnz + 1
                        lloAufg = lloAufg + 1
                    Loop
                Range("G" & lloZeile).Value = ldbProz / liAnz
                liAnz = 0
                lloZeile = lloAufg - 1
                lloAufg = 0
                ldbProz = 0
            End If
        Next

End Sub
Hilfts?

Ciao
Thorsten


  

Betrifft: Ja, hilft super :-) Danke owT von: Joachim
Geschrieben am: 13.11.2009 11:16:06




Beiträge aus den Excel-Beispielen zum Thema "Wieder so ne krumme Aufgabe :-( ..."