Range über alle Tabellenblätter vergleichen

Guten Abend zusammen,

ich habe schon viel hier lesen können und bin eher stiller Teilhaber, aktuell bin ich jedoch auf etwas gestoßen, bei dem ich nicht weiter komme, weshalb ich nun doch mal selbst aktiv schreibe.

Ich habe auf einem Tabellenblatt eine Range("A1:D3"), welche sich auch auf allen anderen Arbeitsblättern wiederfindet. Nun möchte ich mittels VBA testen, ob in den gleichen Zellen der anderen Arbeitsblätter die gleichen Daten vorhanden sind, also ob es in diesem Bereich exakte Kopien gibt.

Mein Code sieht bisher so aus, funktioniert jedoch nicht, vermutlich, weil es nicht möglich ist die gesamte Range auf einmal zu vergleichen?

Sheet(Tabellenname) ist in diesem Fall die ursprüngliche Tabelle, dessen Daten innerhalb der Range mit den Daten innerhalb der gleichen Range auf den anderen Tabellenblättern verglichen werden soll.


 Dim WS_Count As Integer
 Dim i As Integer

WS_Count = ActiveWorkbook.Worksheets.Count

For i = 1 To WS_Count
    If ActiveWorkbook.Worksheets(i).Range("A1:D3") = Sheets(Tabellenname).Range("A1:D3") Then
        MsgBox "Dublikat vorhanden! Tabellenblatt " & ActiveWorkbook.Worksheets(i).Name
    End If
Next

 Dim WS_Count As Integer
 Dim i As Integer

WS_Count = ActiveWorkbook.Worksheets.Count

For i = 1 To WS_Count
    If ActiveWorkbook.Worksheets(i).Range("A1:D3") = Sheets(Tabellenname).Range("A1:D3") Then
        MsgBox "Dublikat vorhanden! Tabellenblatt " & ActiveWorkbook.Worksheets(i).Name
    End If
Next

Welche einfachen Lösungen habt ihr parat das Problem zu lösen?

Ich danke euch im Voraus für die Hilfe :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub vergl() Dim sVergltext$, sDupltext$, sBasisText$ Dim rng As Range Dim ws As Worksheet For Each rng In Worksheets("Tabellenname").Range("A1:D3").Cells sBasisText = sBasisText & rng.Value & "|" Next For Each ws In ActiveWorkbook.Worksheets If ws.Name > "Tabellename" Then sVergltext$ = "" For Each rng In ws.Range("A1:D3").Cells sVergltext = sVergltext & rng.Value & "|" Next If sVergltext = sBasisText Then sDupltext = sDupltext & vbLf & ws.Name End If End If Next If Len(sDupltext) > 0 Then MsgBox "Dublikat vorhanden! Tabellenblatt " & sDupltext else MsgBox " Kein! Dublikat vorhanden. " End If End Sub

Sub Unit() Dim Wsh As Worksheet, V As Variant, V2 As Variant, Duplikat As String Duplikat = "Duplikat(e) in:" V = Tabelle1.Range("A1:D3") For Each Wsh In ThisWorkbook.Worksheets If Wsh.Name > Tabelle1.Name Then V2 = Wsh.Range("A1:D3") For X = UBound(V, 1) To 1 Step -1 For Y = UBound(V, 2) To 1 Step -1 If V(X, Y) > V2(X, Y) Then GoTo ex Next Next ex: If X = 0 Then Duplikat = Duplikat & vbLf & Wsh.Name End If Next If Right(Duplikat, 1) = ":" Then MsgBox "Keine Duplikate" Else MsgBox Duplikat End If End Sub

Beliebteste Forumthreads (12 Monate)

Range über alle Tabellenblätter vergleichen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Range über alle Tabellenblätter vergleichen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread