in Schleife Textfelder ansprechen
26.03.2005 08:12:02
tino
habe 14 Texfelder wie MP1 bis MP14
wie ist es möglich, bei jedem neuen
schleifendurchgang dass nächste anzusprechen?
Habe es mit >>> Me.MP & a Fehlermeldung.
Private Sub CommandButton1_Click()
For a = 1 To 14
If Me.MP1 = "" Then
Sheets("Daten").Range("D" & a) = 0
goto neu
End If
Sheets("Daten").Range("D" & a) = Me.MP1 + 0
neu:
Next a
Unload Me
End Sub
Anzeige