Ist es möglich durch ein Macro Zellen in verschiedenen Sheets auf Gleichheit zu überprüfen..
d.h. ich habe 12 Sheets möchte die Zelle A2 im Sheet1 mit der Zelle A2 im Sheet2 usw vergleichen.
Danke schonmal.
Sub ab()
If Sheets("Tabelle1").[A2] = Sheets("Tabelle2").[A2] Then
MsgBox "Ist gleich!!"
Else
MsgBox "Ungleich!!"
End If
End Sub
Sub aab()
Dim i As Integer
For i = 2 To Worksheets.Count
If Sheets("Tabelle1").[A2] = Sheets("Tabelle" & i).[A2] Then
MsgBox "Tabelle " & i & " Ist gleich!!"
Else
MsgBox "Tabelle " & i & " Ungleich!!"
End If
Next
End Sub
Sub köbi()
Dim i As Integer
For i = 2 To Worksheets.Count
If Sheets("Tabelle1").Range("A5:D25") = Sheets("Tabelle" & i).Range("A5:D25") Then
MsgBox "Tabelle " & i & " Ist gleich!!"
Else
MsgBox "Tabelle " & i & " Ungleich!!"
End If
Next
End Sub
Sub köbi()
Dim i As Integer, n As Integer, gleich As Boolean
Dim ber1 As Range, ber2 As Range
Set ber1 = Sheets("Tabelle1").Range("A5:D25")
For i = 2 To Worksheets.Count
gleich = True
Set ber2 = Sheets("Tabelle" & i).Range("A5:D25")
For n = 1 To ber1.Cells.Count
If ber1(n) <> ber2(n) Then
gleich = False
Exit For
End If
Next n
If gleich = True Then
MsgBox "Tabelle " & i & " Ist gleich!!"
Else
MsgBox "Tabelle " & i & " Ungleich!!"
End If
Next i
End Sub