|
Guten Tag,
ich möchte gerne eine Combobox mit Werten aus zwei Zeilen befüllen. Das klappt auch.
Jedoch möchte ich nur die Werte in die Combobox eintragen, die einer Überprüfung standgehalten haben. (Wenn ein Feld leer ist, sollen sie nicht genommen werden.)
AnzPer ist ein Wert der aus einer Zeile ausgelesen wird und ist als Byte deklariert.
Das Problem ist nun, dass die Prüfung fehlerhaft ist, auch wenn die Zelle(7,i+1) leer ist, wird ein Wert hinzugefügt.
Ich hoffe mein Problem ist verständlich geworden. Unten habe ich meinen Code beigefügt
Grüße
Hermann
With Me.ComboBox_AktuellePeriode
For i = 1 To AnzPer
If Not IsEmpty(Sheets(1).Cells(7, i + 1)) Then
.AddItem Sheets(1).Cells(5, i + 1).Value & " " & Sheets(1).Cells(6, i + 1).Value
End If
Next i
End With
|