Function error: byRef

Bild

Betrifft: Function error: byRef von: Lars
Geschrieben am: 08.02.2005 14:10:45

Hallöchen zusammen,

Kurze Info: vba nein ist übertrieben. wird immer besser...

Nun zu meinem Prob. Er meckert bei meinem funktionsaufruf, wobei der wie unten stattfindet und die funktionsköpfe ebenso dastehen. :)
Genaue Fehlermeldung:
Fehler beim Kompilieren:
Argumenttyp byRef unverträglich
und markiert dabei das kleine a im Aufruf (s.u.)
Ich sehe da sein Prob net. er will integer in die Funktion reinhaben und ich gebe ihm integer... muß wohl was grundlegendes noch nicht verstanden haben.

MfG Lars


Dim a, b, c, d As Integer
a = suche1(DatenE.ComboBox1.Text)
If a (größer) 0 Then
DatenE.TeilprojektNr.Text = a
b = suche2(DatenE.Maßnahmenblock.Text, a)
(...)

Private Function suche1(search_1 As String) As Integer
Private Function suche2(search_1 As String, TP_id As Integer) As Integer

Bild


Betrifft: AW: Function error: byRef von: Ulf
Geschrieben am: 08.02.2005 14:13:43

Wenn du so deklarierst: Dim a, b, c, d As Integer
ist nur d ein Integer, alle anderen Variant, daher der Fehler!
Richtig ist:
Dim a as Integer, b as Integer, c as Integer, d as Integer

Ulf


Bild


Betrifft: AW: Function error: byRef von: Lars
Geschrieben am: 08.02.2005 14:38:51

Warum ist das leben nicht immer so herrlich einfach! :)
Danke! :)


Bild


Betrifft: AW: Function error: byRef von: Ulf
Geschrieben am: 08.02.2005 14:46:10

Ist es doch, oder?

Ulf


Bild


Betrifft: AW: Function error: byRef von: Lars
Geschrieben am: 08.02.2005 15:01:48

Leider nein, aber ich fürchte, das würde dann in den off-topic abschweifen! ;)
Aber das kleine prob ist schon mal aus der welt :)


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Checkbox über Makro"