Benötige dafür eine Schlaufe:
If IsEmpty(Range("H238").Value) = False Then
Range("H239").Select
End If
If IsEmpty(Range("H239").Value) = False Then
Range("H240").Select
End If
If IsEmpty(Range("H240").Value) = False Then
Range("H241").Select
End If
If IsEmpty(Range("H241").Value) = False Then
Range("H242").Select
End If
If IsEmpty(Range("H242").Value) = False Then
Range("H243").Select
End If
Kann mir da jemand helfen?
Vielen Dank.
|