Ich habs probiert aber irgendwie habe ich noch einen Denkfehler oder was auch immer......grrrrrrr!?
Möchte gerne eine Do Schlaufe die durchläuft bis die Aktive Zelle unten einen Rahmen hat.
Do While ActiveCell.Borders(xlEdgeBottom).LineStyle = xlContinuous
If ActiveCell.Offset(0, 4).Value = "ausgeliefert" Then
ActiveCell.Offset(1, 0).Activate
Else
Me.cboBestellNr1.AddItem ActiveCell.Value
Me.cboBestellNr2.AddItem ActiveCell.Value
Me.cboBestellNr3.AddItem ActiveCell.Value
Me.cboBestellNr4.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
End If
Loop
Besten Dank für eine Tipp.
Gruss
TOM