Das Archiv des Excel-Forums

Autofilter und ComboBox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ComboBox ListBox TextBox UserForm
Bild

Betrifft: Autofilter und ComboBox
von: VolkerM

Geschrieben am: 21.09.2003 10:09:56

Hallo
Ich möchte, nachdem der Autofilter gesetzt worden ist, nur die sichtbaren Datensätze in eine ComboBox einlesen und die Daten einer Zeile in TextBoxen
anzeigen lassen.
Mit dem Code

Private Sub UserForm_Initialize()
Dim intCounter As Integer
For intCounter = 2 To 105
cboListe.AddItem Sheets("DatenC").Cells(intCounter, 202)
Next intCounter
cboListe.ListIndex = 0
End Sub


Private Sub cboListe_Change()
txtAuswahl.text = Sheets("DatenC").Cells(cboListe.ListIndex + 2, 203)
txtAuswahl1.text = Sheets("DatenC").Cells(cboListe.ListIndex + 2, 204)
txtAuswahl2.text = Sheets("DatenC").Cells(cboListe.ListIndex + 2, 205)
txtAuswahl3.text = Sheets("DatenC").Cells(cboListe.ListIndex + 2, 206)
End Sub

fülle ich zur Zeit die Combo- und Textboxen.
Habe mit
"Sheets("DatenC").Range("GT1").CurrentRegion.SpecialCells(xlCellTypeVisible)"
probiert, bekomme es aber nicht hin. Hat jemand eine Lösung?
Danke im Voraus.
Gruß Volker
Bild


Betrifft: AW: Autofilter und ComboBox
von: Ramses
Geschrieben am: 21.09.2003 10:44:42

Hallo


Option Explicit

Private Sub UserForm_Initialize()
Dim myRange As Range, c As Range
Dim intCounter As Integer
Set myRange = Worksheets("DatenC").Range("GT2:GT105")
For Each c In myRange.CurrentRegion.SpecialCells(xlCellTypeVisible)
    Me.cboListe.AddItem c.Value
    'Diese Spalte in der Listbox mit Breite "0" deklarieren
    'Dann kannst du mit der Row.Adressierung zum einlesen
    'der Textboxen arbeiten
    'Anders kannst du vom Listindex nicht auf die Zellen
    'referenzieren, da durch den Filter ein nicht eindeutiger
    'Rückschluss auf den Eintrag in der Tabelle möglich ist
    Me.cboListe.AddItem c.Row
Next
End Sub
'"Sheets("DatenC").Range("GT1").CurrentRegion.SpecialCells(xlCellTypeVisible)"


Private Sub cboListe_Change()
    'column(3) ist die versteckte Spalte
    'Achtung: Die Zählung in der Listbox beginnt bei 0
    txtAuswahl.Text = Sheets("DatenC").Cells(cboListe.Column(3), 203)
    txtAuswahl1.Text = Sheets("DatenC").Cells(cboListe.Column(3), 204)
    txtAuswahl2.Text = Sheets("DatenC").Cells(cboListe.Column(3), 205)
    txtAuswahl3.Text = Sheets("DatenC").Cells(cboListe.Column(3), 206)
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16



Gruss Rainer


Bild


Betrifft: AW: Autofilter und ComboBox
von: VolkerM
Geschrieben am: 21.09.2003 11:42:41

Hallo Rainer
Danke für deine schnelle Antwort.
Durch die Änderungen bekomme bei Auswahl eines Datensatzes Laufzeitfehler 13, Typen unverträglich, gemeldet.
Du schreibst von einer Listbox. Ich möchte jedoch eine ComboBox und mehreren TextBoxen.

Gruß Volker


Bild


Betrifft: AW: Autofilter und ComboBox
von: Ramses
Geschrieben am: 21.09.2003 12:13:56

Hallo

Welche Zeile ist denn im VB-Editor markiert ?

Gruss RAiner


Bild


Betrifft: AW: Autofilter und ComboBox
von: VolkerM
Geschrieben am: 21.09.2003 12:22:22

Hallo Rainer

Es wird die erste Zeile vom cboListe_Change() markiert:
txtAuswahl.text = Sheets("DatenC").Cells(cboListe.Column(3), 203)

Gruß Volker


Bild


Betrifft: AW: Autofilter und ComboBox
von: Ramses
Geschrieben am: 21.09.2003 12:28:13

Hallo

ich weiss nicht was du alles in die Combobox füllst.
Wenn du meinen Code verwendest wird nur die Spalte0 und die Spalte1 der Combox gefüllt.
Die Anweisung muss dann lauten

txtAuswahl.text = Sheets("DatenC").Cells(cboListe.Column(1), 203)

Das habe ich aber geschrieben :-) dass die Zählung der Spalten bei "0" beginnt

Gruss Rainer


Bild


Betrifft: AW: Autofilter und ComboBox
von: VolkerM
Geschrieben am: 21.09.2003 13:25:11

Hallo Rainer
Danke für deine Ausdauer und Mühe.
Habe es noch nicht hinbekommen; werde aber probieren und den Fehler suchen. Muß jetzt los.
Einen schönen Sonntag noch.
Gruß Volker


 Bild

Excel-Beispiele zum Thema " Autofilter und ComboBox"

Autofilter auch mit Ziffern von Zahlen download Zellenwert als Autofilter-Kriterienwert download
AutoFilter über mehrere Arbeitsblätter setzen download Kopfzelle mit aktivem Autofilter markieren download
Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download Anzahl der durch Autofilter ermittelten Datensätze anzeigen download
Autofilter-Kriterien über UserForm vorgeben download Makroaufruf bei Betätigung des Autofilters download
Autofilter-Kriterien nach dem Filtern anzeigen download Kopfzeile einer Autofilter-Tabelle gelb hinterlegen download
Blattschutz setzen und dennoch mit AutoFiltern download Autofilterkriterium abfragen und filtern download
ComboBox mit der Funktion des Autofilters download ComboBox als Symbol download
Alle ComboBoxes auf Position 1 download Werte in eine ComboBox einer UserForm übernehmen download
ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden download ComboBox mit Monatsnamen füllen download
Mehrspaltige ComboBox download ComboBox2 in Abhängigkeit von ComboBox1 bestücken download
Nur Zellen mit Inhalt in ComboBox listen download Neue UserForm bedingt nach ComboBox-Auswahl aufrufen download
Neues Element in ComboBox download Werteübernahme gem. Auswahl in ComboBox - ohne VBA download
Blätter in ComboBox-Feld einlesen und auswählen download Wert in einer CommandBarComboBox verändern download
ComboBox-Felder in UserForm aufklappen download UserForm-ComboBox-Feld nach Tasteneingabe aufklappen download
Wert aus 2. UserForm-ComboBox-Spalte berechnen download In einer ComboBox selektiertes Arbeitsblatt auswählen download
ComboBox in Abhängigkeit von einer CheckBox anzeigen download Adressfeld aus UserForm-ComboBox füllen download
Tages-ComboBox einer UserForm an den ausgewählten Monat anpassen download UserForm mit ComboBoxes durch VBA-Code erstellen download
ComboBoxes per VBA-Code in Tabellenblatt erzeugen download ComboBox für Monatsblattauswahl in Menüleiste einfügen download
Wert aus ComboBox in Tabelle eintragen download TextBox in Abhängigkeit einer ComboBox-Auswahl füllen download
Symbolleiste mit ComboBox erstellen download Werte in UserForm-ComboBox einlesen und ausgeben download
Ein- und ausblenden von Blättern gem. UserForm-ComboBoxes download Nach Tabellenblatt-ComboBox den vorher selektierte Bereich wählen download
Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download Bei einer mehrspaltigen ComboBox Wert aus Spalte 2 als Startwert download
UserForm-ComboBoxes als Collection-Objekte ansprechen download Eintrag eines UserForm-ComboBox-Wertes in aktive Zelle download
Zweidimensionales Array an UserForm-ComboBox übergeben download In Abhängigkeit einer ComboBox-Auswahl eine ListBox füllen download
Wert aus ComboBox in TextBox, dann in Tabelle suchen download Summe aller Werte gem. ComboBox-Eintrag download
Geöffete Arbeitsmappen in Menü-ComboBox listen download Tabelle nach ComboBox-Auswahl durchsuchen download
Blattauswahl über eine UserForm-ComboBox download Dateinamen in UserForm-ComboBox einlesen und Datei öffnen download
Doppelt vorkommende Werte in einer UserForm-Combobox listen download Selektieren von über ComboBox-Felder ausgewählten Werten download
Nach Artikelauswahl in ComboBox Preis ermitteln download Wert in ComboBox einlesen, suchen, editieren, ausgeben download
Liste ohne Doppelte Werte in ComboBox einlesen download ComboBox-Breiten während der Laufzeit festlegen download
Im TextFeld einer UserForm-ComboBox Wert aus 2 Spalten anzeigen download Bei Aktivieren eines Arbeitsblattes ComboBox neu einlesen download
Beim Öffnen der Arbeitsmappe Menü-ComboBoxes anlegen download