Mit folgendem Code wird in die aktive Zelle eines Arbeitsblattes der Wert aus einer UserForm Combobox eingetragen:
Private Sub Combobox1_Change()
Select Case ComboBox1
Case "Ordinationen"
With ActiveCell
.Value = 1
.NumberFormat = "00000"
End With
Case "Visiten"
With ActiveCell
.Value = 2
.NumberFormat = "00000"
End With
End Sub
Ist es möglich den Wert in eine gewisse Spalte unterhalb des letzten Eintrages in dieser Spalte gleich automatisch eintragen zu lassen?
Wo müßte man bitte dann in diesem Code etwas ändern?
With ActiveCell.....
Danke
Josef