Code will nicht mehr
13.01.2015 03:52:42
Lorenz
Eine Combobox (ComboBox2) im Arbeitsblatt funktioniert auf einem anderen Rechnern nicht mehr. Es wird die ComboBox nicht erkannt. Verweise hab ich schon verglichen (Hakerl sind dementsprechend gleich). Es hapert beim "Me.ComboBox2". Weiß da vielleicht jamand Abhilfe?
Das Steuerelement ist im (aus) Tabellenblatt, nicht in einer Userform.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iRowL As Integer, iRowList As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row + 1
iRowList = Cells(Rows.Count, 10).End(xlUp).Row
If Target.Count > 1 Then Exit Sub
Select Case Target.Row
Case 2 To iRowL
Select Case Target.Column
Case 1
With Me.ComboBox2
.Top = Target.Top
.Left = Target.Left + 2
.LinkedCell = Target.Address
.ListFillRange = "J1:J" & iRowList
.Visible = True
.Activate
End With
Case Else
Me.ComboBox2.Visible = False
End Select
Case Else
Me.ComboBox2.Visible = False
End Select
End Sub
Lorenz
Anzeige