Teilergebnisse für erste Zahl

Forumthread: Teilergebnisse für erste Zahl

03.10.2007 18:35:00

master

Hallo,
ich möchte für eine mehrstellige Zahl immer eine Gruppierung nach der ersten Zahl ein Teilergebniss haben.
Mit Daten/Teilergebnisse Gruppiert er mir alle mehrstellige Zahlen mit den den einzelnen Gruppen.
Tabelle1

	A	B	C
1	Nr	Produkt	Gesamt
2	5100	Produkt 1	8.587,00
3	5101	Produkt 2	4.700,00
4	5102	Produkt 3	2.760,00
5	5103	Produkt 4	3.824,00
6	5104	Produkt 5	1.390,00
7	5104	Produkt 6	1.107,00
8	5104	Produkt 7	1.806,00
9	5105	Produkt 6	9.170,00
10	5105	Produkt 7	8.850,00
11	5105	Produkt 6	3.810,00
12	Teilergebnis		46.004,00
13	6501	Produkt 6	319,00
14	6501	Produkt 7	3.185,00
15	6502	Produkt 6	9.448,00
16	6503	Produkt 7	3.644,00
17	6504	Produkt 6	7.378,00
18	Teilergebnis		23.974,00

Formeln der Tabelle

Zelle	Formel
C12	=TEILERGEBNIS(9;C2:C11)
C18	=TEILERGEBNIS(9;C13:C17)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Danke im voraus!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Teilergebnisse für erste Zahl

03.10.2007 20:08:50

master

Habe eine Lösung für mich gefunden!
Tabelle1

	A	B	C	D
1	Zahl	Nr	Produkt	Gesamt
2	5	5100	Produkt 1	8.587,00
3	5	5101	Produkt 2	4.700,00
4	5	5102	Produkt 3	2.760,00
5	5	5103	Produkt 4	3.824,00
6	5	5104	Produkt 5	1.390,00
7	5	5104	Produkt 6	1.107,00
8	5	5104	Produkt 7	1.806,00
9	5	5105	Produkt 6	9.170,00
10	5	5105	Produkt 7	8.850,00
11	5	5105	Produkt 6	3.810,00
12	5 Ergebnis			46.004,00
13	6	6501	Produkt 6	319,00
14	6	6501	Produkt 7	3.185,00
15	6	6502	Produkt 6	9.448,00
16	6	6503	Produkt 7	3.644,00
17	6	6504	Produkt 6	7.378,00
18	6 Ergebnis			23.974,00
19	Gesamtergebnis			69.978,00

Formeln der Tabelle

Zelle	Formel
A2	=TEIL(B2;1;1)
A3	=TEIL(B3;1;1)
A4	=TEIL(B4;1;1)
A5	=TEIL(B5;1;1)
A6	=TEIL(B6;1;1)
A7	=TEIL(B7;1;1)
A8	=TEIL(B8;1;1)
A9	=TEIL(B9;1;1)
A10	=TEIL(B10;1;1)
A11	=TEIL(B11;1;1)
D12	=TEILERGEBNIS(9;D2:D11)
A13	=TEIL(B13;1;1)
A14	=TEIL(B14;1;1)
A15	=TEIL(B15;1;1)
A16	=TEIL(B16;1;1)
A17	=TEIL(B17;1;1)
D18	=TEILERGEBNIS(9;D13:D17)
D19	=TEILERGEBNIS(9;D2:D17)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

AW: Teilergebnisse für erste Zahl

03.10.2007 20:24:00

Beate

Hallo,
wenn du die Hilfsspalte D mit folgender Formel einfügst, kannst du für deinen Zweck Teilergebnis > Menü einsetzen, die Formel aus D2 kannst du vor dem Gruppieren runterkopieren:

	A	B	C	D
1	Nr	Produkt	Gesamt	Hilfspalte
2	5100	Produkt 1	8.587,00	5
3	5101	Produkt 2	4.700,00	5
4	5102	Produkt 3	2.760,00	5
5	5103	Produkt 4	3.824,00	5
6	5104	Produkt 5	1.390,00	5
7	5104	Produkt 6	1.107,00	5
8	5104	Produkt 7	1.806,00	5
9	5105	Produkt 6	9.170,00	5
10	5105	Produkt 7	8.850,00	5
11	5105	Produkt 6	3.810,00	5
12			46.004,00	5 Ergebnis
13	6501	Produkt 6	319,00	6
14	6501	Produkt 7	3.185,00	6
15	6502	Produkt 6	9.448,00	6
16	6503	Produkt 7	3.644,00	6
17	6504	Produkt 6	7.378,00	6
18			23.974,00	6 Ergebnis
19			69.978,00	Gesamtergebnis

Formeln der Tabelle

Zelle	Formel
D2	=GANZZAHL(A2/1000)

Gruppieren nach: Hilfsspalte
Unter Verwendung von: Summe
Teilergebnis addieren zu: Gesamt anhaken
Gruß,
Beate

AW: Teilergebnisse für erste Zahl

03.10.2007 20:43:00

master

Hallo nochmal,
habe das ganze jetzt aufgezeichnet mit Makro.
Möchte die Zellen die in Spalte A mit diesem Makro ausgefüllt bekommen.
Da Liste unterschiedlich lang sind.
Was muß ich in dem Makro ändern.
Sub Teilerg() ActiveCell.Columns("A:A").EntireColumn.Select Selection.Insert Shift:=xlToRight ActiveCell.Select ActiveCell.FormulaR1C1 = "Zahl" ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.FormulaR1C1 = "=MID(RC[1],1,1)" ActiveCell.Select Selection.AutoFill Destination:=ActiveCell.Range("A1:A20") ActiveCell.Range("A1:A20").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub

AW: Teilergebnisse für erste Zahl

03.10.2007 21:29:00

Beate

Hallo,
probiere mal dieses Makro, es ist zeilendynamisch:
Sub Teilerg()
    If Range("A1").Value = "Zahl" Then Columns("A:A").Delete Shift:=xlToLeft
    Columns("A:A").Insert Shift:=xlToRight
    Range("A1").Value = "Zahl"
    Range("A2:A" & Cells(65536, 2).End(xlUp).Row).FormulaR1C1 = "=MID(RC[1],1,1)*1"
    Range("A2:A" & Cells(65536, 2).End(xlUp).Row).Copy
    Range("A2:A" & Cells(65536, 2).End(xlUp).Row).PasteSpecial Paste:=xlPasteValues
    Columns("B:B").Copy
    Columns("A:A").PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Gruß,
Beate

AW: Teilergebnisse für erste Zahl

03.10.2007 21:35:43

master

Super!!
Danke!!

Beliebteste Forumthreads (12 Monate)

Forumthread: Teilergebnisse für erste Zahl

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread