doppelte finden

Hallo zusammen,
19 5 30 21 5 25 26 25 2 9 25 20 33 10 20 5 20
5 27 24 31 33 33 6 30 14 27 11 27 20 10 19 6 21
11 36 16 17 9 12 32 9 4 2 34 27 9 22 22 23 4
4 35 30 20 5 5 6 2 6 33 2 18 17 1 2 18 6
9 7 30 31 27 18 17 13 11 31 4 8 18 20 33 18 17
13 9 4 11 10 28 14 15 11 30 8 10 5 6 5 1 24
26 9 25 20 9 18 19 36 28 13 25 4 8 28 16 18 19
10 26 22 4 36 6 17 7 25 23 30 9 33 31 31 22 24
16 10 33 24 11 17 18 15 18 5 21 11 5 25 19 3 3
30 12 30 17 23 1 34 6 6 13 7 11 29 23 28 32 23
hiervon hab ich immer 60 Spalten die gehen runter bis 8.000. Ich müsste überprüfen, ob davon senkrechte Spalten doppel sind. Mit suchen und ersetzten komm ich nicht weiter, da ich ja senkrecht suchen muss und nicht waagerecht.
Ich würde mich über eine Idee freuen.
Lieben Gruss
Udo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Doppelte Einträge Annahme: Deine Werte stehen in A1 bis Axx A1 anwählen, Format, Bedingte Formatierung (bei bedingter Formatierung soll es eine Grenze von _ 2050 Zeilen geben, mal selber Testen) "Formel ist" auswählen NICHT "Zellwert ist" Bei der Formel eingeben =ZÄHLENWENN(A$1:A1;A1)>1 Bei Format dann z.B. Musterfarbe rot auswählen mit OK beenden. Die Formatierung auf Die Zellen A2 bis Axx kopieren. Fertig Dann werden Doppelt farblich gekennzeichnet oder kann man auch die Doppeleingabe selber verhindern: z.B. unter Daten, Gültigkeit, benutzerdefiniert Formel =ZÄHLENWENN(A:A;A1)=1 nach unten kopieren. Von Ulrich Schneider oder auch Unterscheidung Groß- und Kleinschreibung =SUMME(N(IDENTISCH(E2;$E$2:$E$22)))=1 nicht für Version 2007

Hallo Udo,
grundsätzlich kannst du mit folgender Formel prüfen, ob die Inhalte in 2 Spalten idetisch sind:

=SUMMENPRODUKT((A1:A8000B1:B8000)*1)

Das Ergebnis ist 0 , wenn die Spalten identisch sind.
Das Problem ist jetzt alle Kombinationen von 60 Spalten durchprüfen muss.
Das bekommt man meiner Meinung nach nur per VBA zügig gebacken.
Nachfolgend ein entsprechendes Makro.
Gruß
Franz

Sub SpaltenVergleich()
Dim Spalte1 As Long, Spalte2 As Long, Spalten As Long
Dim Zeile1 As Long, Zeile2 As Long
Zeile1 = 1
Zeile2 = 8000
Spalten = 60
Application.Calculation = xlCalculationManual
With Cells(1, Spalten + 1)
For Spalte1 = 1 To Spalten - 1
For Spalte2 = Spalte1 + 1 To Spalten
.FormulaR1C1 = "=SUMPRODUCT((R" & Zeile1 & "C" & Spalte1 _
& ":R" & Zeile2 & "C" & Spalte1 & " R" & Zeile1 & "C" & Spalte2 & ":R" _
& Zeile2 & "C" & Spalte2 & ")*1)"
.Calculate
If .Value = 0 Then
If MsgBox("Spalte " & Spalte1 & " und " & Spalte2 & " sind identisch", _
vbInformation + vbRetryCancel, "Spaltenvergleich") = vbCancel Then GoTo Beenden
End If
Next
Next
.ClearContents
End With
Application.Calculation = xlCalculationAutomatic
End Sub

Sub SpaltenVergleich() Dim Spalte1 As Long, Spalte2 As Long, Spalten As Long Dim Zeile1 As Long, Zeile2 As Long Zeile1 = 1 Zeile2 = 8000 Spalten = 60 Application.Calculation = xlCalculationManual With Cells(1, Spalten + 1) For Spalte1 = 1 To Spalten - 1 For Spalte2 = Spalte1 + 1 To Spalten .FormulaR1C1 = "=SUMPRODUCT((R" & Zeile1 & "C" & Spalte1 _ & ":R" & Zeile2 & "C" & Spalte1 & " R" & Zeile1 & "C" & Spalte2 & ":R" _ & Zeile2 & "C" & Spalte2 & ")*1)" .Calculate If .Value = 0 Then If MsgBox("Spalte " & Spalte1 & " und " & Spalte2 & " sind identisch", _ vbInformation + vbRetryCancel, "Spaltenvergleich") = vbCancel Then GoTo Beenden End If Next Next Beenden: .ClearContents End With Application.Calculation = xlCalculationAutomatic End Sub

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread