Hab herrausgefunden warum die Meldung 5x kommt.
Die Abfrage:
If Material = Worksheets("Material").Cells(1 + j, 2) Then
schaut in der Materialtabelle nach dem Wert aus der Zelle "Material"
Nun ist die Materialtabelle so aufgebaut:
LiYv 0.14 |
0,14 |
LiYv 0.25 |
0,25 |
H05V-K 0.50 |
0,5 |
H05V-K 0.75 |
0,75 |
H05V-K 1.00 |
1 |
H07V-K 1.50 |
1,5 |
H07V-K 2.50 |
2,5 |
H07V-K 4.00 |
4 |
H07V-K 6.00 |
6 |
H07V-K 10.00 |
10 |
Das heist der brint 5 x die MsgBox bis er die 1,5 gefunden hat. Geht das auch anders?
|