Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Firmenumsätze in einer Zeile anzeigen ohneDuplette

Forumthread: Firmenumsätze in einer Zeile anzeigen ohneDuplette

Firmenumsätze in einer Zeile anzeigen ohneDuplette
10.09.2018 18:17:11
SiggiHD
Hallo, ich habe hier eine Beispieltabelle mit VBA-Code, aber sie macht nicht das, was ich will. Ich möchte nur, dass doppelt oder dreifach eingetragene Firmen zu einem Eintrag pro Firma werden und die Umsatzzahlen aller Jahre zu dieser Firma nun in einer Zeile stehen. Mein Makro sieht grad so aus wie im Anhang. Danke für die Hilfe!
Datei hier:
https://www.herber.de/bbs/user/123868.xlsm
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: es gibt hierzu sicher auch Alternativen ...
10.09.2018 18:46:06
neopa
Hallo Siggi,
... da ich mir allerdings keine xlsm-Datei aus dem Netz herunterlade, kann ich nachfolgend nur allgemein antworten. Möglich könnte schon eine Pivotauswertung sein oder auch eine reine Formelauswertung. Für Deine Version (die offensichtlich nur Excel 2010 sein kann, nicht 10-Office XP wie von Dir hier angegeben) könntest Du Dir auch von MS kostenfrei Powerquery herunterladen und installieren und damit die Auswertung vornehmen.
Stell doch mal Deine Datei als xlsx ein, dann sehen wir weiter.
Gruß Werner
.. , - ...
Anzeige
AW: es gibt hierzu sicher auch Alternativen ...
11.09.2018 08:19:26
SiggiHD
Hier bitte Werner
https://www.herber.de/bbs/user/123875.xlsx
Der Code sieht so aus
Sub daten() Last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row With Range("A:A") .NumberFormat = "General" .Value = .Value End With Application.ScreenUpdating = False Sheets("Tabelle1").Range("A1:L1").Copy Sheets("Tabelle1").Range("N1:Y1").PasteSpecial Sheets("Tabelle1").Range("M2").FormulaLocal = "=WENN(ZÄHLENWENNS($B$2:$B2;$B2;F$2:F2;"">0"")=1;$ _ A2;"""")" Sheets("Tabelle1").Range("M2").AutoFill Destination:=Range("M2:M" & Last) Sheets("Tabelle1").Range("M2:M" & Last).AutoFill Destination:=Range("J2:M" & Last), Type:= _ xlFillDefault For L = 2 To Last Last1 = ActiveSheet.Cells(Rows.Count, 14).End(xlUp).Row Set finden = Sheets("Tabelle1").Range("N:N").Find(Sheets("tabelle1").Cells(L, 1)) If finden Is Nothing Then Sheets("Tabelle1").Cells(Last1 + 1, 14).Value = Sheets("Tabelle1").Cells(L, 1).Value Sheets("Tabelle1").Cells(Last1 + 1, 15).Value = Sheets("Tabelle1").Cells(L, 2).Value Sheets("Tabelle1").Cells(Last1 + 1, 16).Value = Sheets("Tabelle1").Cells(L, 3).Value Sheets("Tabelle1").Cells(Last1 + 1, 17).Value = Sheets("Tabelle1").Cells(L, 4).Value Sheets("Tabelle1").Cells(Last1 + 1, 18).Value = Sheets("Tabelle1").Cells(L, 5).Value If L = 2 Then Sheets("Tabelle1").Cells(Last1 + 1, 19).FormulaLocal = "=WENNFEHLER(INDEX( _ $A$2:$L$" & Last & ";VERGLEICH($N2;J$2:J$" & Last & ";0);6);0)" Sheets("Tabelle1").Cells(Last1 + 1, 20).FormulaLocal = "=WENNFEHLER(INDEX( _ $A$2:$L$" & Last & ";VERGLEICH($N2;K$2:K$" & Last & ";0);7);0)" Sheets("Tabelle1").Cells(Last1 + 1, 21).FormulaLocal = "=WENNFEHLER(INDEX( _ $A$2:$L$" & Last & ";VERGLEICH($N2;L$2:L$" & Last & ";0);8);0)" Sheets("Tabelle1").Cells(Last1 + 1, 22).FormulaLocal = "=WENNFEHLER(INDEX( _ $A$2:$L$" & Last & ";VERGLEICH($N2;M$2:M$" & Last & ";0);9);0)" Else Sheets("Tabelle1").Range("S" & Last1 + 1 & ":Y" & Last1 + 1).FillDown End If End If Next Sheets("Tabelle1").Range("N2:Y" & Last1 + 1).Copy Sheets("Tabelle1").Range("N2:Y" & Last1 + 1).PasteSpecial xlPasteValues Application.CutCopyMode = False Sheets("Tabelle1").Range("M:Y").Delete Application.ScreenUpdating = True Unload Wait End Sub
Anzeige
AW: (m)eine Formellösung(en) dazu ...
11.09.2018 09:22:05
neopa
Hallo Siggi,
... und die kommen komplett ohne den Einsatz von klassischen Matrixformeln aus.
Formel A19, B29 und F19 alle nach unten und zusätzlich B# nach rechte bis E# sowie analog F# bis L# kopieren:
 ABCDEFGHIJKL
1KundennummerMatchcodeBemerkungenVertreterPLZJahr 2018Jahr 2017Jahr 2016Jahr 2015Jahr 2014Jahr 2013Jahr 2012
21Gebäudereinigung   2.012,001.921,00  454543  
31Gebäudereinigung   2.012,00 5.555,00  232121 
41Gebäudereinigung   2.012,00  1.998,00   
52Leitungsbau GmbH   0,00  1.321,00 322132 
63Landkreis    0,0045.433,00     
73Landkreis   0,00 82.111,00    
84Moor GmbH   0,00355,00    6565
95Institut   4.300,0065.011,00    545
105Institut   4.300,00 5.444,00 5443  
115Institut   4.300,00  4.321,00   
126X AG   0,00 1.234,21 87865  
136X AG   1.800,00  21.113,00  434
14            
15            
16            
17            
18KundennummerMatchcodeBemerkungenVertreterPLZJahr 2018Jahr 2017Jahr 2016Jahr 2015Jahr 2014Jahr 2013Jahr 2012
191Gebäudereinigung   2.012,001.921,005.555,001.998,00454.543,00232.121,000,00
202Leitungsbau GmbH   0,000,000,001.321,000,00322.132,000,00
213Landkreis    0,0045.433,0082.111,000,000,000,000,00
224Moor GmbH   0,00355,000,000,000,000,006.565,00
235Institut   4.300,0065.011,005.444,004.321,005.443,000,00545,00
246X AG   1.800,000,001.234,2121.113,0087.865,000,00434,00
25            

Formeln der Tabelle
ZelleFormel
A19=WENNFEHLER(AGGREGAT(15;6;A$2:A$15/(A$2:A$15>WENN(LINKS(A18;1)="K";0;A18)); 1); "")
B19=WENN(A19="";"";INDEX(B:B;VERGLEICH($A19;$A:$A;0))&"")
F19=MAX(INDEX((F$2:F$15)*($A$2:$A$15=$A19); ))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Werner
.. , - ...
Anzeige
AW: Firmenumsätze in einer Zeile anzeigen ohneDuplette
10.09.2018 21:04:21
Gerd
Moin Siggi (in HD?) 
Sub teste()
Tabelle1.Range("A:L").Copy Tabelle2.Cells(1, 1)
Tabelle2.Range("A:L").RemoveDuplicates 1, xlYes
With Tabelle2.Cells(1, 1).CurrentRegion.Columns(1)
.Resize(.Rows.Count - 1, 7).Offset(1, 5).FormulaR1C1 = "=SUMIF(Tabelle1!C1,RC1,Tabelle1!C)"
End With
Tabelle2.Columns.AutoFit
End Sub

Gruß Gerd
Anzeige
AW: Firmenumsätze in einer Zeile anzeigen ohneDuplette
11.09.2018 08:10:02
SiggiHD
Hallo Gerd, da kommt keine Reaktion in meinem Excel 2010.
AW: Auf Blatt 2 geschaut?
11.09.2018 09:26:10
Gerd
Hallo Siggi,
bei mir lief es. Ich habe lediglich noch ungetestet Tabelle2.Cells(1, 1) eingefügt.
Gruß Gerd
ahh ich bin bissel doof ;) Danke dir k.t.
11.09.2018 11:18:11
SiggiHD
Anzeige

Forumthreads zu verwandten Themen

VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
Bestimmten Ordner anzeigen lassen
ray

Hallo,
damit öffne ich den Explorer:
Private Sub CommandButton72_Click() Dim xxx As Long xxx = Shell("explorer.exe", vbMaximizedFocus) End Sub
Jetzt möchte ich aber, dass die Drucker im Explorer angezeigt werden, so wie wenn ich START/Drucker und Faxgeräte
Hat jemand eine Id...
07.01.2009 15:04:24
Thread-ID: 1037561
3 Beiträge
gefilterte Zeilen aus TB1 in TB2 anzeigen lassen
Kellerkind42

Hallo.
Ich filtere in Tabelle1, ab Zeile 6 Daten.
Wie kann ich mir per Formel die gefilterten Daten in Tabelle2 anzeigen lassen?
Gruß Reinhardt.
19.03.2009 12:40:16
Thread-ID: 1061805
2 Beiträge
nur bestimmte Zelleninhalte speichern
Peter

Guten Morgen allerseits,
ich habe mir ein Rechnungsformular erstellt. Gibt es irgendeine Möglichkeit, dass nur die eingegebenen
Daten, wie zum Beispiel Name, Adresse, Datum usw. gespeichert werden und nicht das ganze Formular?
Ich möcht mich schon mal im vorraus für Euere Hilfe beda...
29.06.2009 08:37:16
Thread-ID: 1084996
3 Beiträge
Nur beschriebene Zellen Listen
Sebastian

Hallo zusammen,
ich habe ein Programm in dem in einer Userform nach einem bestimmten Befehl eine Listbox aus einem Tabellenblatt befüllt wird, der Code dafür ist folgendermaßen:
ListBox2.AddItem Cells(zeiger, 4).Value
Zeiger bezieht sich dabei auf den Auswahlbereich
Alles funkti...
04.07.2009 14:11:52
Thread-ID: 1086364
14 Beiträge
Combobox nur bestimmte Inhalte anzeigen
k

Hallo und einen wundervollen Guten Morgen ;o)
...ich habe mal wieder eine Frage (auch wenn ich hier shcon viel gelernt habe in den letzten Wochen !).
Habe in einer Userform eine Combobox (CB1) und diese zeigt alle Kundennamen einer Gesamtliste (Tabelle1) an. Jeder Kundensatz in der Tabe...
23.07.2009 09:28:23
Thread-ID: 1090694
3 Beiträge
Code nur in bestimmten Zellen
Stefanglander

Moin Moin Excelgemeinde,
habe beim recherchieren folgenden Code gefunden:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If IsEmpty(Target) Then Exit Sub If Target = "1" Then Target = "oben" If Target = "2" Then Target = "unten" If Target = "3" Then Target = "rechts" If Targe...
27.09.2009 13:43:00
Thread-ID: 1105840
6 Beiträge
Nur in 2 Zellen Nullwerte anzeigen
Heinz

Hallo Leute
Ich habe in einer Tabelle die Nullwerte ausgeblendet.
Nun möchte ich aber in J5 und in J36 die Nullwerte "0,00" angezeigt haben.
Gibt es dazu bitte eine Möglichkeit ?
Gruß Heinz
06.07.2010 18:02:45
Thread-ID: 1165742
3 Beiträge
Makro soll nur bei bestimmten Zellen anwählbar sei
Annette

Hallo,
durch ein Makro werden Daten in ein Blatt geschrieben. Dieses Makro muss durch eine Schaltfläche aktiviert werden.
Ich möchte, dass das Makro jedoch nur dann startbar ist, wenn eine einzele Zelle in einem bestimmten Bereich ausgewählt ist.
Könnt ihr mir helfen?
Danke
...
22.07.2010 20:00:41
Thread-ID: 1168443
5 Beiträge
Anzeige
Nur bestimmte Zeilen kopieren
Swetlana

Hi liebe Excel-Profies,
kann mir bitte jemand helfen...
Mein folgender Code kopiert mir die kompletten Arbeitsmappen...
Ich würde es aber gerne so haben, dass er mir nur die Zeilen die "P64" enthalten kopiert und in die andere Datei überträgt.....
Was muss ich ändern?
Su...
01.06.2011 06:44:38
Thread-ID: 1216949
3 Beiträge
Anzeige
emails in nur eine spalte mit vielen zeilen einfüg
sebi

hallöchen leudde,
habe hier für die fortgeschrittenen wohl ein eher (hoffentlich) kleines problem.
aus einer email heraus, werden viele emailadressen in die zwischenablage kopiert. füge ich diese nun in eine excel-zelle ein, werden diese alle mit komma getrennt in einer zelle und einer...
15.06.2011 19:15:42
Thread-ID: 1218515
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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