kann mir bitte einer sagen warum seit neusten die Fehlermedlung "variable nicht definiert" erschein?
Option Explicit
Private Sub ComboBox1_Change()
ActiveCell.Value = ComboBox1.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("I3:I2000")) Is Nothing Then
ComboBox1.Visible = False
Exit Sub
Else
ComboBox1.Visible = True
ComboBox1.Top = Target.Top
ComboBox1.Left = Target.Left
ComboBox1.Value = ActiveCell.Value
End If
End Sub
Vielen Dank euch
Viele Grüße
Thomas