Sub Einlesen ()
Dim i as Long
For i = 1 to 150
With ComboBox1
If IsNumeric(Cells(i, 5).Value ) and Cells(i, 5).Value >= 2 then
.AddItem Cells(i, 5)
End if
End with
Next i
End Sub
Gruß
Chris
Sub Einlesen ()
Dim i as Long
For i = 1 to 150
With ComboBox1
If IsNumeric(Cells(i, 5).Value ) and Cells(i, 5).Value >= 2 then
.AddItem Cells(i, 5)
End if
End with
Next i
End Sub
Gruß
Chris
Sub Einlesen ()
Dim i as Long
For i = 1 to 150
With ComboBox1
If IsNumeric(Cells(i, 5).Value ) and Cells(i, 5).Value >= 2 then
.AddItem Cells(i, 5)
End if
End with
Next i
End Sub
Gruß
Chris
Sub Einlesen()
Dim i As Long
ListBox1.Clear
ListBox1.ColumnCount = 5
For i = 1 To 5
With ListBox1
If IsNumeric(Cells(i, 5).Value) And Cells(i, 5).Value >= 2 Then
.AddItem Cells(i, 1) ' Spalte A-wert
For k = 1 To 4
.List(.ListCount - 1, k) = Cells(i, 1 + k).Value ' Spalten B-E
Next k
End If
End With
Next i
End Sub
Gruß
Chris
Private Sub UserForm_Initialize()
On Error Resume Next
Sheets("Tabelle2").Select
Dim i As Byte, zelle As String
i = 1
zelle = "Tabelle2!A" & CStr(i)
'Alle Werte der Liste der Tabelle werden gelesen, bis eine leere Zelle kommt.
Do Until Range(zelle).Formula = ""
i = i + 1
zelle = "Tabelle2!A" & CStr(i)
Loop
i = i - 1 '1. Zeile enthält Überschriften
ComboBox1.ColumnCount = 4 'Anzahl der vorhandenen Spalten
ComboBox1.RowSource = "A1:D" & i 'Die Zell-Adressen der
'anzuzeigenden Zellen
ComboBox1.Value = ComboBox1.List(0) '*
'Diese Zeile setzt den 1. Listeneintrag *
'bei Start in das Textfeld der ComboBox.*
End Sub
Kann man beide Codeschnipsel verbinden? Eine List- oder ComboBox dynamisch füllen (solange fortlaufend Einträge in Spalte A der Tabelle2 sind) aber nur mit den Zeilen, deren Spalte D (in diesem Beispiel) einen numerischen Wert größer als 2 haben.
Besten Dank im Voraus
Harry
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen