ich habe hier im Forum vor einiger Zeit von Rudi Maintaire diese Code für eine wandernde Combobox bekommen.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ComboBox1.Visible = False
If Target.Count = 1 Then
Select Case Target.Row
Case 43 To 435
If Target.Column > 4 Then
If Cells(36, Target.Column) "" Then
With ComboBox1
.ListFillRange = Cells(Target.Row, 3)
.LinkedCell = ""
.Top = Target.Top
.Left = Target.Left
.Width = 102
.Height = 18
.Visible = True
.MatchRequired = True
.ListIndex = -1
.Style = fmStyleDropDownList
End With
End If
End If
End Select
End If
End Sub
Sub ComboBox1_Click()
With ComboBox1
If .ListIndex > -1 Then
If IsNumeric(.Text) Then
.TopLeftCell = CDbl(.Text)
Else
.TopLeftCell = .Text
End If
End If
End With
End Sub
Dies funktioniert soweit auch wunderbar, jedoch hat das Ganze noch einen Mackel.Wenn ich die entsprechende Zelle anklicke und direkt drauf losschreibe, so interessiert dies die Combobox trotz ".Style = fmStyleDropDownList" keinen Deut.
Erst wenn die Combobox einmal angeklickt wurde erfolgt die Prüfung.
Nun habe ich versucht das Ganze mit .setfocus zu lösen, dies ist aber soweit ich recherchiert habe in Modulen nicht verfügbar.
Wenn ich das Ganze nun um .activate ergänze, so funktioniert das Ganze zwar manchmal, aber das Makro stoppt auch häufig mit einer Fehlermeldung in der kursiven Zeile.
Zudem wird eine einmal sichtbare Combobox erst beim übernächsten Annwählen einer Zelle wieder richtig unsichtbar, bis dahin ist sie noch schleierhaft zu sehen.
Hat jemand noch einen Tip für mich, wie ich dies lösen kann?
Gruß
Marcus.