VBA Problem 2
19.12.2006 11:15:41
Stefan
habe gestern folgendes Makro als Lösung erhalten:
Private Sub ComboBox1_Click()
If IsNumeric(Me.ComboBox1.Value) = True Then
Application.Goto Cells(1, WorksheetFunction.Match(CInt(Me.ComboBox1.Value), Range("b1:iv1"), 0) + 1), True
Else
Application.Goto Cells(1, WorksheetFunction.Match(Me.ComboBox1.Value, Range("b1:iv1"), 0) + 1), True
End If
End Sub
mfG Ingo Christiansen
Nun hab ich das Problem dass ich einen Laufzeitfehler '6' - Überlauf
habe. Und zwar daher, dass die Werte welche ich suche über 32768 sind.
Gibts da eine Lösung ?
LG Stefan
Anzeige