Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
688to692
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
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datensätze zählen

Datensätze zählen
04.11.2005 09:02:47
Peter E.
Guten Morgen!
Also, ich habe folgendes Problem :) :
Eine Tabelle hat ca. 10.000 Datensätze, in Spalte B stehen Namen, insgesamt ca. 1000. Die Namen kommen öfter vor, der eine 4x, der andere 20x.
Nun soll gezählt werden, welcher Name wie oft vorkommt, ohne dass ich die ca. 1000 Namen manuell eingeben muss.
Das ganze sollte auf Tabelle3 ausgegeben werden, und zwar:
Spalte A: der Name
Spalte B: wie oft der name vorkommt
und das ganze sollte nach Spalte B sortiert werden.
Habt ihr soetwas schonmal gemacht? Ich wäre euch für die Hilfe SEHR dankbar!
mit hoffnungsvollen Grüßen, Peter

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datensätze zählen
04.11.2005 09:06:24
Mac4
Hallo Dieter,
dafür ist die Pivottabelle doch prädestiniert!
Marc
AW: Datensätze zählen
04.11.2005 09:18:50
Peter E.
Hallo!
Wenn ich die Pivot-Tabelle richtig verstanden habe, bekomme ich, wenn ich die Namen in die Tabelle gezogen habe, nur ein Drop-Down-Menü, in dem ich die Namen anwählen kann, und bekomme dann angezeigt, wie oft der Name vorkommt.
Nur möchte ich genau dies automatisieren! Sich ca. 1000 Namen ansehen und alle einzeln durchschauen ist leider nicht drin...
Oder habe ich da etwas falsch gemacht / verstanden?
Wäre nett, wenn du die Vorgehensweise etwas erklären könntest :)
Gruß & Dank, Peter
AW: Datensätze zählen
04.11.2005 09:29:50
Peter E.
Hi!
Ja, danke, werde es gleich mal versuchen.
Habe aber noch 2 Fragen:
1. Kann man das erstellen der Pivot-Tabelle per Makro erzeugen und schon die richtigen Spalten einstellen?
2. Kann man die Namen _in_ der Pivot-Tabelle absteigend nach der Anzahl der Häufigkeit sortieren?
Vielen Dank schonmal...
Gruß, Peter
AW: Datensätze zählen
04.11.2005 09:50:09
Mac4
Hi,
das kannst Du mit dem Makrorekorder aufzeichnen! Wenn ich die Aktionen, die zur Erstellung der Pivottabelle in meinem Beispiel nötig waren, aufzeichne (incl. der Sortierung), sieht der Code folgendermaßen aus:

Sub Makro2()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!R1C1:R100C1").CreatePivotTable TableDestination:=Range("C1"), _
TableName:="PivotTable3"
ActiveSheet.PivotTables("PivotTable3").SmallGrid = False
ActiveSheet.PivotTables("PivotTable3").AddFields RowFields:="Name"
ActiveSheet.PivotTables("PivotTable3").PivotFields("Name").Orientation = _
xlDataField
Range("C3").Select
Selection.Sort Key1:="R3C4", Order1:=xlDescending, Type:=xlSortValues, _
OrderCustom:=1, Orientation:=xlTopToBottom
End Sub

Anzeige
AW: Datensätze zählen
04.11.2005 10:19:08
Peter
Hallo!
Ich verstehe nicht, wieso deine Quellen-Angabe "SourceData:="Tabelle1!R1C1:R100C1" zwei Zeilen als Quelle hat, obwohl ja nur der Name dort steht ???
Meine Namen stehen in Spalte B mit der Überschrift "PatName", habe das ganze mal so abgeändert:

Sub Makro1()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!C2").CreatePivotTable TableDestination:=Range("C1"), TableName:= _
"PivotTable5"
ActiveSheet.PivotTables("pivottable5").SmallGrid = False
ActiveSheet.PivotTables("pivottable5").AddFields RowFields:="PatName"
ActiveSheet.PivotTables("pivottable5").PivotFields("PatName").Orientation = _
xlDataField
Range("C1").Select
Selection.Sort key1:="R3C4", order1:=xlDescending, Type:=xlSortValues, _
ordercustom:=1, Orientation:=xlTopToBottom
End Sub

