Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Sub oder Function nicht definiert

Sub oder Function nicht definiert
19.03.2005 10:34:45
Bryan
Hallo Leute,
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

		

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sub oder Function nicht definiert
19.03.2005 13:22:23
ransi
hallo bryan
habe keine ahnung was AtGetCurrVal macht, aber in der ersten sub steht:
"FormulaR1C1 ="=ATGetCurrVal(""L21800W1.."
da vermute ich mal das das das eine function ist.
versuchs daher mal so:
Range(Data(i, 0)).Formula = "=ATGetCurrVal(Data(i, 1), Data(i, 2), Data(i, 3), Data(i, 4), Data(i, 5))"
ransi
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige