Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1048to1052
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
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in Tabelle 2 zusammenfassen - ohne Duplikate

Daten in Tabelle 2 zusammenfassen - ohne Duplikate
07.02.2009 14:11:00
Sibylle
Hallo,
in Zeile 4 der Tabelle 1 stehen Überschriften, ab Zeile 5 in Spalte A KundenNr in Spalte D Rechnungsbeträge.
KundenNr können mehrfach vorkommen.
In Tabelle 2 sollen alle KundenNr nur einmal vorkommen, in Spalte D aber die Summe der Rechnungsbeträge pro Kunden.
Wie sollte man da vorgehen?
Gruß
Sibylle

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in Tabelle 2 zusammenfassen - ohne Duplikate
07.02.2009 14:15:00
Ramses
Hallo
Am einfachsten:
Zelle im Datenbereich auswählen
Daten - Pivottabelle - Pivottabelle und Chartbericht
Und dem Assistenten folgen.
Im Schritt 3 des Assistenten kannst du auf "Layout" klicken und die Ergebnistabelle so zusammenstellen wie du willst
Gruss Rainer
AW: Daten in Tabelle 2 zusammenfassen - ohne Duplikate
07.02.2009 14:16:00
Tino
Hallo,
verwende den Spezialfilter um eine Liste ohne doppelte zu erstellen.
Dann mit Summewenn oder Summenprodukt, die Summe aus den Kunden nummern bilden.
Gruß Tino
AW: Daten in Tabelle 2 zusammenfassen - ohne Duplikate
07.02.2009 14:25:00
Sibylle
Hallo Tino,
vielen Dank für Deinen Lösungsweg.
So habe ich es bisher gemacht, will aber den Ablauf automatisieren.
Wie sähe da eine Lösung aus?
Gruß
Sibylle
Anzeige
teste mal
07.02.2009 14:55:00
Tino
Hallo,
mit diesem Makro müsste es gehen.
Sub Test()
Dim meTab1 As Worksheet, meTab2 As Worksheet
Dim FilterBereich As Range, loLetze As Long

Set meTab1 = Sheets("Tabelle1") 'Tabellenname Quelle 
Set meTab2 = Sheets("Tabelle2") 'Tabellenname Ziel 

With Application
 .ScreenUpdating = False
 .EnableEvents = False
 
   With meTab1
    'Letzte Zeile für Formel ermitteln 
    loLetze = .Cells(.Rows.Count, 1).End(xlUp).Row
    'Bereich leeren für neue Daten 
    meTab2.Range("A2:B" & meTab2.Rows.Count).Value = ""
    'Filterbereich zuweisen anwenden 
    Set FilterBereich = .Range("A4", .Cells(.Rows.Count, 1).End(xlUp))
    'Spezialfilter anwenden 
    FilterBereich.AdvancedFilter xlFilterInPlace, , , True
    'Sichtbare Zellen kopieren 
    FilterBereich.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy meTab2.Range("a2")
    'Filter löschen 
    If .FilterMode Then .ShowAllData
   End With
   'Formel schreiben 
   With meTab2
     .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).Offset(0, 1).FormulaR1C1 _
     = "=SUMIF(" & meTab1.Name & "!R5C1:R" & loLetze & "C1,RC[-1]," & meTab1.Name & "!R5C4:R" & loLetze & "C4)"
   End With
   
 .ScreenUpdating = True
 .EnableEvents = True
End With

End Sub


Gruß Tino

