Übergabe von String aus Unterfunktion

[joejoeanf]

hallo!

ich bin anfänger un muss für ein projekt was programmieren..
folgendes Problem:

mein code:

Sub parameter_auslesen()
Dim l2, d2 As String


Call GetCATIA


End Sub



Function GetCATIA() As Object

Set catia = GetObject(, "CATIA.Application")
If catia Is Nothing Then
Set catia = CreateObject("CATIA.Application")
catia.Visible = True
End If

Set GetCATIA = catia



Dim documents1 As Object
Dim productDocument1 As Object
Dim partDocument1 As Object
Dim part1 As Object
Dim parameters1 As Object
Dim length1 As Object
Dim parameters2 As Object
Dim length2 As Object


Set catia = GetCATIA



Set documents1 = catia.Documents

Set productDocument1 = catia.ActiveDocument

Set partDocument1 = documents1.Item("Rohr.CATPart")

Set part1 = partDocument1.Part

Set parameters1 = part1.Parameters

Set length1 = parameters1.Item("Laenge")

Set parameters2 = part1.Parameters

Set length2 = parameters1.Item("Durchmesser")

l2 = length1.Value

d2 = length2.Value

End Function

ich möchte die werte l2 und d2 aus der Function ins Hauptprogramm übergeben

hat jemand ne lösung für mich

danke

joejoeanf

 

[Alex F.]

Mach es so

Dim l2, d2 As String


call  GetCatia (I2,D2)
call Msgbox ("i2" & i2 & vbtab & "d2 " & d2) 

Function GetCATIA(ByRef i2 as string,ByRef d2 as string) As Object
' blablabla deine Funtion

Grüsse bb

PS: Benutze bitte die [CODE][/CODE] oder [code=vb][/code] Tags , dann ist dein Code lesbarer

 

[joejoeanf]

danke ....

funktioniert aber net....

Fehlermeldung:

argumenttyp ByRef unverträglich

der curser (gelb hinterlegt) zeigt auf die ezile:

Sub parameter_auslesen()

?

irgenwelche lösungsvorschläge


danke

mfg

 

[Alex F.]

Der Fehler liegt hier

Dim l2, d2 As String

Deine erste Variable ist als Variant deklariert

mach es so

Dim l2 as string
Dim d2 As String

Dann funktioniert das auch

Grüsse bb

 

[joejoeanf]

danke

lg joejoeanf