fb:porticula NoPaste
"K" abschnitt auslesen 2
Uploader: | Emporea1997 |
Datum/Zeit: | 10.09.2011 10:11:35 |
For x As Integer = 1 To KTNcount3
For y As Integer = 1 To KTNcount2
If Werkzeug(y).Zeile > KTN(x).zeile And Werkzeug(y).Zeile < KTN(x+1).Zeile Then
Werkzeug(y).KTNPOS = x
EndIf
Next
Next