Ich habe einen Code um eine Listbox zu füllen.
Es kann jedoch sein dass in einer Zeile jede Zelle gefüllt ist und in einer anderen ist nur die hälfte gefüllt, wie kann ich es umgehen das mir eine Fehlermeldung erscheint wenn eine oder mehrere Zellen leer sind?
Private Sub CommandButton1_Click()
Dim rngCell As Range
Dim strFirstAddress As String
With Worksheets("Mittelwerte").Range("E4:E700")
Me.ListBox1.Clear
Set rngCell = .Find(Me.TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.ListBox1
.ColumnCount = 27
.ListIndex = -1
.AddItem
.List(.ListCount - 1, 0) = rngCell.Offset(0, -4).Value
.List(.ListCount - 1, 1) = Format(rngCell.Offset(0, -3), "hh:mm")
.List(.ListCount - 1, 2) = rngCell.Offset(0, -2).Value
.List(.ListCount - 1, 3) = rngCell.Offset(0, -1).Value
.List(.ListCount - 1, 4) = rngCell.Value
.List(.ListCount - 1, 5) = rngCell.Offset(0, 1).Value
.List(.ListCount - 1, 6) = rngCell.Offset(0, 2).Value
.List(.ListCount - 1, 7) = rngCell.Offset(0, 3).Value
.List(.ListCount - 1, 8) = rngCell.Offset(0, 4).Value
.List(.ListCount - 1, 9) = rngCell.Offset(0, 5).Value
.List(.ListCount - 1, 10) = rngCell.Offset(0, 6).Value
.List(.ListCount - 1, 11) = rngCell.Offset(0, 7).Value
.List(.ListCount - 1, 12) = rngCell.Offset(0, 8).Value
.List(.ListCount - 1, 13) = rngCell.Offset(0, 9).Value
.List(.ListCount - 1, 14) = rngCell.Offset(0, 10).Value
.List(.ListCount - 1, 15) = rngCell.Offset(0, 11).Value
.List(.ListCount - 1, 16) = rngCell.Offset(0, 12).Value
.List(.ListCount - 1, 17) = rngCell.Offset(0, 13).Value
.List(.ListCount - 1, 18) = rngCell.Offset(0, 14).Value
.List(.ListCount - 1, 19) = rngCell.Offset(0, 15).Value
.List(.ListCount - 1, 20) = rngCell.Offset(0, 16).Value
.List(.ListCount - 1, 21) = rngCell.Offset(0, 17).Value
.List(.ListCount - 1, 22) = rngCell.Offset(0, 18).Value
.List(.ListCount - 1, 23) = rngCell.Offset(0, 19).Value
.List(.ListCount - 1, 24) = rngCell.Offset(0, 20).Value
.List(.ListCount - 1, 25) = rngCell.Offset(0, 21).Value
.List(.ListCount - 1, 26) = rngCell.Offset(0, 22).Value
.ColumnWidths = "2cm;1cm;3.5cm;1,5cm;1,5cm;1,5cm;1,5cm;1,5cm;1,5cm;1,5cm;1,5cm;1,5cm; _
1,5cm;1,5cm;1,5cm;1,5cm;1,5cm;1,5cm;1,5cm;1,5cm"
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
Else
MsgBox "Belag nicht Gefunden", 48
End If
End With
End Sub
Wie muss der Code angepasst werden?
Vielen Dank und Gruss