Anzeige
noch ein Beispiel
07.02.2009 15:23:59
Tino
Hallo,
um dies zu automatisieren,
würde ich dies noch ins Open Ereignis und ins Activate Ereignis der Tabelle einbauen.
Hier ein Beispiel:
https://www.herber.de/bbs/user/59201.xls
Gruß Tino
AW: noch ein Beispiel
07.02.2009 19:26:00
Sibylle
Hallo Tino,
vielen Dank für Deine VBA-Lösung. Klappt prima.
Gruß
Sibylle
Doppler automatisch eliminieren - Array
07.02.2009 14:56:00
WF
Hi Sybille,
in D5 steht = A5
in D6 steht die Arrayformel:
{=INDEX(A:A;VERGLEICH(1;(ZÄHLENWENN(D$5:D5;A$5:A$99)=0)*(A$5:A$99"");0)+4)}
bzw. ohne Fehlermeldung am Schluß, wenn keine Nummern mehr kommen
{=WENN(SUMME(ZÄHLENWENN(A$5:A$99;D$5:D5))>=SUMME((A$5:A$99<>"")*1);"";INDEX(A:A;VERGLEICH(1; (ZÄHLENWENN(D$5:D5;A$5:A$99)=0)*(A$5:A$99<>"");0)+4)) }
D6 runterkopieren
in E5 steht:
=SUMMEWENN(A:A;D5;B:B)
runterkopieren
ARRAY-Formel {=geschweifte Klammern} nicht eingeben;
Abschluß der Formel mit gleichzeitig Strg / Shift / Enter (statt Enter allein); - das erzeugt sie.
Salut WF
Anzeige
AW: Danke
07.02.2009 19:25:00
Sibylle
Hallo WF,
vielen Dank für Deine Formellösung. Klappt prima.
Ein schönes Wochenende.
Gruß
Sibylle

299 Forumthreads zu ähnlichen Themen

Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Anzeige
Datensätze in neues Tabellenblatt
kutzmutz

Hallo liebe Experten,
ich bastele für meinen Vater eine Übersicht über Bestellungen. Es gibt ein Tabellenblatt "Ersatzteile" in dem Teile mit Bestellnummern, Preisen etc. versehen sind. Wird ein Teil benötigt, wird die Zeile grün markiert und der Gesamtpreis der zu bestellenden Teile ans En...
26.08.2008 23:09:00
Thread-ID: 1004943
3 Beiträge
Datenbereich dynamisch in Pivot-Tabelle einbinden
Markus

Hallo allerseits,
ich habe folgendes Problem. Für die Erstellung einer Pivot-Tabelle muß ich den Datenbereich manuell selektieren. Da sich aber mein Datenbereich ständig ändert, würde ich das ganze automatisiert selektieren lassen. Wie krieg' ich das in dem folgenden Makro unter ?:
Rang...
02.09.2008 14:20:30
Thread-ID: 1006792
4 Beiträge
Anzeige
Daten in UF und nicht in Tabelle
Wolfgang

Hallo,
den untenstehenden Code hatte mir Tino soweit zur Verfügung gestellt und er läuft auch super. Nun kam mir nur die Überlegung, ob die zu importierenden Daten anstatt in eine Tabelle auch in ein Userform mit entsprechenden Textboxes eingefügt werden können (Textbox1 = Vorname, Textbox...
10.09.2008 20:31:00
Thread-ID: 1008913
8 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
2 Combobox in UF in Tabelle1 u. Daten in Tabelle 2
Bernhard

Guten Abend liebe Excelprofis,
ich komme nicht weiter, folgende Aufgabenstellung zu lösen:
Ich rufe in Tabelle 1 eine Userform auf, die 2 ComboBoxen hat. (ArtikelNr. ArtikelBezeichnung). In Tabelle 2 stehen in Spalte A die ArtikelNrn. und in Spalte B die ArtikelBezeichnungen untereinand...
17.09.2008 21:32:00
Thread-ID: 1010532
5 Beiträge
Daten in Listbox und in Tabelle
otto

Hi, mit folgendem code suche ich Daten in einem Tabellenblatt und lese die Funstellen in eine Listbox ein, gleichzeitig werden die Daten in ein anderes Tabellenblatt geschrieben, dass ich sie für weitere Aktionen (z. B. filtern) zur Verfügung habe.
With Worksheets("Auftrag").Range("a10:af30...
18.09.2008 10:45:00
Thread-ID: 1010647
3 Beiträge
Datensätze in Tabellenblätter schreiben
TomTom


Hi,
ich habe eine Excelmappe mit 4 Bättern. Auf dem ersten Blatt (Spalte A) stehen die Rohdaten drin. Die sehen in etwar so aus:
START;flag,2,23,,,,34,45,33,45,,,,,,,56
ATTEMPT;flag,1,45,,12,,34,,,45,,,,,7,,56
START;flag,2,23,,,,34,45,33,45,,,,,,,56
STOP;flag,3,45,,5,,,...
30.09.2008 13:43:00
Thread-ID: 1013375
3 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
1
2
2
3
1
7
4
4
2
2
5
1
1
6
3
4
2
3
6
4
30
3
3
7
2