Moin,
versuchs mal so:
testVariable1 = Workbooks("Anschreibengenerator_Neu.xlsm").Worksheets(Testanschreiben).Cells(3, 1).value
oder so:
testVariable1 = Workbooks("Anschreibengenerator_Neu.xlsm").Worksheets(Testanschreiben).Cells(3, 1).text
mfg