Office: Argumenttyp ByRef unverträglich

Thomas123 · 28. Juli 2003

Hallo,

ein wahrscheinlich einfaches Problem für Kenner:

Habe folgenden Code (das rot markierte liefert die Fehlermeldung):
Code:

Private sub form_current()
If Neot IsNull(Me.[m1neu]) Then

For i = 1 to 10

Kalwoche = Val(Left(Me("m" & i & "neu"), 2))
Jahr = Val(Right("me" & i & "neu"), 2))
AktDa = Fkt_KWMon(Kalwoche , Jahr)
Me("m" & i & "neuDatum") = AktDa

Next i

End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dazu folgendes Modul von Karl Donaubauer:
Code:

Public Function Fkt_KWMon(ArgKW As Byte, Optional ArgJahr)
' gibt den Montag der übergebenen KW zurück
' von Karl Donaubauer
Dim M As Date
If IsMissing(ArgJahr) Then ArgJahr = Year(Date)
M = DateSerial(ArgJahr, 1, 1) + (ArgKW - 1) * 7
M = M + 1 - WeekDay(M, 2)
If Format(M, "ww", 2, 2) ArgKW Then M = M + 7
If (ArgKW = 1 Or ArgKW = 53) And Day(M) > 4 And Day(M) < 8 Then M = M - 7
Fkt_KWMon = M

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dazu erscheint immer die Fehlermeldung :
'Fehler beim Kompilieren: Argumenttyp Byref unverträglich'

Kann mir jemand sagen woran das liegt!
Dankeschön
Thomas

:)

drmat · 30. Juli 2003

Zur Info:

Das ist so ähnlich wie bei C (Pointer, Variable)

ByRef: wird als Verweis übergeben

ByVal: wird als Wert übergeben

Gruss,

matthias

Thomas123 · 30. Juli 2003

O.K., danke!

Aber was muss ich am Code ändern damit diese Fehlermeldung nicht mehr auftritt!???

Gruß
Thomas

Nouba · 30. Juli 2003

Hallo,

zuerst einmal sollte ein Option Explicit in jedem Modulkopf Dich zu sauberer Variablendeklaration zwingen. Objekte innerhalb der Form sollten mit Me adressiert werden. Dann kannst Du den Kode kompilieren und den ersten Fehler entdecken, der vermutlich, wenn kein Tippfehler vorliegt, in Neot zu finden sein. Weiterhin prüfst Du nur das erste Deiner Steuerelemente auf seinen Inhalt - vielleicht ist es besser alle zu prüfen.

Thomas123 · 30. Juli 2003

Hallo Nouba,

danke für die Tipps.

Neot war ein Tippfehler. Die Objekte sind doch auch alle mit Me adressiert.

Habe jetzt einfach alles 'Zusammengeworfen' und jetzt funktionierts! Und zwar mit folgendem Code:

Code:

Option Compare Database
Option Explicit

Private Sub form_current()

Dim M As Date
Dim ArgKW, Argjahr, i As Integer

If Not IsNull(Me.[m1neu]) Then

For i = 1 To 10

Argjahr = Val(Right(Me("m" & i & "neu"), 2))
ArgKW = Val(Left(Me("m" & i & "neu"), 2))

If IsMissing(Argjahr) Then Argjahr = Year(Date)
M = DateSerial(Argjahr, 1, 1) + (ArgKW - 1) * 7
M = M + 1 - WeekDay(M, 2)
If Format(M, "ww", 2, 2) ArgKW Then M = M + 7
If (ArgKW = 1 Or ArgKW = 53) And Day(M) > 4 And Day(M) < 8 Then M = M - 7
Me("m" & i & "neuDatum") = M

Next i

End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
Thomas

Nouba · 30. Juli 2003

noch ein Hinweis: Die Variablen ArgKW und Argjahr sind als Variant deklariert, wenn Du keinen Datentyp direkt danach angibst.

Office: Argumenttyp ByRef unverträglich

Argumenttyp ByRef unverträglich

Argumenttyp ByRef unverträglich

Argumenttyp ByRef unverträglich

Argumenttyp ByRef unverträglich - Similar Threads - Argumenttyp ByRef unverträglich

Laufzeitfehler 13 Typen unverträglich

Laufzeitfehler '13': Typen unverträglich

Umgang mit (optionalen) ByRef-Parametern / "NULL"-Referenz?

Objekte ByRef an public sub übergeben

VBA Laufzeitfehler 13 Typen unverträglich

Xlsx unverträglichkeit

Unterschied Public zu Parameter Übergabe ByRef / ByVal