Mussfelder
02.12.2005 14:52:47
Bulli
habe in der Recherche folgenden Code gefunden, der mittels einer Userform ermöglicht, eine Eingabe für bestimmte Felder zu erzwingen.
Der Code wird hier nach unten fortlaufend ausgeführt (Row +1)
Wie müsste ich den Code ändern, wenn die Eingabefelder gleichbleibend sind und zwar nicht von A1 beginnend sondern immer in die Felder F19 bis K19 eingetragen werden soll?
Wäre einigermassen dringend... :-(
Vielen Dank,
Bulli
Private Sub CommandButton1_Click()
Dim aRow, i, j As Integer
For i = 1 To 6
If Me.Controls("Textbox" & i).Value = "" Then
MsgBox "Bitte erst alle Felder ausfüllen !"
Exit Sub
End If
Next i
aRow = [A65536].End(xlUp).Row + 1
For j = 1 To 6
Cells(aRow, j) = Me.Controls("Textbox" & j).Value
Next
Unload Me
End Sub
Anzeige