Daten in Combox werden...
29.06.2006 12:22:04
Walter
ich habe eine Combobox die ich auf eine Sheet plaziert habe.
Hierzu das Makro:
Private Sub ComboBox1_Change()
Dim FI$
Dim z As Long
Dim i As Long
For i = 4 To Tabelle7.[ah65536].End(xlUp).Row
ComboBox1.AddItem Tabelle1.Cells(i, 34)
Next
Range("A3:AD3").Select
If Not ActiveSheet.AutoFilterMode Then
Selection.AutoFilter
End If
Range("F3").Select
FI = Tabelle7.ComboBox1.Text
Selection.AutoFilter Field:=6, Criteria1:=FI & "*", Operator:=xlAnd
If Tabelle7.ComboBox1.ListIndex = 0 Then
Selection.AutoFilter
End If
End Sub
Das Problem, die Daten werden jedesmal Neu eingelsen, wenn ich die Combobox öffne, die Filterung etc. ist i.o. , WIE kann ich das ändern ?
Die Tabelle7 wird später in eine andere Mappe kopiert, deshalb habe ich das Makro da reinkopiert.
Vielleicht hat jemand eine Idee ?
gruß Walter