Dim kanal As Long
Dim wert  As Variant
Dim zahl As Long
Dim i    As Integer
Dim index As String


kanal = DDEInitiate("EXCEL", "C:\Mappe1.xls")

For i = 1 To 10
    index = "Z1S" & CStr(i)
    
    wert = DDERequest(kanal, index)
    zahl = CInt(wert)
    
Next i

DDETerminate (kanal)


End Sub