Var. aus Sub in With einer Function
15.04.2015 14:59:53
Ralf
ich hab mal wieder eine vermutlich lächerliche Kleinigkeit.
ich versuche mit einem Button in einem Userform ein Makro aufzurufen:
Private Sub Label3_Click()
Dim Ecke_W As Byte
Ecke_W = 2
Dim UF1 As String
UF1 = Me.Name
Dim UF2 As String
UF2 = "B01_Info"
Minimieren_Maximieren Ecke_W, UF1, UF2
End Sub
der angesprochene Code sieht wie folgt aus:
Function Minimieren_Maximieren(Ecke_W As Byte, UF1 As String, UF2 As String)
With UF2
.Show
.Top = UF1.Top
.Left = UF1.Left
End With
Dieser wird allerdings dann markiert und folgende Meldung wird ausgegeben:
Fehler beim Kompilieren:
With-Objekt muss einen benutzerdefinierten Typ oder den Typ Object oder Variant haben
Danke schon mal für eure Hilfe
LG
Ralf