VBA Code
16.12.2005 11:53:24
Bulli
Habe einen Klasse VBA Code gefunden mit dem ich 4 Abfragen erzwinge, welche im Anschluss automatisch an das untere Ende einer Auflistung kopiert werden, womit also eine fortlaufende Liste erstellt wird.
Hier der Code:
Private Sub CommandButton1_Click()
Dim aRow, i, j As Integer
For i = 1 To 4
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 4
Cells(aRow, j) = Me.Controls("Textbox" & j).Value
Next
Unload Me
End Sub
Jetzt würde ich gerne statt der Textbox 1 einen DTPicker verwenden und statt der Textbox 2 eine Combobox. hab auch schon rumprobiert, habs abler leider nicht hinbekommen.
Kann mir da jemand helfen?
Vielen Dank und viele Grüße,
Bulli