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