Office: Listbox befüllen

xlph · 20. Dezember 2015

Code:

Beim Löschen eines Eintrages werden die IDs nicht angepasst und sind dadurch nicht mehr fortlaufend.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Soll und darf es auch nicht sein.

Eine ID darf nur einmal vergeben werden!

Du kannst zusätzlich ein Spalte als 'lfd. Nr.' (=laufende Nummer) hinzufügen.
Ist in deinem Beispiel M. E. sinnlos.

mso_student · 10. Januar 2016

Hallo Forum, allen vorab ein Frohes Neues ...

der Urlaub ist jetzt vorbei, d.h. es geht wieder ans Eingemachte *tongue.gif*

@Xlph: Ich bin die Tage Deinen Code durchgegangen.
Die Programmierung ist für mich noch etwas schwierig zu verstehen, da ich noch nicht allzu lange dabei bin.

Ich hoffe meine Frage ist nicht zu dreist. Ich bräuchte etwas Hilfe beim Verständnis und möchte fragen ob Du eventuell Kommentare setzen könntest.

Bin wirklich begeistert von der Funktion deines Codes und würde ihn gerne Verstehen.

mso_student · 12. Januar 2021

von xlph

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beim Löschen eines Eintrages werden die IDs nicht angepasst und sind dadurch nicht mehr fortlaufend.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Soll und darf es auch nicht sein.

Eine ID darf nur einmal vergeben werden!

Du kannst zusätzlich ein Spalte als 'lfd. Nr.' (=laufende Nummer) hinzufügen.
Ist in deinem Beispiel M. E. sinnlos.

Du hast natürlich Recht mit der ID.
Aus reiner Neugier könnte man in deinem Code eine "laufende Nummer" (anstelle ID) umsetzen, welche sich beim Löschen eines Eintrages dynamisch anpasst?

xlph · 12. Januar 2016

Ja, könnte man. Kann aber zu Konflikten führen.

mso_student · 12. Januar 2016

Bin nochmal alles durchgegangen und habe jetzt doch einiges mehr verstanden.

Die Funktion DataInvalid

Code:

Private Function DataInvalid() As Boolean
'Funktion DataInvalid: Datenüberprüfung auf Zulässigkeit; Keine leeren Felder erlaubt
Dim lngIndex As Long
Dim strMeldung As String

With mtblDB

For lngIndex = 1 To .HeaderRowRange.Columns.Count
With Controls("txtData" & CStr(lngIndex - 1))
.BackColor = vbWhite
If .Tag Like "*PEF*" Then
If Trim(.Text) = "" Then
strMeldung = strMeldung & vbLf & " - " & mtblDB.HeaderRowRange.Cells(lngIndex).Value
.BackColor = vbRed 'Färbung Rot, falls Angabefeld leer
End If
End If
End With
Next

If Len(strMeldung) > 0 Then

MsgBox "Folgende Felder müssen Einträge aufweisen:" & vbLf & _
strMeldung, vbInformation, "Pflichteingabefelder"

For lngIndex = 1 To .HeaderRowRange.Columns.Count
Controls("txtData" & CStr(lngIndex - 1)).BackColor = vbWhite
Next

DataInvalid = True

End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und vor Allem die SUB Filter

Code:

Private Sub Filter(ByRef lst As MSForms.ListBox, ByRef rngDB As Range, ByVal strSearchValue As String)

Dim avntDB() As Variant
Dim iavntDB As Long

Dim avntFilter() As Variant
Dim iavntFilter As Long

Dim lngFilterCount As Long

Const SEARCH_COLUMN As Long = 3

lst.Clear

If Not rngDB Is Nothing Then

avntDB() = rngDB.Value
strSearchValue = LCase$(strSearchValue) & "*"

lngFilterCount = WorksheetFunction.CountIf(rngDB.Columns(SEARCH_COLUMN), strSearchValue)

If lngFilterCount > 0 Then

ReDim avntFilter(1 To lngFilterCount)

For iavntDB = LBound(avntDB, 1) To UBound(avntDB, 1)
If LCase(avntDB(iavntDB, SEARCH_COLUMN)) Like strSearchValue Then
iavntFilter = iavntFilter + 1
avntFilter(iavntFilter) = rngDB.Rows(iavntDB).Value
End If
Next

lst.Column = WorksheetFunction.Transpose(avntFilter)

End If

End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

verstehe ich nicht.

Any Help?
Würde mich über kurze Erklärung der Funktion sehr freuen.

Beste Grüße

mso_student · 12. Januar 2016

Weiß jemand warum ich öfters den Laufzeitfehler 9 - Index außerhalb des gültigen Bereichs bekomme?
Außer Kommentaren habe ich im Code nichts verändert.

Beim Debuggen wird immer folgender Code hervogehoben

Code:

For iavntDB = LBound(avntDB, 1) To UBound(avntDB, 1)
If LCase(avntDB(iavntDB, SEARCH_COLUMN)) Like strSearchValue Then
iavntFilter = iavntFilter + 1
avntFilter(iavntFilter) = rngDB.Rows(iavntDB).Value
End If
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was genau ist denn rngDB (ein Range-Objekt, aber wo wird denn ein Element zugewiesen?)

Office: Listbox befüllen

Listbox befüllen

Listbox befüllen

Listbox befüllen

Listbox befüllen - Similar Threads - Listbox befüllen

Listbox befüllen

Listbox befüllen

ListBox mit AddItem aus mehrspaltiger Tabelle befüllen

VBA Listbox in abhängigkeit befüllen

Listbox befüllen

Listbox mit Array befüllen,bearbeiten &zurückschreiben

ListBox befüllen