Habe folgendes Original von Kay.O (funtioniert perfekt, Danke)
For i = 1 To Worksheets.Count 'Step 1
If Worksheets(i).Name = "DOPPELTE" Then
ComboBox2.AddItem Worksheets(i).Name
Else: ComboBox2.ListFillRange = ""
End If
Next
modifiziert zu:
Sub CommandButton1_Click()
ComboBox2.Clear
Sheets("test").Select
For i = 2 To 50
If Cells(i, 3).Name = "V001a" Then
ComboBox2.AddItem Cells(i, 4).Name
Else: ComboBox2.ListFillRange = ""
End If
Next
End Sub
was stimmt an dieser Syntax nicht? Ich vermute die Adressierung ist nicht ganz sauber.
(die Dritte Zeile ergiebt einen "Anwendungs- oder objektdefiniertr Fehler")
danke, daniele