schaut Euch das bitte mal an
Mit diesem Code funktionierts !!
Sub Ein_L21800W1X() 'R410 STAND L21800 1ENDVOR einlesen
[B3].Select
ActiveCell.FormulaR1C1 = _
"=ATGetCurrVal(""L21800W1.X"",""IP21-G402"","""",1040,0,0)"
Range("B4").Select
End Sub
Mit diesem krieg ich Fehlemeldung
Sub Werte_R410()
Data = Array( _
Array("B3", "L21800W1.X", "IP21-G402", "", 1040, 0, 0), _
Array("B4", "L21800", "IP21-G402", "", 1040, 0, 0), _
Array("B5", "ANA21812.Y_Z", "IP21-G402", "", 1040, 0, 0), _
Array("B6", "ANA21808.Y_Z", "IP21-G402", "", 1040, 0, 0), _
Array("B12", "ANA21810.Y_Z", "IP21-G402", "", 1040, 0, 0) _
)
For i = 0 To UBound(Data)
Range(Data(i, 0)) = ATGetCurrVal(Data(i, 1), Data(i, 2), Data(i, 3), Data(i, 4), Data(i, 5))
Next
End Sub
Fehler
Sub oder
Function nicht definiert und ATGetCurrVal ist markiert
Hoffe es kann mir jemand weiterhelfen.
Gruss Bryan