doppelte kopieren ohne sortieren
Christoph
Hi Markus,
Je nach Größe der Tabelle wird das kompliziert. Du müsstest die Werte in ein Array einlesen, innerhalb des Array sortieren, hier jene Werte die du haben willst (in dem Fall die doppelten) an ein zweites Array übergeben und dann kannst du das zweite Array in die neue Tabelle schreiben.
Dafür müsste man aber wissen, wie deine Tabelle aufgebaut ist und strukturiert ist.
Das ganze geht im "kleinen" Stil auch mit For-Schleifen o.ä., läuft dann aber entsprechend langsam.
mal als Bsp:
(hier werden die mehrfach vorkommenden Werte von Tabelle1 jeweils einmal in Tabelle2 geschrieben - wenn nicht noch irgendwo ein Fehler drin ist...).
Gruß
Christoph
('ne Rückmeldung wäre nett)
Option Explicit
Sub KopierDoppelte()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, m As Integer
Dim BlnGefunden As Boolean
Set ws1 = Sheets("Tabelle1")
Set ws2 = Sheets("Tabelle2")
k = 1
For i = 1 To 20
BlnGefunden = False
For j = i + 1 To 20
If ws1.Cells(j, 1) = ws1.Cells(i, 1) Then
For m = 1 To k
If ws1.Cells(j, 1) = ws2.Cells(m, 1) Then
BlnGefunden = True
Exit For
End If
Next m
If BlnGefunden = False Then
k = k + 1
ws1.Cells(j, 1).Copy ws2.Cells(k, 1)
End If
End If
Next j
Next i
End Sub