Lixbox maximal 10 Columns?

[snb]

Und du behauptest ohne Beispieldatei ? Du hast mal Nerven !

"Erledigt"<>"erledigt"

[tyr0n]

Hey snb,

entschuldige :) 
Ich gelobe Besserung! 

Ich habe mal eine Musterdatei erstellt.

In der Listbox2 müsste die Log Nummer 3 und 5 angezeigt werden.

[snb]

Schau mal:

[tyr0n]

Ok, dein code ist wie immer minimalistic und er funktioniert... verrückt! Vielen Dank!
Ein kleiner Fehler ist allerdings drin. Wenn nur ein Ergebnis angezeigt wird, schreibt er in der Listbox nicht in eine row, sondern in mehrere rows in einem Column.

Und bitte noch eine Erklärung. Wo hast du die Abfrage .Cells(Row, 15) <> "erledigt" versteckt? Ich finde den Code nicht, aber es funktioniert....

Siehe Test Datei:


  __erledigt_nerledigt_snb.xlsb (Größe: 27,62 KB / Downloads: 2)

[snb]

Die Zelle kan 'erledigt" enthalten oder .... ?

Cells(j,15) = List(j,14) ( weil die erste Spalte im Listbox column(0) ist; im Excel Arbeitsblatt jedoch ist das Column(1))

[tyr0n]

Oh je…. So weit habe ich nicht gedacht… 
Man man man! Tut mir leid :)

Wie behebe ich das Problem mit der Anzeige, wenn nur ein Ergebnis angezeigt wird?

[snb]

Hättest du einfach selber draufkommen können:

Code:

Private Sub UserForm_Initialize()
    sp = Array(1, 4, 5, 6, 7, 9, 10, 14, 13, 11, 15)
    With ListBox1
      .ColumnWidths = "18;27;60;80;72;55;100;80;55;50;40"
      .List = Sheets("Aufgaben").ListObjects(1).DataBodyRange.Value
      ListBox2.List = .List
      ListBox2.ColumnWidths = .ColumnWidths
     
      For j = 0 To .ListCount - 1
        If .List(j, 7) & .List(j, 12) = "Aufgabetestuser1" Then c00 = c00 & " " & j + 1
        If .List(j, 7) & .List(j, 12) & .List(j, 14) = "Aufgabetestuser1" Then c01 = c01 & " " & j + 1
      Next
      sn = Application.Transpose(Split(Trim(c00)))
      If UBound(sn) > 0 Then .List = Application.Index(.List, sn, sp)
      If UBound(sn) = 0 Then .Column = Application.Index(.List, sn, sp)
    End With
   
    With ListBox2
      sn = Application.Transpose(Split(Trim(c01)))
      If UBound(sn) > 0 Then .List = Application.Index(.List, sn, sp)
      If UBound(sn) = 0 Then .Column = Application.Index(.List, sn, sp)
    End With
End Sub

PS.

Ein kleiner Fehler ist allerdings drin. Wenn nur ein Ergebnis angezeigt wird, schreibt er in der Listbox nicht in eine row, sondern in mehrere rows in einem Column.

Das ist kein Fehler, das ist üblich in einem ListBox/Combobox. Es ist vielleicht nur unerwartet oder unerwünscht. Aber das ist etwas ganz anderes.

[tyr0n]

Ahh ok. Dann verstehe ich es.

Vielen Dank für die tolle Unterstützung. Und ja... warum ich <> anstelle = "" genommen habe... keine Ahnung! :(