Makro geht nur im Debug-Modus
27.10.2006 09:15:47
lueckii
Das Makro hier, lief bis letzte Woche einwndfrei.
Es durchsucht einfach die Spalte C nach dem Wert, der in der ComboBox ausgewählt wird und springt dann dorthin. Wenn ich das Makro per Auswahl aus dem Combifeld mache, springt der Cursor immer zur gleichen Stelle, irgendwo mitten ins sheet.
Setze ich aber nen Haltepunkt im Makro und führe es dann schrittweise im Code aus, funktioniert es. Gibts da ne plausible erklärung für?
Private Sub ComboBox1_Change()
Dim Kunde As String
Dim Ergebnis As Range
If bListChanged Then Exit Sub
With Worksheets("Kennzahlen pro Kunde")
Kunde = .ComboBox1.Value
Set Ergebnis = .Range("C3:C500").Find(Kunde, LookAt:=xlWhole, LookIn:=xlValues)
If Not Ergebnis Is Nothing Then
Application.Goto Ergebnis(-2, -1), True
End If
Application.ScreenUpdating = True
End With
ComboBox1.Value = ""
End Sub
Viele Grüße
Martin