Hallo Leute ,
ich verzweifel hier gerade an einem wahrscheinlich kleinem Fehler.
ich habe ein Makro geschrieben welches am anfag ein paar Daten abfragt und diese dann mit den im Array gespeicherten Daten abgleicht.
Bei der Vergleichsroutine (For-to-next) bekomme ich jedoch im Trefferfall immer die Fehlermeldung :
Sub- oder Funktions-Procedure nicht definiert.
Hier nun der Code dazu ..
Die Variable Check diente mir nur dem debuggen aber hilft mir irgendwie nicht weiter . Den Inhalt der Arrays hab ich aus Datenschutzgründen entfernt . Beide Arrays beinhalten gleich viele (13) Einträge.
Code: Alles auswählen
dim sModel as string
dim mModel as variant
dim sNo as string
dim mNo as variant
dim sArtNo as variant
dim count as integer
dim sWer as string
dim check as string
dim document as object
dim dispatcher as object
mModel = Array(...)
mNo = Array(...)
sModel="..."
for count=0 to 12
check=mModel(count)
if sModel=mModel(count) then
sArtNo = "3140-" & mArtNo(count)
end if
next
rem Artikelnummer
args1(0).Value = "$E$30" rem noch anpassen
args2(0).Value = sArtNo
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
Ich hoffe es kann mir jemand sagen wo der Fehler liegt.
Achja , der inhalt von sArtNo soll anschließend in eine Zelle geschrieben werden.
Danke für eure Mühe schonmal vorweg !