Hallo lorf55,
der Fehler tritt auf bei:
xlSheet.Application.Range(xlSheet.Application.Selection, _
xlSheet.Application.Selection.End(xlToRight)).Select
Ich hab das nochmal ein bisschen eingegrenzt. Mein Access mag
den Befehl 'xlSheet.Application.Selection.End(xlToRight)' nicht.
folgende Befehle machen kein Problem:
xlSheet.Application.Range(xlSheet.Application.Selection,
xlSheet.Application.Selection).Select
xlSheet.Application.Range(xlSheet.Application.Selection, "B1").Select
Was meinst du mit 'in Access programmiert'? Den Code habe ich
doch oben (Antwort 9) schon geschrieben. Das soll natürlich nicht
die Endfassung sein, aber ich denke für die Problemschilderung
reicht's, oder?
Hab übrigens Office 2010. In meinem Excel2010 klappt es auch
(natürlich ohne xlApp etc.), daher wundert mich das ja auch alles...
Gruß