unten stehende Funktion läuft "eigentlich" gut, aber wenn in dem Bereich A5:A65 auf dem Blatt Target nicht die Technologie steht, die in der Variable Prodnam steht, läuft sich die erste Do Until Schleife tod.
Wie kann ich jetzt eine Prüfung so einbauen, das beide Do Until Schleifen erst dann ausgeführt werden, wenn im Bereich A5:A65 eine Zelle gefunden wird, die gleich der Variablen Prodnam ist. Wenn dies nicht der Fall ist, so soll die Variable temp =" " sein und die Funktion abgebrochen werden.
Danke für Eure Hilfe im voraus
Grüße
Falk
Function Matrix()
Sheets("Target").Select
Range("A5").Select
Do Until ActiveCell.Value = Prodnam
ActiveCell.Offset(1, 0).Select
Loop
Do Until temp ""
temp = ""
If Bedrag "" Then
If Bedrag > ActiveCell.Offset(0, 6).Value And Bedrag "" Then
If Bedrag > ActiveCell.Offset(1, 6).Value And Bedrag "" Then
If Bedrag > ActiveCell.Offset(2, 6).Value And Bedrag "" Then
If Bedrag > ActiveCell.Offset(3, 6).Value And Bedrag "" Then
If Bedrag >= ActiveCell.Offset(5, 6).Value And ActiveCell.Offset(5, 6) _
.Value "" _
Then temp = ActiveCell.Offset(5, 1).Value
Else
If ActiveCell.Offset(5, 6).Value = "" And ActiveCell.Offset(4, 6).Value "" _
And Bedrag > ActiveCell.Offset(4, 6).Value _
Then temp = ActiveCell.Offset(5, 1).Value
If ActiveCell.Offset(4, 6).Value = "" And ActiveCell.Offset(3, 6).Value "" _
And Bedrag > ActiveCell.Offset(3, 6).Value _
Then temp = ActiveCell.Offset(4, 1).Value
If ActiveCell.Offset(3, 6).Value = "" And ActiveCell.Offset(2, 6).Value "" _
And Bedrag > ActiveCell.Offset(2, 6).Value _
Then temp = ActiveCell.Offset(3, 1).Value
If ActiveCell.Offset(2, 6).Value = "" And ActiveCell.Offset(1, 6).Value "" _
And Bedrag > ActiveCell.Offset(1, 6).Value _
Then temp = ActiveCell.Offset(2, 1).Value
If ActiveCell.Offset(1, 6).Value = "" And ActiveCell.Offset(0, 6).Value "" _
And Bedrag > ActiveCell.Offset(0, 6).Value _
Then temp = ActiveCell.Offset(1, 1).Value
End If
Loop
Sheets("Datenblatt").Select
End Function