ich möchte gerne mein Array auf gleiche Inhalte überprüfen.
Also in dem Array wird die Zeile 2 eingelsen. In dieser steht z.B.,
Zeile: Hund, Katze, Katze, Maus, Hund, usw.
Halsband: x x
Hundefutter: x x
Jetzt möchte ich den Array durchlaufen und sobald der Inhalt (z.B., Hund) doppelt vorkommt sollen diese spalten verbunden werden. Weil die Kreuze beim Hund immer die selben sind.
Ich hab bis jetzt folgenden Quellcode:
-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
Danke für eure Hilfe!VG