Vergleich von Spalten

[sveninho11]

Hallo,

ich habe 12 Monatsspalten mit den dazugehörigen Artikelnummern.

Es kann jedoch vorkommen das im Januar nicht alle Artikel aufgelistet sind wie im Dezember, sondern neue dazugekommen sind.

Jetzt bräuchte ich einfach einen neue Spalte mit all den Artikelnr (nur 1x) die im Jahr vorgekommen sind..

Beispiel ist im Anhang. Evtl mit einem Vergleich?

Grúß

Sven

[RPP63]

Hallo!
Als erstes solltest Du die Textzahlen in richtige Zahlen umwandeln, zum Beispiel mit diesem Makro:

Sub TextzahlenUmwandeln()

Dim Zelle As Range

Application.ScreenUpdating = False

With ActiveSheet.Range("A:L") '###hier die Spalte auswählen!### 

  For Each Zelle In .SpecialCells(xlCellTypeConstants)

     If IsNumeric(Zelle) Then

        Zelle = CDbl(Zelle)

     End If

  Next

End With

End Sub

Als nächstes ermittelst Du mit =Anzahl(A:L) in einer beliebigen Zelle die Gesamtzahl der Art.-Nr., nämlich 1523

Dann F5 drücken, N1:N1523 eingeben Enter, damit ist der Bereich markiert.

Formel: =KKLEINSTE(A:L;ZEILE()) eingeben und mit Strg+Enter abschließen

Spalte kopieren, und als Wert einfügen.

Spalte markiert lassen, Daten, Duplikate entfernen für Spalte N

Ergebnis:
   

Gruß Ralf

[RPP63]

... und als Full Service  :21: mal alles in ein Makro gepackt:

Sub MachsMirMal()
Dim Zelle As Range
Application.ScreenUpdating = False
With ActiveSheet.Range("A:L") '###hier die Spalte auswählen!### 
  For Each Zelle In .SpecialCells(xlCellTypeConstants)
     If IsNumeric(Zelle) Then Zelle = CDbl(Zelle)
  Next
End With
With ActiveSheet.Range("N1:N" & WorksheetFunction.Count(ActiveSheet.Range("A:L")))
   .Formula = "=SMALL(A:L,ROW())"
   .Formula = .Value
End With
ActiveSheet.Columns("N").RemoveDuplicates 1, xlNo
End Sub

Gruß Ralf

[BoskoBiati]

Hallo,

mit einer einfachen Matrixformel in N6, N5 ist leer:

Code:

=MIN(WENN($A$6:$L$190>N5;$A$6:$L$190))

Matrixformel! Mit STRG+SHIFT+ENTER abschließen.

Ach ja, umwandeln der Texte in Zahlen:

in eine leere Zelle eine 1 schreiben, diese Zelle kopieren, ganzen Zahlenbereich markieren, Inhalte einfügen, multiplizieren.

[RPP63]

Hi Bosko!
Bei mir kommt da immer 0 heraus:

	L	M	N
5
6	27		0
7	400		0
8	485		0
9	630		0
10	631		0
11	880		0
12	957		0

Formeln der Tabelle

Zelle Formel N6 {=MIN(WENN($A$6:$L$190>N5;$A$6:$L$190))}

Enthält Matrixformel: Umrandende { } nicht miteingeben, sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Gruß Ralf

[RPP63]

Ergänzend:
Nach Umwandlung der Textzahlen in echte Zahlen funktioniert das.


Gruß Ralf

[BoskoBiati]

Hallo,

Tabelle1

	N
6	1
7	3
8	4
9	5
10	6
11	7
12	8
13	9
14	10
15	12
16	14
17	19
18	22
19	27
20	28
21	30
22	33
23	38
24	39
25	400

Formeln der Tabelle

Zelle Formel N6 {=MIN(WENN($A$6:$L$190>N5;$A$6:$L$190))}

Enthält Matrixformel: Umrandende { } nicht miteingeben, sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

[sveninho11]

Vielen Dank euch allen :)

[BoskoBiati]

Hallo,

als Bonbon noch eine Formel, die alle Artikelnummern auflistet, die nur einmal auftauchen:

Code:

=MIN(WENN(($A$6:$L$190>O5)*(ZÄHLENWENN($A$6:$L$190;$A$6:$L$190)=1);$A$6:$L$190))

in O6, ebenfalls eine Matrixformel. Kann etwas dauern, bis der Rechner fertig ist.