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
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:
[
attachment=4087]
Gruß Ralf
... 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
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.
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
Ergänzend:
Nach Umwandlung der Textzahlen in echte Zahlen funktioniert das.
Gruß Ralf
Vielen Dank euch allen :)
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.