Er sagt mir, dass mind. zwei Zeilen als Quelle angegeben werden müssen. Was soll ich noch angeben, wenn ich doch nur die Namen als Quelle habe (haben möchte)?
Anzeige
AW: Datensätze zählen
04.11.2005 10:21:31
Mac4
Hi,
zeichne es doch noch mal selber auf!
:="Tabelle1!R1C1:R100C1" steht für Row1Column1:Row100Column1 oder auch A1:A100
Marc
AW: Datensätze zählen
04.11.2005 10:41:47
Peter
Hi! Wenn ich selbst die Pivot-Tabelle als Makro aufzeichne, erhalte ich folgendes:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!C2").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("PatName")
.Orientation = xlRowField
.Position = 1
End With
ActiveWorkbook.ShowPivotTableFieldList = False
In welches Feld muss ich dann die Namen ziehen? Wenn ich sie in das linke Zeilenfeld ziehe, werden sie angezeigt. Und wie wird das ganz gezählt und sortiert?
Hier findest du einen kleinen Auszug aus meiner Tabelle, vielleicht hilft dir / uns das weiter :)
https://www.herber.de/bbs/user/28121.xls
Gruß, Peter
Anzeige
AW: Datensätze zählen
04.11.2005 11:51:21
Peter
Hallo!
Ich habe es jetzt so weit hinbekommen, dass durch das Makro nun eine Pivot-Tabelle erstellt wird, die Namen und die Anzahl eingetragen werden.
Quellcode:

Sub Makro1()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!R1C2:R65536C2").CreatePivotTable TableDestination:=Range("M1"), TableName:= _
"Pivot"
ActiveSheet.PivotTables("Pivot").SmallGrid = False
ActiveSheet.PivotTables("Pivot").AddFields RowFields:="PatName"
ActiveSheet.PivotTables("Pivot").PivotFields("PatName").Orientation = _
xlDataField
Range("M1").Select
Selection.Sort key1:="R3C14", order1:=xlDescending, Type:=xlSortValues, _
ordercustom:=1, Orientation:=xlTopToBottom
End Sub

Doch leider kommt in der Zeile
Selection.Sort key1:="R3C14", order1:=xlDescending, Type:=xlSortValues, _
ordercustom:=1, Orientation:=xlTopToBottom
der Fehler: "Das PivotTable-Feld, nach dem sortiert werden sollte, war nicht feststellbar."
Der erste Name steht in M3, die Anzahl des Namens in N3. Und nach der Anzahl soll ja sortiert werden. Was muss ich genau angeben, damit richtig sortiert wird?
Gruß, Peter
Anzeige
AW: Datensätze zählen
04.11.2005 09:44:09
Walter
Peter ich grüße Dich,
Habe verschiedene Möglichkeiten durchgepielt, irgentwie mußt Du Excel sagen was gesucht werden soll.
Andere Möglichkeit, Tabelle mit Spezialfilter in ein neues Blatt übertragen und dan in Spalte "A"=Name und Spalte"B"= zählenwenn
Gruß
Rentner Walter
aus dem nördlichen Nordhessen
Bitte um Antwort, ich freue sehr!
AW: Datensätze zählen
04.11.2005 10:27:52
Peter
Hallo Walter!
Ich habe deinen Vorschlag leider noch nicht ganz verstanden. Dass ich Excel sagen muss was es suchen soll ist das Problem. Ich könnte ein Makro schreiben mit ca. 1500 Namen drin, nach denen gesucht werden soll. Aber genau das möchte ich nicht :)
Wenn ich den Spezialfilter aufsetze und als Listenbereich die Spalte B angebe, in der die Namen stehen, sagt er mir: "Nur gefilterte Daten können in das aktive Blatt übertragen werden".
Anzeige

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge

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
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4