Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ComoBox befüllen mit 2 Kriterien

ComoBox befüllen mit 2 Kriterien
02.08.2005 10:56:36
Werner
Hallo zusammen,
Auf eine UsreForm habe ich eine ComboBox, die ich beim Aktivieren der UsreForm mit Daten aus der Spalte A ab Zelle A2 befüllen lasse.
Ich möchte aber nun noch eine 2. Abfrage dazu haben.
Es soll wie bisher in Spalte A nachgesehen werden ob Einträge vorhanden sind.
Danach soll nachgesehen werden ob in Spalte N in der Selben Zeile ein Eintrag steht, wenn ja, soll die Zeile in der ComboBox nicht angezeigt werden.

Me.cboFertigmeldung.Clear
Dim SW As Range
Set SW = Sheets("Maschinen_Eingaben").[A2]
While SW <> ""
'holt die Werte ZeiNummer / AufNummer / Datum in die Box vom Blatt Ergebnis
Me.cboFertigmeldung.AddItem SW & " / " & SW.Offset(0, 1) & " / " & SW.Offset(0, 4) & " / " & SW.Offset(0, 5) _
& " / " & SW.Offset(0, 6) & " / " & SW.Offset(0, 7)
Set SW = SW.Offset(1, 0)
Wend
Gruss Werner

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

Betreff
Datum
Anwender
Anzeige
AW: ComoBox befüllen mit 2 Kriterien
02.08.2005 15:38:28
Rene
Hi versuchs mal damit
Me.cboFertigmeldung.Clear
Dim SW As Range
Set SW = Sheets("Maschinen_Eingaben").[A2]
While SW <> ""
if sw.offset(0,14) = <> "" then
'holt die Werte ZeiNummer / AufNummer / Datum in die Box vom Blatt Ergebnis
Me.cboFertigmeldung.AddItem SW & " / " & SW.Offset(0, 1) & " / " & SW.Offset(0, 4) & " / " & SW.Offset(0, 5) _
& " / " & SW.Offset(0, 6) & " / " & SW.Offset(0, 7)
Set SW = SW.Offset(1, 0)
end if
Wend
gruss René
Bitte Rückmeldung
AW: ComoBox befüllen mit 2 Kriterien
02.08.2005 15:44:50
Werner
Hallo Rene,
in der Zeile bekomme ich einen Syntaxfehler
if sw.offset(0,14) = <> "" then
gruss Werner
Anzeige
AW: ComoBox befüllen mit 2 Kriterien
02.08.2005 15:47:59
Rene
das muss heißen
if sw.offset(0,14) <> "" then
gruss René
Bitte Rückmeldung
AW: ComoBox befüllen mit 2 Kriterien
02.08.2005 16:43:09
WernEr
Hallo Rene,
Wenn ich den Code ersetze, hängt sich die UserForm auf, da muss ich Excel beenden.
gruss Werner
AW: ComoBox befüllen mit 2 Kriterien
03.08.2005 09:32:16
Rene
dann schick mir mal den gesamten code der hinter der box hängt
gruss René
Bitte Rückmeldung
AW: ComoBox befüllen mit 2 Kriterien
03.08.2005 09:32:24
Rene
dann schick mir mal den gesamten code der hinter der box hängt
gruss René
Bitte Rückmeldung
AW: ComoBox befüllen mit 2 Kriterien
03.08.2005 14:18:53
Werner
Hallo Rene,
habe die Datei mal hochgeladen.
https://www.herber.de/bbs/user/25273.xls
beim aktivieren der UsreForm "frmBenötigteZeit" Soll die ComboBox "cboFertigmeldung" geladen werden, mit den Daten aus der Tabelle, wie ich es schon beschrieben habe.
In der Maske kann ich dann noch was eingeben und die Daten sollen dann in genau dieser Zeile ersetzt werden.
Gruss Werner
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige