ich hab da ein kleines Problem mit einer Schleife. Ich sich in sheet "tabelle" nach einem Wert, den ich vorher iin einem anderen sheet "projektinfo" eingegeben hab. Wenn er gefunden wird, ist alles klar. Wenn er nicht vorhanden ist, hätte ich gerne eine msgbox im sheet "projektinfo". bisher hab ich nur endlosschleifen produziert. kann mir jmd helfen? vielen vielen Dank,
David
Sheets("Projektinfo").Select
OpportNr = Range("g12")
Sheets("tabelle").Select
Zaehler = 5
While Cells(Zaehler, 10).Value <> ""
If Cells(Zaehler, 10).Value = OpportNr Then
Kunde = Cells(Zaehler, 7).Value
End If
Zaehler = Zaehler + 1
Wend
Sheets("Projektinfo").Select
Range("g6").Value = Kunde
End If