Thema Datum  Von Nutzer Rating
Antwort
Rot Aus Listbox kopieren / Spaltenanteil ausblenden
15.10.2021 08:12:17 Mark
NotSolved
15.10.2021 09:09:36 Mase
NotSolved
15.10.2021 09:28:56 Gast19175
NotSolved
15.10.2021 09:59:03 Mase
NotSolved
15.10.2021 10:01:55 Mark
NotSolved

Ansicht des Beitrags:
Von:
Mark
Datum:
15.10.2021 08:12:17
Views:
109
Rating: Antwort:
  Ja
Thema:
Aus Listbox kopieren / Spaltenanteil ausblenden

Hallo,

mir fehlt es etwas an Erfahrung mit vba. Nun habe ich mich an einer Listbox versucht und dazu einige Fragen

1. Ich würde gerne die Ausgabe der Listbox (nachdem sie einen Filter durchlaufen hat) in ein neues Blatt kopieren. Im idalfall durh betätigen eines Buttons. Läst sich das realisieren und wenn ja wie?

2. Ich würde im Filterergebnis gerne einen Teil der zweiten Spalte ausblenden, wie lässt sich das realisieren?

Dazu mal mein bisheriger Code:

Private Sub textBox1_Change()

Dim Zeile As Long

For Zeile = 1 To Formular1.Cells(Row.Count,5).End(x1UP).row

                If InStr(1,LCase(Formular1.Cells(Zeile,5).value

                               MeListBox1.AddItem Liste1.Cells(Zeile,5).Value

                               Me.ListBox1.List(Me.ListBox1.ListCount -1,1) =List1.Cells(Zeile, 2).Value

                 Me.ListBox1.List(Me.ListBox1.ListCount -1,2) =List1.Cells(Zeile, 3).Value

                End IF

Next Zeile

End Sub

 

Private Sub UserForm_Initialize()

Dim Zeile As Long

For Zeile -1 To Mitarbeiter.Cells(Row.Count,5).End(x1Up).row

                               MeListBox1.AddItem Liste1.Cells(Zeile,5).Value

                               Me.ListBox1.List(Me.ListBox1.ListCount -1,1) =List1.Cells(Zeile, 2).Value

                 Me.ListBox1.List(Me.ListBox1.ListCount -1,2) =List1.Cells(Zeile, 3).Value

                End IF

Next Zeile

Me.ListBox1.Selected(0)=True

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
Rot Aus Listbox kopieren / Spaltenanteil ausblenden
15.10.2021 08:12:17 Mark
NotSolved
15.10.2021 09:09:36 Mase
NotSolved
15.10.2021 09:28:56 Gast19175
NotSolved
15.10.2021 09:59:03 Mase
NotSolved
15.10.2021 10:01:55 Mark
NotSolved