Userform

[Andyle]

Das irgendetwas drin steht, dachte ich auch erst.

Habe darauf hin alle Zeilen von 2 bis Ende gelöscht.

Beim erneuten Versuch hat er wieder in die 3 Zeile geschrieben.

Keine Ahnung warum auch immer.

Jetzt habe ich eine Prüfung eingebaut, die ja eigendlich überflüssig sein sollte, aber damit funzt es.

If Sheets("Schäden").Range("A2") = "" Then
    Tabelle1.Cells(Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row, 1).Resize(1, UBound(arrNeu, 2)) = arrNeu
    Else
    Tabelle1.Cells(Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Resize(1, UBound(arrNeu, 2)) = arrNeu
    End If

[Egon12]

Hallo,

Wie es manchmal so ist, war doch etwas nicht so wie es sein soll.
In der Prozedur Private Sub ListboxLaden in Zeile 74 muss vor dem Füllen der Combobox des Filters, noch die Liste via .Clear gelöscht werden, also so:

Code:

With ComboBox2
        .Clear
        .AddItem "-- Alle Spalten --"
        For i = 1 To dynTab.HeaderRowRange.Count
            .AddItem dynTab.ListColumns.Item(i)
        Next i
        .ListIndex = 0
    End With

Gruß Uwe

[Andyle]

Die Stelle finde ich garnicht!

[Egon12]

Hallo,

das betrifft die von mir hochgeladene Datei in #40

und darin die Prozedur:

Code:

Private Sub ListboxLaden()
    Dim arrTab(), i&, j&
    If dynTab.DataBodyRange Is Nothing Then Exit Sub
    arrTab = dynTab.DataBodyRange
    For i = 1 To 3
        Controls("Lbl_LBKopf" & i).Caption = dynTab.HeaderRowRange.Cells(1, i)
    Next i
    ReDim arrList(1 To UBound(arrTab, 1), 1 To UBound(arrTab, 2) + 1)
    For i = 1 To UBound(arrList, 1)
        arrList(i, 1) = i
        For j = 2 To UBound(arrList, 2)
            arrList(i, j) = arrTab(i, j - 1)
        Next j
    Next i
    ListBox1.List = arrList
    With ComboBox2
        .Clear
        .AddItem "-- Alle Spalten --"
        For i = 1 To dynTab.HeaderRowRange.Count
            .AddItem dynTab.ListColumns.Item(i)
        Next i
        .ListIndex = 0
    End With
End Sub

Gruß Uwe

[Andyle]

Achso.

[PIVPQ]

Hallo

@ Egon12
Ich wusste gar nicht das du das wars bei Herber, jetzt hoffentlich  merke ich mir es.
Auf jeden Fall dies eine super perfekte Lösung, die von A bis Z alles drin hat was man sich nur wünschen kann.
Ich bin nicht der VBA Mensch aber ich ziehe den Hut vor dieser perfekten Lösung.
Obwohl ich für mich nun mehr mit PQ arbeite, werde ich deine Lösung mit VBA für mich auf jeden Fall mit nutzen.
Nochmals vielen Dank für diese super Lösung.

[Egon12]

Gerne.

Gruß Uwe