Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1320to1324
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1320to1324
1320to1324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte aus dynamischer Liste berechnen ...

Werte aus dynamischer Liste berechnen ...
28.06.2013 09:11:43
Karsten
Hallo liebe Excel-Experten,
dies ist mein erster Post, daher möchte ich zunächst einmal HALLO sagen
Ich habe ein Problem, welches ich gerne in VBA lösen möchte.
Userbild
Ich habe eine dynamische Liste in den Spalten B, C und D. Die Spalten sind fix, jedoch ist die Anzahl der Zeilen dynamisch, die Struktur der Spalte C bleibt jedoch fix. D.h., wenn in Spalte B ein mögliches Element hinzukommt, dann hat dieses Element in Spalte C wieder die Werte TEST 1 bis TEST 4.
Was ich jetzt tun möchte, ist unabhängig von der Länge der Liste, alle Werte für TEST 1 aufzusummieren und als Ergebnis in die Spalte G4 zu schreiben. Für TEST 2 (Zelle G5) möchte ich alle TEST 2 Werte aufsummieren und durch die Summe aller TEST 1 Werte dividieren. Analog dazu die Werte für TEST 3 und TEST 4, jeweils als Summe durch die Summe von TEST 1 dividiert. Wenn jedoch die Struktur TEST 1 bis TEST 4 nur einmal vorkommt, möchte ich die Werte 1:1 in die Ergebnisspalte (G4:G7) übernehmen.
Könnte mir bitte jemand einen Tip geben, wie ich das machen könnte?
Vielen lieben Dank im Vorraus,
Karsten

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus dynamischer Liste berechnen ...
28.06.2013 09:35:29
Rudi
Hallo,
wozu VBA? Geht doch auch einfachst mit Formeln. 
Sub Karsten()
Range("G4") = WorksheetFunction.SumIf(Range("C:C"), Range("F4"), Range("D:D"))
Range("G5") = WorksheetFunction.SumIf(Range("C:C"), Range("F5"), Range("D:D")) / _
IIf(WorksheetFunction.CountIf(Range("C:C"), Range("F4")) > 1, Range("G4"), 1)
Range("G6") = WorksheetFunction.SumIf(Range("C:C"), Range("F6"), Range("D:D")) / _
IIf(WorksheetFunction.CountIf(Range("C:C"), Range("F4")) > 1, Range("G4"), 1)
Range("G7") = WorksheetFunction.SumIf(Range("C:C"), Range("F7"), Range("D:D")) / _
IIf(WorksheetFunction.CountIf(Range("C:C"), Range("F4")) > 1, Range("G4"), 1)
End Sub

Gruß
Rudi

Anzeige
AW: Werte aus dynamischer Liste berechnen ...
28.06.2013 10:09:31
Karsten
Hallo Rudi,
vielen Dank, funktioniert perfekt. Hätte nicht gedacht, dass das so einfach ist :)
Kann man sowas eigentlich auch mit Schleifen "abfrühstücken"?
Lieber Gruss,
Karsten

Kleines Frühstück ohne Schleifchen
28.06.2013 10:39:51
NoNet
Hallo Karsten,
erstmal Willkommen hier im Forum ! - Für einen "Neueinsteiger" hast Du schon einen sehr professionellen Post erstellt - Glückwunsch :-) !
Zu Deinem "verschleiften Frühstück" : Ich biete Dir auf die Schnelle lediglich ein "kleines Frühstück - ohne Schleifchen" an - die Funktionen zum Berechnen werden dabei direkt in die Zellen geschrieben :
Sub Karsten_Fruehstueck()
[G4].Formula = "=Sumif(C:C,F4,D:D)"
[G5:G7].Formula = "=Sumif(C:C,F5,D:D)/IF(Countif(C:C,F5)>1,G$4,1)"
End Sub
Gruß, NoNet

Anzeige
AW: Kleines Frühstück ohne Schleifchen
28.06.2013 11:08:07
Karsten
Hallo NoNet,
vielen Dank für Deine Mühe und für Deine Willkommengrüsse :)
Die Lösung funktioniert zwar, ich kann diese aber leider nicht benutzen. Es handelt sich bei diesem Report um einen SAP Report, der alle Formeln in den Zellen überschreibt, sobald er Daten aus der DB holt. Daher muss ich leider die Werte direkt in die Zellen schreiben, ohne Formeln. Das ganze natürlich noch dynamisch, da die Länge der Liste variiert.
Liebe Grüsse,
Karsten

Frühstück ohne Schleifchen - aber bitte mit Sahne
28.06.2013 11:26:25
NoNet
Hallo Karsten,
dann erweitere ich mein Frühstücksangebot um ein kleines "Sahnehäubchen" - wohl bekomm's :
Sub Karsten_Fruehstueck_mit_Sahnehaeubchen()
Dim rngB As Range
Set rngB = [G4:G7] 'Bereichsangabe für die Funktionen/Werte
rngB(1).FormulaR1C1 = "=Sumif(C3:C3,RC[-1],C4:C4)" 'C3 und C4 stehen für Spalte C und D !
rngB.Offset(1).Resize(rngB.Rows.Count - 1).FormulaR1C1 = _
"=Sumif(C3:C3,RC[-1],C4:C4)/IF(Countif(C3:C3,RC[-1])>1,R4C,1)"
rngB.Value = rngB.Value 'Sahnehäubchen : Formeln durch Werte ersetzen
End Sub
Gruß, NoNet

Anzeige
AW: Frühstück ohne Schleifchen - aber bitte mit Sahne
28.06.2013 11:53:27
Karsten
Hallo NoNet,
absolut perfekt, danke Dir ;)
Dürfte ich Dich vielleicht noch um die Erdbeere auf dem Sahnehäubchen bitten? :)
Ich weiss natürlich, dass Du mir schon sehr geholfen hast, aber vielleicht hast Du ja noch Lust und Musse :)
Hier das Problem:
Basis- und Ergebniswerte befinden sich in unterschiedlichen Worksheets, aber der gleichen Mappe, haben aber mehrere Spalten, auf die die komplette Logik jeweils angewendet werden muss. Hier ein kleines Bild, wie es aussieht:
In Worksheet 1 sollen die Ergebnisse geschrieben werden.
Userbild
Vielen lieben Dank,
Karsten
Anzeige

317 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Makro bei Wertänderung in Bereich auslösen
Ulrich

Hallo zusammen,
kann man ein Makro starten, wenn sich in einem definierten Tabellenbereich ein Wert ändert? Wie geht das?
Danke im Voraus und Grüße,
Ulrich
19.09.2008 12:37:58
Thread-ID: 1010993
5 Beiträge
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
@viele meinungen: spaltenangaben in vba
Herbert

hallo,
wie macht ihr denn das: wenn ich in einem vba-code spaltenangaben mache, und in der tabelle dann spalten einfügen oder entfernen muss, muss ich alle spaltenangaben im code manuell ändern. und wehe, ich vergesse das, dann stimmt das ganze makro nicht mehr.
beispiel:
With Sheet...
08.10.2008 19:41:00
Thread-ID: 1015156
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
4
7
2
4
3
3
2
5
4
4
4
1
25
1
3
5
1
15
4
2
11
4
6