Hallo Mase und das Forum,
ich habe meinen Code angepasst aber die Abfrage funktioniert leider nicht.
......
With Worksheets("Test")
If Not .Cells(.Rows.Count, 2).End(xlUp).Offset(1, -1).Value = "Antwort" Then
With Worksheets("Test")
.Cells(.Rows.Count, 2).End(xlUp).Offset(1).Value = "Antwort",
....
Weiterer Code: Else.. Neues Wort raussuchen und Sub wiederholen.
Ich möchte die Nachbarzelle abfragen, bevor nun das Wort "Antwort" hineingeschrieben wird.
/ Abgleich mit der linken Nachbarzelle.
Folgend soll der Wert in die nächste freie Zelle der Spalte 2 hineingeschrieben werden, wenn er sich von der Nachbarzelle unterscheidet.
Jedoch findet die Abfrage nicht statt und auf ein Duplikat wird nicht geachtet.
Ich bin für jeden Tipp dankbar.
|