Arrayfelder auf Gleichheit prüfen

-Das hier ist die Zeile wo steht Hund, Katze, etc. arrayGleich = Range(Cells(2, 8), Cells(2, 200)) For lZeileGleich = 1 To UBound(arrayGleich) 'alle Zeilen For lSpalteGleich = 1 To UBound(arrayGleich, 2) 'alle Spalten If arrayGleich(lZeileGleich, lSpalteGleich) =arrayGleich(lZeileGleich + 1, lSpalteGleich + 1) _ Then MsgBox "Gleicher Wert wurde gefunden" End If Next lSpalteGleich Next lZeileGleich

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stefanie,
ich kann zwar in etwa nachvollziehen was du möchtest, aber welchen Sinn soll das machen eine Tabelle durch verbundene Zellen in den Zeilen zu zerfleddern?
Nachfolgend ein Makro das deine Wünsche zufriedenstellen sollte.
Es muss eine weitere innere Schleife eingebaut werden, die die Namen jeweils bis zum Ende vergleicht, um einen doppelten Wert zu finden.
Gruß
Franz

Sub aaTest()
Dim arrayGleich, lZeileGleich, lSpalteGleich, lSpalteGleich2
'Zellbereich von H2 bis zum Ende der Liste nach rechts
arrayGleich = Range(Cells(2, 8), Cells(Cells(Rows.Count, 1).End(xlUp).Row, Cells(2, Columns. _
Count).End(xlToLeft).Column))
For lZeileGleich = 2 To UBound(arrayGleich) 'alle Zeilen
'Spalten abarbeiten
For lSpalteGleich = 1 To UBound(arrayGleich, 2) 'alle Spalten
'Werte mit restlichen Werten in Zeile vergleichen
For lSpalteGleich2 = lSpalteGleich + 1 To UBound(arrayGleich, 2) 'alle Spalten
'Werte in Zeile 1 vergleichen
If arrayGleich(1, lSpalteGleich) = arrayGleich(1, lSpalteGleich2) Then
'Prüfen, ob "x" in beiden Zellen in der Zeile
If arrayGleich(lZeileGleich, lSpalteGleich) = "x" _
And arrayGleich(lZeileGleich, lSpalteGleich2) = "x" Then
MsgBox "Gleicher Wert wurde gefunden"
Application.DisplayAlerts = False
Range(Cells(lZeileGleich + 1, lSpalteGleich + 7), _
Cells(lZeileGleich + 1, lSpalteGleich2 + 7)).Merge
Application.DisplayAlerts = True
Exit For
End If
End If
Next lSpalteGleich2
Next lSpalteGleich
Next lZeileGleich
End Sub

…Stefanie,
und dich, nebenbei, für unhöflich, da du bisher (und wohl auch sonst öfter) kein Feedback gegeben hast (bzw gibst).
Solche VerbundZellen sind idR per sé nur sinnvoll, wenn dadurch gleiche Einträge in einer ListenSpalte nur einmal erscheinen sollen, um die übliche Tabellenform zu erreichen. Dabei ist es wg möglicher Filterungen besser, die mehrfachen Werte in ihren Zellen zu belassen (eine VerbundZelle kann trotzdem erzeugt wdn!).
Da hier aber die Einträge zu den Daten stets gleich sind, dürfte es besser sein, die Duplikate zu entfernen, nicht die betroffenen Zellen zu verbinden. Dies könnte mit dem gleichen Tool-Set erfolgen, mit dem auch gleichinhaltige Zellen verbunden wdn können, falls diese Zellen aufeinanderfolgend in einer Spalte angeordnet sind, was ggf durch Transposition (MTRANS) und Sortierung erreicht wdn kann.
Nähere Infos nur bei bekundetem Interesse!
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

Arrayfelder auf Gleichheit prüfen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread