Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1200to1204
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
Inhaltsverzeichnis

ohne array formel keine doppelten anzeigen ?

ohne array formel keine doppelten anzeigen ?
amintire
Hallo alle zusammen,
würde es mit einem VBA Code funktionieren Einträge anzuzeigen aber ohne die doppelten ? Also keine Dublikate zeigen.
Mit der Array Formel funktioniert es, aber da berechnet Excel zu lange und hängt teilweise dadurch.
Das wäre die Formel:
{=INDEX(Tabelle1!A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(Tabelle1!A$2;;; ZEILE(Tabelle1!$2:$99));Tabelle1!A$2:G$99)=1;ZEILE(Tabelle1!$2:$99));ZEILE(Tabelle1!A1))) }
Vielen Dank.
Lieben Gruß
Amina

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: ohne array formel keine doppelten anzeigen ?
25.02.2011 10:20:29
Beverly
Hi Amina,
vielleicht so:
Option Explicit
Option Base 1
Sub OhneDuplilate()
Dim arrWerte()
ReDim arrWerte(1)
Dim rngZelle As Range
Dim lngVorhanden As Long
Dim loZaehler As Long
arrWerte(1) = Range("A2")
For Each rngZelle In Range("A2:G99")
If rngZelle  "" Then
On Error Resume Next
lngVorhanden = Application.Match(rngZelle, arrWerte(), 0)
On Error GoTo 0
If lngVorhanden = 0 And rngZelle  arrWerte(1) Then
ReDim Preserve arrWerte(1 To UBound(arrWerte()) + 1)
arrWerte(UBound(arrWerte())) = rngZelle
End If
lngVorhanden = 0
End If
Next
Range("H1").Resize(UBound(arrWerte())) = WorksheetFunction.Transpose(arrWerte())
End Sub

Das Ergebnis wird in Spalte H ausgegeben.


Anzeige
AW: Danke
25.02.2011 11:18:21
amintire
Hallo Karin,
das ging ja schnell, vielen Dank.
Musste nur ("A2:G99") auf ("A2") ändern ;)
Lieben Gruß
Amina

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige