AW: Doppelter Datensatz mit Zeilennummer auflisten
25.04.2009 07:36:01
ransi
Hallo
PAcke diesen Code mal in ein Modul:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Public Function machs(bereich) As String
Dim vntOut As Variant
Dim objDic As Object
Dim Zelle As Range
Set objDic = CreateObject("Scripting.Dictionary")
For Each Zelle In bereich
With Zelle
' If .Value <> "" Then
If Not objDic.exists(.Value) Then
objDic(.Value) = "#####" & .Row
Else:
objDic(.Value) = Replace(objDic(.Value), "#####", "") & "," & .Row
End If
' End If
End With
Next
vntOut = Filter(objDic.Items, "#####", False)
machs = Join(vntOut, ",")
End Function
Der Aufruf geht dann ganz einfach so:
Tabelle1
| A | B | C | D |
1 | 2,6,3,7 | | | Daten in D |
2 | | | | 9 |
3 | | | | 21 |
4 | | | | 8 |
5 | | | | |
6 | | | | 9 |
7 | | | | 21 |
8 | | | | 1 |
9 | | | | 10 |
10 | | | | |
Formeln der Tabelle |
Zelle | Formel | A1 | =machs(D2:D10) |
|
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi