Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 14:18:05
Einfügen ohne Select
28.04.2024 14:00:34
Formel fehler in der Berechnung?
28.04.2024 13:43:14
Uhrzeit-Angabe
28.04.2024 11:30:20
Pivot Balken und Kreisdiagram Darstellung /Beschriftung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1884to1888
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
1884to1888
1884to1888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Summe nach Wertgröße ermitteln

VBA - Summe nach Wertgröße ermitteln
20.06.2022 14:56:29
Don
Hallo VBA-Experten,
würde mich über eure Hilfe sehr freuen, ich finde leider keinen vernünftigen Ansatz um das Problem zu lösen.
In der Tabelle (Spalte A-C) können unterschiedlich viele Datensätze stehen, mit variablen Werten stehen.
Ziel wäre es in den Spalten E-F die Tabelle so zu generieren das alle Werte unter 2% am Ende der Tabelle unter "Sonstige Werte Ich habe das mit mehreren Schleifen versucht, konnte aber keine zufriedenstellende Lösung zusammen basteln.
Ich hoffe einer von euch hat eine gute Idee, das ganze soll über Makro ausführbar sein.
Vielen Dank

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Summe nach Wertgröße ermitteln
20.06.2022 14:58:30
Daniel
Hi
eine kleine Beispieldatei mit ein paar Dummydaten und deinem passenden Wunschergebnis für diese Daten (von Hand erstellt) wäre hilfreich.
Gruß Daniel
AW: VBA - Summe nach Wertgröße ermitteln
20.06.2022 14:59:36
Don
Hallo Daniel,
du warst zu schnell :-), habe ich gerade eingefügt.
Viele Grüße
AW: VBA - Summe nach Wertgröße ermitteln
20.06.2022 15:11:18
Daniel
Hi
muss es VBA sein?
ich würde noch eine Hilfsspalte einfügen mit folgender Formel:

=Wenn(C2
und dann für diese Tabelle eine Pivottabelle erstellen mit der Hilfsspalte als Kriterium.
Gruß Daniel
Anzeige
AW: VBA - Summe nach Wertgröße ermitteln
20.06.2022 15:15:59
Don
Hallo Daniel,
danke für deine schnelle Antwort, in der Arbeitsmappe gibt es sehr viele Funktionen über VBA die über ein Formular gesteuert werden,
daher wäre eine VBA Lösung super. Die erste Tabelle ist eigentlich bereits ein Pivot die aber für eine andere Auswertung benötigt wird,
kann man diese Tabelle nicht mit einer Schleife durchlaufen um daraus eine neue zu generieren?
Vielleicht verfolge ich ja auch den falschen Ansatz, bin daher für Vorschläge dankbar.
Viele Grüße
AW: VBA - Summe nach Wertgröße ermitteln
20.06.2022 16:05:16
Daniel
Hi
könnte so gehen.
allerdings müsstest du dir die Spalte B auch als Zahl ausgeben lassen und nicht als Text, damit man die Summe bilden kann (also ohne das t, dieses könntest du dir über das benutzerdefinierte Zahlenformat anzeigen lassen (#.##0,00 "t")
Unterhalb dieser Tabelle sollte auch nichts stehen, vorallem keine Zahlen in Spalte B, sonst wirds aufwendiger, die Gesamtsumme zu bilden.

Sub test()
Range("A1").CurrentRegion.Copy
Range("E1").PasteSpecial xlPasteValuesAndNumberFormats
With Range("E1").CurrentRegion
.AutoFilter field:=3, Criteria1:="
Gruß Daniel

Anzeige
AW: VBA - Summe nach Wertgröße ermitteln
20.06.2022 16:11:51
GerdL
Moin

Range("F4") = WorksheetFunction.SumIf(Range("C2:C99"), "
Gruß Gerd
AW: VBA - Summe nach Wertgröße ermitteln
20.06.2022 16:29:47
Don
Hallo Gerd,
danke für deine Antwort, das Problem ist das nicht immer F4 die Zelle ist in der die Werte summiert werden sollen,
die Tabelle kann eine unterschiedliche Anzahl Zeilen haben, die Summe unter 2% soll immer am Ende der Tabelle zusammen gefasst werden.
Viele Grüße
AW: VBA - Summe nach Wertgröße ermitteln
20.06.2022 16:33:37
GerdL
Hallo D.A.
ersetze Range("F4") durch Cells(Rows.Count, "B").End(xlUp).Offset(2,0)
Gruß Gerd
AW: VBA - Summe nach Wertgröße ermitteln
20.06.2022 16:46:20
Don
Hallo Daniel & Gerd,
mit einer Kombi aus euren Infos funktioniert alles perfekt :-)
Vielen Dank für eure Unterstützung - TOP !!
Viele Grüße
Anzeige
AW: VBA - Summe nach Wertgröße ermitteln
20.06.2022 16:27:15
Don
Hallo Daniel,
super, genau das habe ich gesucht.
Es gibt nur einen kleinen Fehler: Ich habe mal zum testen bei Parkplatz 1(t) und 0,25% eingegeben, die Summe der "t" funktioniert einwandfrei, aber die Summe der Prozente bleibt unverändert. Woran könnte das liegen, bzw. was muss ich dafür ändern?
Viele Grüße
Stefan
AW: VBA - Summe nach Wertgröße ermitteln
20.06.2022 16:45:49
Daniel
Die Summe der Prozente sollte immer 100% bzw 1 ergeben.
deswegen hole ich mir die Summe der Prozente nicht aus der Spalte C, sondern setze diese fest mit 1 an.
sollte diese Annahme falsch sein, kannst du die Prozente natürlich genauso ermitteln wie die Summe der Tonnen.
einfach im Code die Formel übernehmen und die Spalte anpassen (C3 statt C2)
Gruß Daniel
Anzeige
AW: VBA - Summe nach Wertgröße ermitteln
20.06.2022 16:50:23
Don
Hallo Daniel & Gerd,
mit einer Kombi aus euren Informationen läuft alles perfekt:
Danke für eure Unterstützung - wirklich TOP !!
Viele Grüße
Und falls es von Interesse ist der Code anbei:

Sub S3_Summe()
Range("A1").CurrentRegion.Copy
Range("E1").PasteSpecial xlPasteValuesAndNumberFormats
With Range("E1").CurrentRegion
.AutoFilter field:=3, Criteria1:="

302 Forumthreads zu ähnlichen Themen

Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Anzeige
Array in Tabelle schreiben
eres

Schönen Gruß in mein Lieblings-Forum,
ich lese sequentiell aus einer riesigen csv-Datei die ersten 50.000 Sätze in ein Array. Nach dem Einlesen möchte ich die Werte in ein sheet schreiben.
Dim HilfsArray(1 To 50000) As String
Dim i as long
Open Input_File For Input As #1
D...
08.04.2009 14:15:07
Thread-ID: 1067735
5 Beiträge
[VBA] Dreidimensionales Array in Tabellen ausgeben
Thomas

Hallo,
ich habe ein Problem mit der Ausgabe eines Arrays in eine Excel-Tabelle.
Ausgangspunkt ist folgender: With ThisWorkbook.Worksheets(1) .Cells(4, l).Resize(UBound(array, 1), UBound(array, 2)).Value = array End With
Das Array 'array' ist hierin zweidimensional, l wird durch...
06.10.2009 10:25:00
Thread-ID: 1107423
5 Beiträge
Anzeige
Array Formel summe wenn in VBA umwamdeln
t.wegmann@hengegroup.com

Hallo Liebes Forum,
ich habe ein Problem mit meiner Array-Formel:
=SUMME(WENN(('DATEN NEU'!$F$2:$F$25048=Frachten!$D4)*('DATEN NEU'!$N$2:$N$25048=Frachten!$F4) *('DATEN NEU'!$X$2:$X$25048=Frachten!H$2);'DATEN NEU'!$AB$2:$AB$25048))
Die Formel funktioniert gut, nur wenn ich die Date...
01.03.2010 09:54:52
Thread-ID: 1142293
2 Beiträge
ArraySumme von ABS Werten in VBA
ABS

Hallo Excel Freunde,
ich stehe gerade bei einer vermutlich banalen Sache auf der langen Leitung.
{=SUMME(ABS(A6:G6)) } Diese ArrayFormel bildet die Summe aller Einzelzellen von A6-G6 aus ihren individuellen ABS Werten.
Wie lautet diese Zeile in VBA, wenn testweise A6-G6 die Selectio...
10.03.2010 20:52:23
Thread-ID: 1144997
4 Beiträge
per VBA in MySQL-Tabelle schreiben
André

Moin,
ich hätte da mal wieder ein Problem.
Daten aus einer MySQL-Datenbank bekomme ich problemlos in meine Excel-Tabellen. Dies bekomme ich auch per VBA gesteuert. Hierzu habe ich eine ODBC-Verbindung erstellt. In der Excel-Tabelle erstelle ich dann eine neue Datenverbindung, die ich da...
20.04.2010 14:29:30
Thread-ID: 1152882
5 Beiträge
Array in VBA
PeTeR

Hallo VBA-Freaks,
ich habe 2 Spalten: Typ und Größe
Z.B.:
Typ Größe
A 1
B 3
A 4
C 2
A 5
B 1
C 4
Als Ergebnis hätte ich gerne folgendes (am liebsten per Makro in einem Array mit X*2 Feldern):
A: 1;4;5
B: 3;1<...
20.10.2010 13:56:57
Thread-ID: 1183205
7 Beiträge
array to range, range to array
Andi

Hallo,
Opa Helmut auf dem Fahrrad:
For i = 1 To UBound(arr)
Cells(1, i) = arr(i)
Next 'i
Raumschiff Enterprise
Range(Cells(1, 1), Cells(1, UBound(arr))) = arr
Ich favorisiere die Methode Raumschiff Enterprise, aber wenn ein arr Speicherplatz mit 1000 Zeichen belegt...
21.12.2010 18:50:18
Thread-ID: 1192391
12 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
12
5
4
4
3
1
3
4
6
11
17
2
6
2
4
5
8
10
3
2
8
2
3
1
9