Control.caption in UF per VBA
13.06.2007 17:40:02
Michael
Zur Beschriftung von Controls in einer UF habe ich folgenden Code bekommen:
For j = 1 To 40
For Each cb In Firmendaten.Controls
If cb.Name = "CheckLand" & 219 + j Then cb.Caption = Sheets("Firmendaten").Cells(j + 219, 1): Exit For
Next
Next j
Das läuft wirklich wunderbar. Meine Controls werden damit bei Eingabe einer Kundennummer kundenindividuell beschriftet. Beim Schließen der UF wird dies allerdings nicht gespeichert. So muß beim Öffnen der UF ebenfalls der Code ausgeführt.
Dies ist nur ein Hinweis für evt. spätere Recherchen anderer zu diesem Thema.
Gruß
Michael Heering