Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1472to1476
1472to1476
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combobox bedingt füllen alle die

Forumthread: Combobox bedingt füllen alle die

Combobox bedingt füllen alle die
08.02.2016 21:30:43
PIN
Hallo leute
ich bekomme langsam einen ausschlag ich habe schon ähnliche beiträge gefunden jedoch kriege ich es irgend wie nicht hin es auf mein projekt anzu passen .
Also ich habe eine Tabelle Namens Periode wo daten stehen, in der Spalte 22 steht der wert True oder False.
Jetzt möchte ich in meiner Combox (cbo_periode) nur die Zeilen deren wert in der Spalten 22 True (oder False) habe.
Das normale füllen ist ja kein problem... :-)

Private Sub UserForm_Initialize()
Dim i, aRow As Long
aRow = Sheets("Periode").[A65536].End(xlUp).Row
For i = 3 To aRow
cbo_periode.AddItem Sheets("Periode").Cells(i, 1) & ", " & Sheets("Periode").Cells( _
i, 3)
Next i
If cbo_periode = "" Then
lst_Auswahl.Clear
End If
txt_pname.SetFocus
End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox bedingt füllen alle die
08.02.2016 22:50:19
Mullit
Hallo,
iiiiigit, iiiiigit, Ausschlag, das ist nicht gut, dann lieber so... 
Option Explicit
Private Sub UserForm_Initialize()
Dim i As Long, aRow As Long
With Worksheets("Periode")
aRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 3 To aRow
If .Cells(i, 22).Value Then _
Call cbo_periode.AddItem(pvargItem:=.Cells(i, 1) & ", " & .Cells(i, 3))
Next
End With
''    If cbo_periode = "" Then
''       lst_Auswahl.Clear
''    End If
''    txt_pname.SetFocus
End Sub

Gruß, Mullit

Anzeige
AW: Combobox bedingt füllen alle die
09.02.2016 16:38:29
PIN
Danke Mullit
aber damit funktioniert es auch nicht...
ich griege die meldung " laufzeitfehler 13" Typen unverträglich.

AW: Combobox bedingt füllen alle die
09.02.2016 18:08:04
Mullit
Hallo,
...ich nich....
Lad 'ne Bsp.-mappe hoch......
Gruß, Mullit

AW: Combobox bedingt füllen alle die
09.02.2016 18:37:47
Mullit
Hallo,
aber ich nehme mal an, Du wirst da entgegen Deiner Aussage nicht nur boolesche Werte in Spalte 22 stehen haben:
Option Explicit

Private Sub UserForm_Initialize()
Dim i As Long, aRow As Long
With Worksheets("Periode")
        aRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 3 To aRow
           If VarType(.Cells(i, 22).Value) = vbBoolean Then _
             If .Cells(i, 22).Value Then _
               Call cbo_periode.AddItem(pvargItem:=.Cells(i, 1).Value & ", " & .Cells(i, 3).Value)
        Next
End With
        
''    If cbo_periode = "" Then 
''       lst_Auswahl.Clear 
'' 
''    End If 
''    txt_pname.SetFocus 
End Sub





VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 12

Gruß, Mullit
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige