Ohje in meiner letzten Antwort ist ein kleiner Fehler.
Die Zeile :
wsfilt.Range("D" & i & ":E" & i).Value = strvariable
sollte so lauten:
wsfilt.Range("D" & i).Value=strvariable
Der Fehler hat sich im Zuge der vielen Testversuche eingeschlichen.