Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wieder so ne krumme Aufgabe :-( ...

Forumthread: Wieder so ne krumme Aufgabe :-( ...

Wieder so ne krumme Aufgabe :-( ...
Joachim
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Wieder so ne krumme Aufgabe :-( ...
13.11.2009 09:25:08
Oberschlumpf
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
Anzeige
Ja, hilft super :-) Danke owT
13.11.2009 11:16:06
Joachim
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige