Sub hol_stationaer()
 
Call DDE_bereichloeschen
 
Sheets("AusS-T").Select
 
Kanalnummer = Application.DDEInitiate("STW", "CALCDATA")
 
' Test.Drucke "Daten holen"
Rückliste = Application.DDERequest(Kanalnummer, "StatBasis")
For j = LBound(Rückliste, 2) To UBound(Rückliste, 2)
  For I = LBound(Rückliste, 1) To UBound(Rückliste, 1)
    Application.Cells(I + 1, j).Value = Rückliste(I, j)
  Next I
Next j
'teilauszug des Codes

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET