ich habe beim einlesen der Daten das Problem das er zwar anzeigt was ich aus wählen kann,
aber ich kann nichts auswählen.
Mein Code:
Private Sub ComboBox2_DropButtonClick()
If fpc_löschenPCB.ComboBox1.Value = "" Then
ModulFM.FM0055
fpc_löschenPCB.ComboBox2.Enabled = False
Else
fpc_löschenPCB.ComboBox2.Clear
Dim spalte As Integer
Dim spalte2 As Integer
Dim zeile2 As Integer
Dim i As Integer
Dim i2 As Integer
i2 = 1
i = 1
spalte = 1
For i = 1 To 49
If Worksheets("Optionen").Cells(spalte, i).Value <> "" Then
If Worksheets("Optionen").Cells(spalte, i).Value = fpc_löschenPCB.ComboBox1.Value Then
spalte2 = i
Exit For
End If
End If
Next i
For i2 = 1 To 157
zeile2 = i2
zeile2 = zeile2 + 2
If Worksheets("optionen").Cells(zeile2, spalte2).Value <> "" Then
fpc_löschenPCB.ComboBox2.AddItem Worksheets("optionen").Cells(zeile2, spalte2).Value
End If
Next i2
End If
End Sub
gruß
wuntschi