UserForm als Objekt übergeben

26/04/2010 - 22:32 von Jens Meier | Report spam
Hallo NG,

ich möchte alle Felder einer übergebenen XL07 Form füllen, deren Tag einen
Wert enthàlt.
Dazu hab ich folgendes gebastelt:

Sub FillFields(frm As XlFormControl)

Dim oCntr As MSForms.Control

For Each oCntr In frm.Controls
If oCntr.Tag > "" Then
oCntr = Cells(1, Range(oCntr.Tag).Column)
End If
Next oCntr

End Sub

Leider schmeckt XL das frm.Controls nicht. Kann mir jmd helfen.

Grüsse,

Jens
 

Lesen sie die antworten

#1 Peter Schleif
27/04/2010 - 06:15 | Warnen spam
Jens Meier schrieb am 26.Apr.2010 22:32 Uhr:

Sub FillFields(frm As XlFormControl)

Leider schmeckt XL das frm.Controls nicht. Kann mir jmd helfen.



Ich hab schon Probleme mit der Deklaration von frm im Prozedurkopf. Die
Funktion kann gar nicht erst aufgerufen werden. So klappt es hingegen:

Sub FillFields(frm As UserForm) 'statt XlFormControl

Peter

Ähnliche fragen