VBA ohne GoTo
Peter
ich suche eine Möglichkeit, die nachfolgende If-Sequenz ohne GoTo zu schreiben, komme jedoch immer nur zu einem endlosen Bandwurm an Abfragen.
Gibt es eine kurze, prägnante Variante?
For lZeile = 2 To lLetzte
If sTyp "" Then
If .Range("C" & lZeile).Value sTyp Then Goto Weiter
Else
End If
If sRohdichte "" Then
If Val(.Range("D" & lZeile).Value) Val(sRohdichte) Then Goto Weiter
Else
End If
If sLaenge "" Then
If CDbl(.Range("F" & lZeile).Value) CDbl(sLaenge) Then Goto Weiter
Else
End If
If sBreite "" Then
If CDbl(.Range("G" & lZeile).Value) CDbl(sBreite) Then Goto Weiter
Else
End If
If sStaerke "" Then
If CDbl(.Range("H" & lZeile).Value) CDbl(sStaerke) Then Goto Weiter
Else
End If
If sKunde "" Then
If LCase(Trim(.Range("J" & lZeile).Value)) sKunde Then Goto Weiter
Else
End If
If rZeile Is Nothing Then
Set rZeile = .Rows(lZeile)
Else
Set rZeile = Union(rZeile, .Rows(lZeile))
End If
Weiter:
Next lZeile
Für eine tolle Lösung vielen Dank schon im vorraus.
Gruß Peter