Wenn Zellwert in Spalte dann
27.12.2020 10:10:47
Daniel
ich komme aufgrund mangelnder VBA Kenntnisse nicht weiter; auch nicht mit dem Makro Recorder.
Ich habe in Tabelle 1 in Spalte K und Tabelle 2 in Spalte A Werte stehen;
wenn nun der Wert aus Tabelle1 , Spalte K irgendwo in Tabelle 2 Spalte A vorkommt, soll der Wert von Tabelle 1 in "1" geändert werden.
Tabelle 2 wird immer wieder erweitert und Tabelle 1 hat wechselnde Einträge.
Kann mir da jemand helfen bitte.
Eigentlich dachte ich, das wäre einfach. Prüfen ob Wert da wenn ja, mach das, wenn mach das.
LastRow = Range("A1000").End(xlUp).Row
' ab Zeile 2 arbeiten
For Zle = 2 To LastRow
If Range("K" & Zle).Value = Sheets("Tabelle2").Range("A:A") Then
' do nothing
Else
Range("K" & Zle).Value = "1"
End If
Next