Listbox in UF unter Bedingungen füllen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Eva
ich kann dir nicht den ganzen Code schreiben, der scheint sehr komplex zu sein, zeige dir aber ein interessantes Auswahl Verfahren über die Variable Flag = "Ja". Da können endlos viele Bedingungen in Einzelschritten ausgewertet werden, die du überschauen kannst! Alles in eine IF Zeile zu packen ist zu kompliziert!
Im Flag System kannst du auch Vorrang Auswahlen treffen, indem zuerst eine oder mehrere Zellen auf "" oder Werte stehen müssen, und erst dann andere Spalten ausgewertet werden. Verschachtelte IF Then Anweisungen, die du logisch nachvollziehen kannst.
Der Code zum Laden der ListBox steht dann an Ende, wenn das Flag auf "Ja" steht. Du kannst auch am Schluss ein auf Ja stehendes Flag wieder löschen, wenn eine weitere Auswertung Vorrang hat und seine Löschung verlangt!! Dieses Auswahl Verfahren kann man in eine For Next Schleife einbauen, denn im Code steht Cells(z,1) für z=Zeile XXX in einer For Next Schleife!!
mfg Piet

Sub Flag_Auswahl()
'komplexe Spaltenauswahl von mehreren Spalten über "Flag = Ja"
Flg = Empty   'Flag löschen, auf "Ja" wenn Bedingung erfüllt ist
If Calls(z, 1)  "" And Cells(z, 84) = "" Then Flg = "Ja"
'Spalte 19 muss Leer sein, dann Auswahl prüfen!!
If Calls(z, 19) = "" And Calls(z, 27) = "" Then
If Calls(z, 1)  "" And Cells(z, 12)  "" Then Flg = "Ja"
End If
If Flg = "Ja" Then
'hier dein Code zum ListBox laden
End If
End Sub

Hallo Piet,
danke für dein Beispiel. Die erste Auswahl in der Combbox klappt wunderbar ("keine Rechung gestellt").
Die zweite Auswahl ("offene Rechnungen") leider nicht.
folgenden Code habe ich eingegeben in der Kommentierung so wie ich Ihn verstehe:
lz1 = .Cells(Rows.Count, 1).End(xlUp).Row 'suche erste Zeile von Unten in Spalte 1 mit Wert
lSpa = .Cells(1, Columns.Count).End(xlToLeft).Column 'suche erste Spalte von Links mit Wert,
For j = 3 To lz1 'ab Zeile 3 bis zur letzten gefuellten Zeile
For s = 12 To lSpa Step 8 's=Spalte 12 bis letzte Spalte in 8er-Spr?ngen
If .Cells(j, s + 7) "" Then 'wenn die siebte Spalte nach s leer ist dann Listbox fuellen mit
UF.AddItem
UF.List(n, 0) = .Cells(j, 1) 'Kundennummer
UF.List(n, 1) = .Cells(j, 2) 'Name
UF.List(n, 2) = .Cells(j, s) 'Rechung
UF.List(n, 3) = .Cells(j, s + 1) 'Betrag
n = n + 1
End If
Next s
Next j
End With
Jetzt ist es so dass in meiner Datei die erste gefüllte Spalte von links die Spalte 96 ("CR") ist, der Suchbereich für s aber nur von Spalte 12 bis Spalte 83 geht. Ich denke mal das es damit zusammen hängt, dass keine Werte in der Listbox ausgegeben werden.
In deinem Beispiel klappt es dagegen. Wie müsste ich denn den Code anpassen?
Beste Grüße
Eva

Beliebteste Forumthreads (12 Monate)

Listbox in UF unter Bedingungen füllen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox in UF unter Bedingungen füllen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread