AW: Mit Kombinationsfeld Filtern
13.12.2004 17:37:02
Klaus-Dieter
Hallo Yilmaz,
das lag daran, dass du die Zellbezüge im Makro nicht an deine Tabelle angepasst hattest. Hier das geänderte Makro für das Tabellenblatt Rechnung:
Private Sub ComboBox1_Change()
ComboBox2.Clear
Dim zei As Integer
For zei = 10 To Worksheets("Kunden").Range("G65536").End(xlUp).Row
If Worksheets("Kunden").Cells(zei, 7) = Me.ComboBox1.Text Then
With ComboBox2
.AddItem Worksheets("Kunden").Cells(zei, 2)
End With
End If
Next zei
End Sub
Private Sub ComboBox2_Change()
Worksheets("Rechnung").Cells(4, 5) = ComboBox2.Text
End Sub
Private Sub Worksheet_Activate()
ComboBox1.Clear
For s = 10 To Worksheets("Kunden").Range("G65536").End(xlUp).Row
If Worksheets("Kunden").Cells(s, 7).Value <> "" Then
If Application.WorksheetFunction.CountIf(Worksheets("Kunden").Range(Worksheets("Kunden").Cells(s, 7), _
Worksheets("Kunden").Cells(1, 7)), Worksheets("Kunden").Cells(s, 7).Value) = 1 _
Then ComboBox1.AddItem (Worksheets("Kunden").Cells(s, 7).Value)
End If
Next
End Sub
Du brauchst das nur überspeichern.
<br>Gruß Klaus-Dieter<br>
<a href="http://home.arcor.de/excelseite/Index.html"><img src="http://home.arcor.de/excelseite/Images/banner.gif" width=233 height=67 border=0 alt="Klaus-Dieter's Excel und VBA Seite">