Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1472to1476
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1472to1476
1472to1476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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.

Anzeige
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

Links zu Excel-Dialogen

ComboBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige