Makro/VBA:Summenprodukt m. variabler letzter Zeile

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

wäre super wenn mir jemand helfen kann. Würde gerne per Makro Eigenschaften/Felder zweier Tabellen vergleichen bzw. „ein X setzen“ und mach das über WENN((SUMMENPRODUKT… bzw. über IF((SUM…

Sheets("Tabelle1").Select
...
 Range("AI2").Select
 ActiveCell.FormulaR1C1 = \_
 "=IF((SUMPRODUCT((Tabelle2!R2C1:R150C1=RC[-32])\*(Tabelle2!R2C2:R150C2=RC[-6])\*(Tabelle2!R2C4:R150C4=""X"")))\>0,""X"","""")"

Das ganze funktioniert auch soweit einwandfrei, allerdings wirde die Bezugstabelle ca. 7000 Zeilen aufweisen (in der Entwicklung nur 150) und es können über die Dauer weitere Zeilen hinzukommen.

Daher wäre die Frage durch was ich den fixen Zeilenbezug – Tabelle2!R2C1:R 150 C1=RC[-32]) – austauschen kann, dass er variabel immer bis zur letzten Zeile geht und man das Makro nicht ständig anpassen muss.

Dabei ist Tabelle2 ein weiteres Blatt in der selben Excel-Datei.

Danke schon mal für Eure Hilfe

2

Hallo F,

lass die Select weg.

Sub tt()
Dim Zei As Long
Zei = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Tabelle1").Range("AI2").FormulaR1C1 = \_
 "=IF((SUMPRODUCT((Tabelle2!R2C1:R" & Zei & "C1=RC[-32])\*" \_
 & "(Tabelle2!R2C2:R" & Zei & "C2=RC[-6])\*(Tabelle2!R2C4:R" \_
 & Zei & "C4=""X"")))\>0,""X"","""")"
End Sub

Gruß
Reinhard

3

Merci vielmals…
hat perfekt geklappt!