ComboBOx
04.08.2008 17:41:00
J.BGMR
ich habe ein kleines Problem mit meiner ComboBox. ich hätte gerne, dass er erst auf das entsprechende Feld springt, wenn die maximale Länge von 6 Zeichen erreicht wurde. wie kann ich das in VBA schreiben, so dass dann noch das click ereignis ausgelöst wird:
mein Code:
Private Sub ComboBox1_Click()
Dim Anz As Integer
Anz = Val(Worksheets("Punkte").Range("B10").Value)
If ComboBox1.MatchFound = True Then
For i = 1 To Anz
If (ComboBox1.Value = Sheets("Punkte").Range("B" & (13 + i))) Then
Range("C" & (13 + i)).Select
GoTo ende
End If
Next i
ende:
End If
End Sub
Vielen dank im voraus,
Julia
Anzeige