Zählenwenn Formel ersetzen mit Makro
09.07.2021 07:28:56
Daniel
ich benötige bitte etwas Hilfe, da meine Kenntnisse nicht ganz ausreichen.
Ausgangsituation:
Excel Workbook mit 2 Blättern
Blatt 1 enthält Spalte A mit festen Daten
Blatt 2 ist variabel und wird immer wieder geändert, gelöscht, angepasst usw.
Nun prüfe ich auf Blatt 2 ob die Werte in Spalte B irgendwo in Spalte A auf Blatt 1 vorkommen.
Falls ja, wird in Blatt 2 in Spalte E eine 1 (wenn vorhanden) oder eine 0 (wenn nicht vorhanden) eingetragen.
Anfangs habe ich das manuell gemacht und meine Formel nach unten gezogen;
mittlerweile füge ich die Formel per Makro ein, was auch gut funktioniert.
Im Letzten Schritt ersetze ich nun in Blatt 2 die Spalte B mit E
Hier mein Makro:
Sub machs()
Dim Zeilenende As Long
Dim Zeilenende2 As Long
'Zielliste
With Sheets("Testliste")
Zeilenende2 = Sheets("Artikelliste").Cells(Rows.Count, 1).End(xlUp).Row
Zeilenende = .Cells(.Rows.Count, 1).End(xlUp).Row
' in E wird der Wert 0 oder 1 eingetragen
' ist der Wert aus B in der Artikelliste ab A2 bis Zeilenende vorhanden dann 1 ansonsten 0
.Range("E2:E" & Zeilenende).FormulaLocal = "=--(ZÄHLENWENN(Artikelliste!$A$2:$A$" & Zeilenende2 & ";B2)>0)"
End With
End Sub
ist es möglich, direkt in die Spalte B die 0 oder 1 einzutragen?
Mit meinem Makro ist das leider nicht möglich da sonst alle Zellen mit 0 befüllt werden