In etwa so...
02.07.2015 11:08:45
Frank
Hallo Daniel,
auch von mir nochmal der Rüffel, dass ein Bild zwar mehr sagt, als tausend Worte, man sich aber bei einer Beispieldatei auch die tausend Worte sparen kann.
EgB='hier muss der Blattname der Eingabeliste hin
AgB='hier muss der Name der Zusammenfassung hin
eZNL='hier muss die Zeilennummerhin, in der der erste Eintrag der Eingabeliste steht
'in deinem Bildchen die Zeile mit XX YY
SpNrE='hier muss die Spaltennummer hin, wo 'Einladung' drinstehen soll
SpNrN='hier muss die Spaltennummer des Namens hin
SpNrV='hier muss die Spaltennummer des Vornamens hin
lZE=Sheets(EgB).range("A1000").End(xlUp).Row
for i=eZNL to lZE
if instr(1,Sheets(EgB).cells(i,SpNrE).value,"Einladung")>0 then
lZA=Sheets(AgB).range("A1000").End(xlUp).Row
Sheets(AgB).cells(lZA,1).value=Sheets(EgB).cells(i,SpNrV).value
Sheets(AgB).cells(lZA,2).value=Sheets(EgB).cells(i,SpNrN).value
endif
next
Grüsse,
Frank