PDA

Vollständige Version anzeigen : Mehrfachnennungen ausweisen


wusti
22.07.2014, 06:50
Hallo,
ich habe ein dringendes "Problem.
Ich habe eine Liste mit Artikelnummern und möchte nur die ausweisen lassen, die mehr als 2x vorkommen
Als Beispiel:
110000
110001
110002
110000
110003
110004
110000

Nur die Nummer 110000 kommt 3 x vor und sollte ausgewiesen werden.

Hat wer von Euch eine Idee?

Danke und viele Grüße
wusti

Ishaell
22.07.2014, 06:58
Servus Wusti,

Was heisst für dich ausweisen?Markieren? Hervorheben oder an eine andere Stelle ohne Duplikate kopieren?

Gruss,
Isha

Mc Santa
22.07.2014, 07:33
Hallo,

unabhängig davon, wie die Ausgabe erfolgen soll, würde es helfen, wenn die Nummern sortiert wären. Kannst du das machen, oder ist das nicht möglich?

VG

wusti
22.07.2014, 08:13
Danke schon mal für die Reaktionen.
Ich kann die Nummern nicht sortieren, da sie unsortiert aus einer anderen Abfrage kommen.
Ich hätte gern die Nummern angezeigt, die größer als 2 sind-also separat in einer Zelle mit der Anzahl der Nennungen

Mc Santa
22.07.2014, 08:18
Hallo,

ich muss sagen, dass ich die Begründung, warum die Liste nicht sortiert werden kann, nicht nachvollziehen kann. Dass die Liste unsortiert bei dir ankommt, ist mir klar. Aber warum kannst du sie dann nicht mit der Excelfunktion sortieren? Muss die Reihenfolge erhalten bleiben? Wenn ja, warum?

Unabhängig davon, ist hier eine Formellösung, die auch bei unsortierter Liste funktioniert:
<br/><b><em>Tabelle1</em></b><table border="1" cellspacing="0" cellpadding="0" style="border-color:#000000; border-width: 1px; font-size:11pt; background-color:#ffffff; padding-left:2pt; padding-right:2pt; "><colgroup><col style="font-weight:bold; width:40px;" /><col style="width:97px;" /><col style="width:97px;" /><col style="width:97px;" /></colgroup><tr style="background-color:#99CCFF; text-align:center; font-weight:bold; "><td>&nbsp;</td><td>A</td><td>B</td><td>C</td></tr><tr><td style="background-color:#99CCFF; text-align:center; font-weight:bold; ">1</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">Daten</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">Hilfsspalte</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">Ergebnis</td></tr><tr><td style="background-color:#99CCFF; text-align:center; font-weight:bold; ">2</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">110000</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">3</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">3</td></tr><tr><td style="background-color:#99CCFF; text-align:center; font-weight:bold; ">3</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">110001</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">1</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">&nbsp;</td></tr><tr><td style="background-color:#99CCFF; text-align:center; font-weight:bold; ">4</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">110002</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">1</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">&nbsp;</td></tr><tr><td style="background-color:#99CCFF; text-align:center; font-weight:bold; ">5</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">110000</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">3</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">3</td></tr><tr><td style="background-color:#99CCFF; text-align:center; font-weight:bold; ">6</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">110003</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">1</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">&nbsp;</td></tr><tr><td style="background-color:#99CCFF; text-align:center; font-weight:bold; ">7</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">110004</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">1</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">&nbsp;</td></tr><tr><td style="background-color:#99CCFF; text-align:center; font-weight:bold; ">8</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">110000</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">3</td><td style=" color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:center; ">3</td></tr></table><br/><table border="1" cellspacing="0" cellpadding="0" style="border-color:#000000; border-width: 1px;font-size:11pt; background-color:#ffffff; width:800px;padding-left:2pt; padding-right:2pt; "><tr style="background-color:#FFCC66; text-align:center; font-weight:bold; "><td colspan="3" > verwendete Formeln </td><td> </td></tr><tr valign="top" style="background-color:#FFCC66; text-align:center; font-weight:bold; "><td> Zelle </td><td> Formel</td><td> Bereich </td> <td>N/A</td></tr><tr><td>B2:B8</td><td>=ZÄHLENWENN($A$2:$A$8;A2)</td><td>&nbsp;</td><td>&nbsp;</td></tr><tr><td>C2:C8</td><td>=WENN(B2&gt;2;B2;"")</td><td>&nbsp;</td><td>&nbsp;</td></tr></table><table cellspacing="0" cellpadding="0"><tr style="text-align:left; font-weight:bold; " class="style21"><td style="text-align:left; font-size: xx-small" ><a href="http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip" >Excel-Inn.de</a></td></tr> <tr style="text-align:left; font-weight:bold; " class="style21"><td style="text-align:left; font-size: xx-small" ><a href='http://Hajo-Excel.de/tools.htm' >Hajo-Excel.de</a></td></tr><tr style="text-align:left; font-weight:bold;" ><td style="text-align:left; font-size: xx-small" >XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007</td></tr><tr style="text-align:left; font-weight:bold; " ><td style="text-align:left; font-size: xx-small" > Add-In-Version 18.01 einschl. 64 Bit</td></tr></table><br/>

Hilft dir das weiter?

VG

wusti
22.07.2014, 08:34
Erklärung zur Nicht-Sortierung:
Die Artikelliste wird monatlich erstellt und als Datenbasis genutzt. Zusätzlich gibt es eine Gesamtliste, die sich monatlich alle nötigen Infos zieht. Diese Tabelle bearbeiten Leute, die nicht soviel Ahnung von Excel haben. Wenn ich denen sage, sie sollen noch sortieren geht alles schief. Deswegen wollte ich das mit Formeln lösen.

Danke für Deine Idee. Sie hilft mir noch nicht weiter. Ich brauche statt 3x den Artikel mit einer 3 angezeigt, den Artikel nur einmal angezeigt mit einer 3.
Besser noch: Zeige mir nur die Artikel an, die mindestens 3x in der Liste vorkommen.

Ich hoffe, ich konnte den Sachverhalt jetzt besser darstellen:)

VG wusti

xlph
22.07.2014, 08:38
Hallo,

hier eine mögliche Lösung.

Option Explicit

Public Sub Dict_KonsolidierenBeiVorkommenGroesser2_xlph()

Dim Dic As Object
Dim Wert As Variant

Set Dic = CreateObject("scripting.dictionary")

With Tabelle1.Range("A1").CurrentRegion.Columns(1)
For Each Wert In .Value
Dic(Wert) = Dic(Wert) + 1
Next
End With

For Each Wert In Dic.Keys
If Dic(Wert) <= 2 Then
Dic.Remove (Wert)
End If
Next

Tabelle2.Range("A1").CurrentRegion.Columns("A:B").ClearContents

If Dic.Count > 0 Then
Tabelle2.Range("A1").Resize(Dic.Count).Value = WorksheetFunction.Transpose(Dic.Keys)
Tabelle2.Range("B1").Resize(Dic.Count).Value = WorksheetFunction.Transpose(Dic.Items)
End If

Set Dic = Nothing

End Sub

ebs17
22.07.2014, 08:45
SELECT Artikelnummer, COUNT(*) AS Anzahl
FROM Tabelle1$
GROUP BY Artikelnummer
HAVING COUNT(*) > 2
(ADO und Excel (http://www.online-excel.de/excel/singsel_vba.php?f=135))

RPP63neu
22.07.2014, 09:19
Hallo!
Mal eine andere Herangehensweise ...
Ich gehe mal bei mir davon aus, dass Spalte F ud G frei sind.
(Man kann natürlich auch ein neues Sheet nehmen)
Hier wird jetzt die Auswertung hereingeschrieben.
Sub AnzahlErmitteln()
Dim letzeZeile As Long
With Tabelle1 'Tabellen-Codename anpassen
.Columns("F:G").ClearContents
.Columns("A:A").Copy Columns("F:F")
.Columns("F:F").RemoveDuplicates Columns:=1, Header:=xlGuess
letzeZeile = .Cells(.Rows.Count, 6).End(xlUp).Row 'für Spalte F = 6
.Range("G1") = "Häufigkeit"
.Range("G2:G" & letzeZeile).FormulaR1C1 = "=COUNTIF(C[-6],RC[-1])" 'in Spalte G
End With
End Sub
Das führt dann zu so etwas:

<table border='1' cellspacing='0' cellpadding='2' valign='middle' colspan='5' style='font-family:Calibri; color:#000000; background-color:#FFFFFF; font-size:11px; font-weight:normal; font-style:normal; '><colgroup><col width='28pt'><col width='60pt'><col width='16,5pt'><col width='60pt'><col width='60pt'></colgroup><tr style='background-color:#cacaca'><td>*</td><td align='middle'>A</td><td align='middle'>E</td><td align='middle'>F</td><td align='middle'>G</td></tr><tr><td style='background-color:#cacaca' align='middle'>1</td><td align='left' >Art.Nr</td><td align='right' >*</td><td align='left' >Art.Nr</td><td align='left' >Häufigkeit</td></tr><tr><td style='background-color:#cacaca' align='middle'>2</td><td align='right' >110000</td><td align='right' >*</td><td align='right' >110000</td><td align='right' >3</td></tr><tr><td style='background-color:#cacaca' align='middle'>3</td><td align='right' >110001</td><td align='right' >*</td><td align='right' >110001</td><td align='right' >1</td></tr><tr><td style='background-color:#cacaca' align='middle'>4</td><td align='right' >110002</td><td align='right' >*</td><td align='right' >110002</td><td align='right' >1</td></tr><tr><td style='background-color:#cacaca' align='middle'>5</td><td align='right' >110000</td><td align='right' >*</td><td align='right' >110003</td><td align='right' >1</td></tr><tr><td style='background-color:#cacaca' align='middle'>6</td><td align='right' >110003</td><td align='right' >*</td><td align='right' >110004</td><td align='right' >1</td></tr><tr><td style='background-color:#cacaca' align='middle'>7</td><td align='right' >110004</td><td align='right' >*</td><td align='right' >*</td><td align='right' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>8</td><td align='right' >110000</td><td align='right' >*</td><td align='right' >*</td><td align='right' >*</td></tr></table><br><table border='3' cellspacing='0' cellpadding='2' valign='middle' colspan='2' style='table-layout:auto; color:#000000; background-color:#FFFFFF; font-family:Calibri; font-size:10px;'><colgroup><col width='40pt'><col></colgroup><tr style='background-color:#eeaaaa'><td>Zelle</td><td>Formel</td></tr><tr><td>G2</td><td><Span style='color:#222222'>=ZÄHLENWENN</Span><Span style='color:#0000DD'>(A:A;F2)</Span><Span style='color:#222222'></Span></td></tr></table>

Hier kannst Du natürlich nach Anzahl filtern oder sortieren und per ben.def. Formatierung kennzeichnen.

Gruß, Ralf

wusti
22.07.2014, 09:51
Danke super!!!!!

Hasso
22.07.2014, 13:39
Hallo McSanta,

wozu die Hilfsspalte?


<b>Tabelle1</b><br /><br /><table border="1" cellspacing="0" cellpadding="0" style="font-family:Calibri,Arial; font-size:11pt; background-color:#ffffff; padding-left:2pt; padding-right:2pt; "> <colgroup><col style="font-weight:bold; width:30px; " /><col style="width:80px;" /><col style="width:80px;" /></colgroup><tr style="background-color:#cacaca; text-align:center; font-weight:bold; font-size:8pt; "><td >&nbsp;</td><td >A</td><td >B</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >1</td><td >Daten</td><td >Ergebnis</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >2</td><td style="text-align:right; ">110000</td><td style="text-align:right; ">3</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >3</td><td style="text-align:right; ">110001</td><td >&nbsp;</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >4</td><td style="text-align:right; ">110002</td><td >&nbsp;</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >5</td><td style="text-align:right; ">110000</td><td style="text-align:right; ">3</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >6</td><td style="text-align:right; ">110003</td><td >&nbsp;</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >7</td><td style="text-align:right; ">110004</td><td >&nbsp;</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >8</td><td style="text-align:right; ">110000</td><td style="text-align:right; ">3</td></tr></table><br /><table style="font-family:Arial; font-size:10pt; border-style: groove ;border-color:#00ff00;background-color:#fffcf9; color:#000000; "><tr><td ><b>Formeln der Tabelle</b></td></tr><tr><td ><table border = "1" cellspacing="0" cellpadding="2" style="font-family:Arial; font-size:9pt;"><tr style="background-color:#cacaca; font-size:10pt;"><td >Zelle</td><td >Formel</td></tr><tr><td >B2</td><td >=WENN(Z&Auml;HLENWENN<span style=' color:008000; '>($A$2:$A$8;A2)</span>&gt;2;Z&Auml;HLENWENN<span style=' color:008000; '>($A$2:$A$8;A2)</span>;"")</td></tr><tr><td >B3</td><td >=WENN(Z&Auml;HLENWENN<span style=' color:008000; '>($A$2:$A$8;A3)</span>&gt;2;Z&Auml;HLENWENN<span style=' color:008000; '>($A$2:$A$8;A3)</span>;"")</td></tr><tr><td >B4</td><td >=WENN(Z&Auml;HLENWENN<span style=' color:008000; '>($A$2:$A$8;A4)</span>&gt;2;Z&Auml;HLENWENN<span style=' color:008000; '>($A$2:$A$8;A4)</span>;"")</td></tr><tr><td >B5</td><td >=WENN(Z&Auml;HLENWENN<span style=' color:008000; '>($A$2:$A$8;A5)</span>&gt;2;Z&Auml;HLENWENN<span style=' color:008000; '>($A$2:$A$8;A5)</span>;"")</td></tr><tr><td >B6</td><td >=WENN(Z&Auml;HLENWENN<span style=' color:008000; '>($A$2:$A$8;A6)</span>&gt;2;Z&Auml;HLENWENN<span style=' color:008000; '>($A$2:$A$8;A6)</span>;"")</td></tr><tr><td >B7</td><td >=WENN(Z&Auml;HLENWENN<span style=' color:008000; '>($A$2:$A$8;A7)</span>&gt;2;Z&Auml;HLENWENN<span style=' color:008000; '>($A$2:$A$8;A7)</span>;"")</td></tr><tr><td >B8</td><td >=WENN(Z&Auml;HLENWENN<span style=' color:008000; '>($A$2:$A$8;A8)</span>&gt;2;Z&Auml;HLENWENN<span style=' color:008000; '>($A$2:$A$8;A8)</span>;"")</td></tr></table></td></tr></table> <br /><br /><span style="font-family:Arial; font-size:9pt; font-weight:bold;background-color:#ffffff; color:#000000; ">Excel Tabellen im Web darstellen &gt;&gt; </span><a style ="font-family:Arial; font-size:9pt; color:#fcf507; background-color:#800040; font-weight:bold;" href="http://www.excel-jeanie-html.de" target="_blank"> Excel Jeanie HTML 4 </a>

Mc Santa
22.07.2014, 14:48
Hallo McSanta,

wozu die Hilfsspalte?


Um die Berechnungszeit zu halbieren. Ich wusste ja nicht, wie groß seine Tabelle ist :)

VG