Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Filter in ComboBox
#1
Excel 365

Hallo in´s Forum,
mein erster Post und gleich eine Bitte.

In der Tabelle1 wird gefiltert in Spalte A "customer". 

Das Ergebnis soll ausgegeben werden in einer Userform mit einer ComboBox und einem Listenfeld.
Der u. a. Code funktioniert insoweit, dass nur die 1. Spalte von 4 Spalten in der ListBox angezeigt werden.

Der Fehler liegt für mich momentan im "Nirwana". 
Scheinbar bin ich betriebsblind geworden bei all der Testerei.

Wer kann/würde mir da weiterhelfen?

Dankeschön

herbi


Code:
Private Sub ComboBox1_Change()
Dim database(1 To 100, 1 To 4)
Dim My_range As Integer
Dim colum As Byte
On Error Resume Next
Tabelle1.Range("A2").AutoFilter field:=1, Criteria1:=Me.ComboBox1.Value

For i = 2 To Tabelle1.Range("A100000").End(xlUp).Row
If Tabelle1.Cells(i, 1) = Me.ComboBox1 Then

My_range = My_range + 1
For colum = 1 To 4
database(My_range, colum) = Tabelle1.Cells(i, colum)
Next colum
End If
Next i
Me.ListBox1.List = database

End Sub
Antworten Top
#2
Hallöchen,

schaue Dir dort im Post #32 mal meinen Beispielcode an und wo ich die Spalten und Zeilen habe Smile

https://www.clever-excel-forum.de/Thread...#pid198440
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#3
Hola,

längst gelöst.....

https://www.herber.de/forum/archiv/1756t...tm#1759981

Nicht dass man das mitteilen müsste.

Gruß,
steve1da
[-] Folgende(r) 1 Nutzer sagt Danke an steve1da für diesen Beitrag:
  • schauan
Antworten Top
#4
Struktur im Algemeinen:


Code:
Sub M_snb()
  with sheet1.cells(1).currentregion
    .autofilter 1, "snb"
    .offset(1).copy sheet1.cells(1,100)
    .autofilter
  end with

  combobox1.List=sheet1.cells(1,100).currentregion.value
  sheet1.cells(1,100).currentregion.clearcontents
End Sub

Wie viele 'Spalten' gezeigt werden is abhängig von der Eigenschaft .ColumnCount.
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste