Thema Datum  Von Nutzer Rating
Antwort
23.09.2024 20:59:54 Karam
NotSolved
23.09.2024 21:27:08 Gast89001
NotSolved
23.09.2024 22:06:09 Gast51236
NotSolved
23.09.2024 22:29:50 ralf_b
NotSolved
Rot ListBox bei der Übernahme von eine Tabelle filtern
 23.09.2024 21:56:01 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
23.09.2024 21:56:01		 Views:
61		 Rating:
     
Antwort:
  Ja
Thema:
ListBox bei der Übernahme von eine Tabelle filtern

das Listbox füllen würde ich separat abhandeln. somit kannst du das variabel auch an anderer Stelle aufrufen.

Private Sub UserForm_Initialize_2()
   Call listbox_fuellen(Array("beton", "stahl", "holz", "aluminium"))
End Sub
 
 Sub listbox_fuellen(Materialien As Variant)
    
    Dim LetzteZeile As Long
    Dim i As Long, cnt As Long
    Dim arrtmp
    
    LetzteZeile = Tabelle2.Cells(Rows.Count, 2).End(xlUp).Row
    With Tabelle2
        arrtmp = .Range(.Cells(2, 2), .Cells(LetzteZeile, 2))
    End With
  
    ' Durch die Zeilen wird überprüft ob die Begriffe vorkommen, falls ja dann füge SIe in der ListBox
    For i = 1 To UBound(arrtmp)
      For cnt = LBound(Materialien) To UBound(Materialien)
            If LCase(arrtmp(i, 1)) Like "*" & Materialien(cnt) & "*" Then
               Debug.Print "Me.ListBox_TWP.AddItem " & arrtmp(i, 1)
            End If
      Next
    Next
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.09.2024 20:59:54 Karam
NotSolved
23.09.2024 21:27:08 Gast89001
NotSolved
23.09.2024 22:06:09 Gast51236
NotSolved
23.09.2024 22:29:50 ralf_b
NotSolved
Rot ListBox bei der Übernahme von eine Tabelle filtern
 23.09.2024 21:56:01 ralf_b
NotSolved