Office: Listbox aktualisieren!

hurricane65 · 18. Februar 2006

Moin zusammen,
hab ein Form mit einer Listbox und einem Kombifeld. Die Listbox und die Kombi fülle ich mit diesem Code
Code:

Private Sub UserForm_Initialize()
With cmbliste
.RowSource = "Namensliste1"
End With
With Udaten
.ColumnCount = 6
.ColumnHeads = True
.ColumnWidths = "45;70;70;70;70;30"
.ListStyle = fmListStyleOption
.RowSource = "Uliste "
End With

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

Nun wird beim Change_Ereigniss des Kombis ein Filter auf den Bereich "Uliste" gesetzt. Die Listbox soll nun die Daten neu einlesen die der Filter eingeschränkt hat, tja und da passiert leider nix weil ich nicht weiss wie ich's anfangen soll *mad.gif* Hoffe daher auf Eure Hilfe! Hab eine Beispieltabelle dran gehangen!

:)

Carloz · 20. Februar 2006

Hi Michael,

bin grad im Treiben.
Hab sowas gemacht. Hier mal der code.
Vielleicht findest dich ja auch ohne Erklärung zurecht *wink.gif*

Code:

Sub Auswahl_ON_dyn()
'für lesen
zeile_1 = 19
spalte_1 = 21

'für schreiben
schreib_zeile = zeile_1
schreib_spalte = 30

'Grundvariablen
in1 = Sheets("H1_Material").Cells(14, 8)
in2 = Sheets("H1_Material").Cells(14, 16)
zeilen_anzahl = Sheets("H1_Material").Cells(16, 24)
zeile_end = zeile_1 + zeilen_anzahl

'alte Einträge für Auswahlmenu löschen
Sheets("H1_Material").Range("AD19:AE71").ClearContents

'Einträge für Auswahlmenu erstellen
For zeile = zeile_1 To zeile_end

'filterkriterien lesen
in1_pruef = Sheets("H1_Material").Cells(zeile, spalte_1)
in2_pruef = Sheets("H1_Material").Cells(zeile, spalte_1 + 1)

'Auswahl auf nicht gewählt setzen
wahl1 = "n"
wahl2 = "n"

'erster Filter, kennzeichnen wenn gewählt
If in1 = "*" Then
wahl1 = "j"
Else
If in1 = in1_pruef Then
wahl1 = "j"
End If
End If

'zweiter Filter, kennzeichnen wenn gewählt
If in2 = "*" Then
wahl2 = "j"
Else
If in2 = in2_pruef Then
wahl2 = "j"
End If
End If

'Auswahlkennzeichen
wahl = wahl1 & wahl2

'Ausgewählte Menueinträge aus Referenzdaten ins dynamische Menu übernehmen
If wahl = "jj" Then
anzeige = Sheets("H1_Material").Cells(zeile, spalte_1 + 2)
out1 = Sheets("H1_Material").Cells(zeile, spalte_1 + 3)
Sheets("H1_Material").Cells(schreib_zeile, schreib_spalte) = anzeige
Sheets("H1_Material").Cells(schreib_zeile, schreib_spalte + 1) = out1

'zeile für nächsten Menueintrag
schreib_zeile = schreib_zeile + 1
End If

Next zeile
'###ActiveSheet.Unprotect
'Auswahlmenü formatieren
anzahl = Sheets("H1_Material").Cells(14, 31)
Sheets("Material").Select
ActiveSheet.Shapes("Drop Down 4").Select
With Selection
.ListFillRange = "H1_Material!$AD$18:$AD$" & anzahl + 17
.LinkedCell = "H1_Material!$AD$16"
.DropDownLines = 12
.Display3DShading = False
End With
'###ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select
Call datenfilter
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

greetZ
CarloZ

hurricane65 · 20. Februar 2006

Moin zusammen,
Hallo Carloz,

Vielleicht findest dich ja auch ohne Erklärung zurecht
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wenn ich ehrlich bin NEIN. Ich möchte doch nur das die Tabelle , nach dem filtern des Bereichs, dann in der Listbox neu eingelesen wird. Aus Deinem geposteten Code werd ich leider nicht schlau *mad.gif* bin immer noch VBA Anfänger *wink.gif* sorry! Bräuchte noch mehr Input *Smilie

Carloz · 20. Februar 2006

\@Michael: Das Prinzip ist dir klar ? Filter setzen, Daten in einen anderen Bereich ausgeben und der Bereich ist dann Datengrundlage für deine Listbox.

Wenn ich dazu komm werde ich es mal erläutern. Ich bin auch ned die Leuchte darin. Habs halt soweit zusammengeklaut und mit Makro aufzeichnen, usw. gemacht *wink.gif*

greetZ
CarloZ

hurricane65 · 20. Februar 2006

Moin zusammen,
Hallo Carloz,

Daten in einen anderen Bereich ausgeben und der Bereich ist dann Datengrundlage für deine Listbox.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ähm.. Die Daten in einen anderen Bereich ausgeben hab ich garnicht gemacht, bin davon ausgegangen das man den gefilterten Tabellenbereich nur neu einlesen muss???

hurricane65 · 20. Februar 2006

Moin zusammen,
so bis hierher hab ich's jetzt und zwar mit diesem Code Code:

Private Sub cmbliste_Change()
Dim arr() As Variant
Dim iRowL As Integer, iRow As Integer, iRowU As Integer
Dim wks As Worksheet
Set wks = Sheets("Abwesenheitsliste")
Sheets("Abwesenheitsliste").Range("A1").AutoFilter Field:=2, Criteria1:=cmbliste.Value
Udaten.Clear
iRowL = wks.Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 2 To iRowL
If Not IsEmpty(wks.Cells(iRow, 1)) And (wks.Cells(iRow, 2)) = cmbliste.Value Then
ReDim Preserve arr(0 To 6, 0 To iRowU)
arr(0, iRowU) = wks.Cells(iRow, 1)
arr(1, iRowU) = wks.Cells(iRow, 2)
arr(2, iRowU) = wks.Cells(iRow, 3)
arr(3, iRowU) = wks.Cells(iRow, 4)
arr(4, iRowU) = wks.Cells(iRow, 5)
arr(5, iRowU) = wks.Cells(iRow, 6)
iRowU = iRowU + 1
End If
Next iRow
Udaten.Column = arr 'Daten in Listfelder schreiben
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Listbox wird nun mít den gefilterten Daten gefüllt. Wenn aber ein Mitarbeiter keinen Eintrag hat bekomme ich eine Fehlermeldung *mad.gif*
Ich möchte diese aber über eine MsgBox abfangen. Bekomme es aber alleine nicht hin *mad.gif* Für eure Hilfe im voraus schon mal vielen Dank *wink.gif*

hurricane65 · 20. Februar 2006

Moin zusammen,
glaub ich muss das nohmal erklären. Der Code beim laden des Forms lautet: Code:

Private Sub UserForm_Initialize()
Dim arr() As Variant
Dim iRowL As Integer, iRow As Integer, iCol As Integer, iRowU As Integer
Dim wks As Worksheet
Set wks = Sheets("Abwesenheitsliste")
Udaten.Clear
With cmbliste
.RowSource = "Namensliste"
End With
With Udaten
.ColumnCount = 6
.ColumnWidths = "48;74;74;74;74;35"
.ListStyle = fmListStyleOption
End With
Sheets("Abwesenheitsliste").AutoFilterMode = False
iRowL = wks.Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 2 To iRowL
If Not IsEmpty(wks.Cells(iRow, 1)) Then
ReDim Preserve arr(0 To 5, 0 To iRowU)
arr(0, iRowU) = wks.Cells(iRow, 1)
arr(1, iRowU) = wks.Cells(iRow, 2)
arr(2, iRowU) = wks.Cells(iRow, 3)
arr(3, iRowU) = wks.Cells(iRow, 4)
arr(4, iRowU) = wks.Cells(iRow, 5)
arr(5, iRowU) = wks.Cells(iRow, 6)
iRowU = iRowU + 1
End If
Next iRow
Udaten.Column = arr

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

damit werden aus einer Tabelle die Daten in die Listbox eingelesen. Im Form hab ich ein Kombi mit dem ich die Daten in der Tabelle filter und dann so wieder in die Listbox einlese Code:

Private Sub cmbliste_Change()
Dim arr() As Variant
Dim iRowL As Integer, iRow As Integer, iCol As Integer, iRowU As Integer
Dim wks As Worksheet
Set wks = Sheets("Abwesenheitsliste")
Udaten.Clear
Sheets("Abwesenheitsliste").Range("A1").AutoFilter Field:=2, Criteria1:=cmbliste.Value
iRowL = wks.Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 2 To iRowL
If Not IsEmpty(wks.Cells(iRow, 1)) And (wks.Cells(iRow, 2)) = cmbliste.Value Then
ReDim Preserve arr(0 To 5, 0 To iRowU)
arr(0, iRowU) = wks.Cells(iRow, 1)
arr(1, iRowU) = wks.Cells(iRow, 2)
arr(2, iRowU) = wks.Cells(iRow, 3)
arr(3, iRowU) = wks.Cells(iRow, 4)
arr(4, iRowU) = wks.Cells(iRow, 5)
arr(5, iRowU) = wks.Cells(iRow, 6)
iRowU = iRowU + 1
End If
Next iRow
Udaten.Column = arr
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wenn aber nun in der Tabelle kein Eintrag steht der zu den Namen im Kombi passt kommt die Fehlermeldung " Eigenschaften Column konnten nicht gesetzt werden". Is ja auch logisch weil versucht wird NICHTS in ein Listenfeld zu schreiben. Habe nun den Fehler abgefangen mittels "On Error GoTo errorhandler" *tongue.gif* Is zwar nicht schön funzt aber. Vielleicht hat ja noch jemand eine bessere Lösung???

Carloz · 20. Februar 2006

Hi Michael,

na das schaut ja gut aus *wink.gif*
Und wenn du einfach die Zellen die NULL sind mit ner IF abfängst ?
Geht das nicht ?

greetZ
CarloZ

hurricane65 · 21. Februar 2006

Moin zusammen,
Hallo Carloz, is viel einfacher als man denkt musste nur den Code etwas verändern Code:

Udaten.Column = arr
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

stand an der falschen Stelle. Es kommt zwar keine Meldung mehr das kein Eintrag vom ausgewählten Mitabeiter vorhanden ist aber eine leere Listbox reicht aus um zu verstehn das es keinen Eintrag gibt oder *wink.gif* Manche Dinge sind halt einfacher als man denkt *grins

Office: Listbox aktualisieren!

Listbox aktualisieren!

Listbox aktualisieren!

Listbox aktualisieren!

Listbox aktualisieren!

Listbox aktualisieren! - Similar Threads - Listbox aktualisieren

Listbox wird nicht breiter, Schriftgrösse ändert sich

Listbox Sortierung

Suchfunktion für Listbox in Textbox

Listbox befüllen

Listbox füllen wenn zelle daneben leer

Ordnernamen, die Kriterien erfüllen in Listbox aufführen

Suchfunktion in Listbox