Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
336to340
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
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

doppelte einträge

doppelte einträge
11.11.2003 17:49:21
chri
hallo,

wie kann ich in einem excel-sheet doppelte einträge aus spalte a in spalte b auswerfen, dh ich möchte jeden eintrag der in spalte a doppelt ist auch in spalte b haben.

danke

chri

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: doppelte einträge
11.11.2003 18:12:48
Nepumuk
Hallo chri,
so geht's:


Option Explicit
Public Sub doppelte()
Dim varArray() As Variant, lngZeile1 As Long, lngZeile2 As Long
Application.ScreenUpdating = False
ReDim varArray(1 To Cells(65536, 1).End(xlUp).Row)
varArray = Range(Cells(1, 1), Cells(Cells(65536, 1).End(xlUp).Row, 1))
For lngZeile1 = 1 To Cells(65536, 1).End(xlUp).Row - 1
For lngZeile2 = lngZeile1 + 1 To Cells(65536, 1).End(xlUp).Row
If varArray(lngZeile1, 1) = varArray(lngZeile2, 1) Then Cells(lngZeile2, 2) = varArray(lngZeile2, 1)
Next
Next
Application.ScreenUpdating = True
End Sub



Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige