Ich musste Excel neu installieren.
Seit dem funktionieren meine ComboBoxen nicht mehr.
Ich befülle die ComboBox ver Makro .. z.B. siehe unten.
Im Sheet habe ich dann eingebettet =EINBETTEN("Forms.ComboBox.1";"")
Wenn ich die Combobox anklicke passiert aber nichts.
Hat jemand eine Idee?
Gruß Sabbel
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$2" Then
'Auswahlliste der Combobox aktualisieren wenn Markt geändert wurde
Set wkbDaten = Application.Workbooks(pcDateiDaten)
Set wksDaten = wkbDaten.Worksheets("Daten")
Me.Calculate
varMarkt = Range("G2")
Call Sortieren
With wksDaten
Zeile = .Cells(.Rows.Count, 2).End(xlUp).Row
AnzDaten = Application.WorksheetFunction.CountIf(.Range(.Cells(2, 2), .Cells(Zeile, 2)), _
_
varMarkt)
If AnzDaten > 0 Then
ReDim arrBox(0 To AnzDaten, 0 To 5)
AnzDaten = -1
For Zeile = 1 To .Cells(.Rows.Count, 3).End(xlUp).Row
If Zeile = 1 Or .Cells(Zeile, 2) = varMarkt Then
AnzDaten = AnzDaten + 1
arrBox(AnzDaten, 0) = Zeile 'Zeilennummer in Spalte 0 der List merken
For Spalte = 1 To 3
arrBox(AnzDaten, Spalte) = .Cells(Zeile, Spalte).Text
Next
End If
Next
Me.ComboBox1.List = arrBox