per Commandbutton ausgewählte Zeile scrollen
15.08.2014 14:03:36
Andreas
Mit folgendem Code wähle ich über eine Combobox und einen Commandbutton eine Zeile aus.
Ist es möglich, dass die markierte Zeile noch nach oben gescrollt wird so das diese die erste sichtbare ist und die Zelle A der gewählten Zeile "angeklickt" wird?
Wie müsste der Code dann aussehen?
Private Sub CommandButton500_Click()
If ComboBox500.ListIndex "" Then
Rows(ComboBox500.Value).Activate 'Select
End If
End Sub
Private Sub UserForm_Initialize()
With ComboBox500
.Clear
For i = 1 To 1024 Step 41
If Cells(i, 2) "" Then
.AddItem Cells(i, 2).Value
.List(.ListCount - 1, 1) = i
End If
Next
End With
End Sub
mfg, Andreas