Herbers Excel-Forum - das Archiv

VBA Problem 2

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: VBA Problem 2
von: Stefan

Geschrieben am: 19.12.2006 11:15:41
Hi,
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
Bild

Betrifft: AW: VBA Problem 2
von: Harald E
Geschrieben am: 19.12.2006 11:42:50
Hi Stefan,
was mir ins Auge fällt ist CInt. Integer geht nur bis 32767
Versuchs mal mit CLng
Gruss Harald
Bild

Betrifft: AW: VBA Problem 2
von: Stefan
Geschrieben am: 19.12.2006 12:18:20
Super.. Das wars...
Danke
Bild

Betrifft: Danke für die Rückmeldung owT
von: Harald E
Geschrieben am: 19.12.2006 12:20:57
Gruss Harald
 Bild
Excel-Beispiele zum Thema "VBA Problem 2"
Verschnittproblem mit Solver lösen