ComboBox auf Tabelle mit Filtern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim bol 'Das hier oben ins Userform Modul Private Sub ComboBox1_Change() If bol Then Exit Sub If ComboBox1.Value = "" Then Exit Sub bol = True Tabelle2.Range("D3").AutoFilter Tabelle2.Range("D3").AutoFilter Field:=1, Criteria1:=ComboBox1.Value bol = False End With End Sub

Private Sub ComboBox1_Change() Dim bol 'Das hier oben ins Userform Modul If bol Then Exit Sub If ComboBox1.Value = "" Then Exit Sub bol = True ActiveSheet.Range("D3").AutoFilter ActiveSheet.Range("D3").AutoFilter Field:=1, Criteria1:=ComboBox1.Value bol = False End Sub

ich hatte es schon mal angedeutet. Nun im Klartext. Wenn du denkst du könntest hier ohne gewisse Grundlagenkenntnisse Code einfach mal übernehmen und selbst anpassen, dann ist dies ein Irrglaube. Du musst mehr Details preisgeben.
Hast du der Combobox den Wertebereich zugeordnet? rechte MAustaste-- Eigenschaften - Listfill-Range ausfüllen. analog zu Rowsource.
Heisst deine Combobox auch Combobox1 ???
Der Code gehört in das Codemodul des Tabellenblattes.
Das dim bol gehört nicht "in" das Change_Event Makro, sondern in das umgebende Codemodul ganz oben. Besser du schreibst es gleich so Dim bol as Boolean
Field ist die Spaltennummer gezählt von Anfang des zusammengehörigen Datenbereiches.
d.h. sind um Spalte D herum noch mehr Daten, dann vom linken Rand aus zählen.

Hallo Ralf,
Du hast leider RECHT aber ich bin schon die ganze Zeit dran und versuche alles zu verstehen, klappt noch nicht,
bin so lange noch nicht dabei mit VB.
Habe das gemacht wie Du beschrieben hast, klappt auch, allerdings ein kleines Hindernis.
Wenn ich in der Spalte A mit der ComboxBox2 den Namen auswähle, und dann in der Spalte D den KundenNamen
auswähle, wird die Spalte A wieder zurückgesetzt und die Spalte 4 hat nur Gültigkeit.
Wie kann man dies verhindern ?

Dim bol As Boolean



Private Sub ComboBox1_Change()

   If bol Then Exit Sub

   If ComboBox1.Value = "" Then Exit Sub

   bol = True

   ActiveSheet.Range("D3").AutoFilter

   ActiveSheet.Range("D3").AutoFilter Field:=4, Criteria1:=ComboBox1.Value

   bol = False

End Sub



 Private Sub ComboBox2_Change()

   If bol Then Exit Sub

   If ComboBox2.Value = "" Then Exit Sub

   bol = True

   ActiveSheet.Range("a3").AutoFilter

   ActiveSheet.Range("a3").AutoFilter Field:=1, Criteria1:=ComboBox2.Value

   bol = False

End Sub

Danke für die Erklärung !

gruß norbert

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ComboBox auf Tabelle mit Filtern

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread