01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 |
|
Dim WShC As Worksheet
Set WShC = Sheets("Codierung")
' Startcodon
With Sheets("Testfeld")
.Cells(2, 2).Offset(Y, 0) = 1
.Cells(2, 3).Offset(Y, 0) = 0
.Cells(2, 4).Offset(Y, 0) = 1
.Cells(2, 5).Offset(Y, 0) = 0
' Barcode aus Artikelnummer
For x = 0 To 13
.Cells(2, 6).Offset(Y, x) = Left(WShC.Cells(Art1 + 1, 4).Offset(Y, x).Value, 1)
.Cells(2, 20).Offset(Y, x) = Left(WShC.Cells(Art2 + 1, 4).Offset(Y, x).Value, 1)
.Cells(2, 34).Offset(Y, x) = Left(WShC.Cells(Art3 + 1, 4).Offset(Y, x).Value, 1)
.Cells(2, 48).Offset(Y, x) = Left(WShC.Cells(Art4 + 1, 4).Offset(Y, x).Value, 1)
.Cells(2, 62).Offset(Y, x) = Left(WShC.Cells(Art5 + 1, 4).Offset(Y, x).Value, 1)
.Cells(2, 76).Offset(Y, x) = Left(WShC.Cells(Art6 + 1, 4).Offset(Y, x).Value, 1)
.Cells(2, 90).Offset(Y, x) = Left(WShC.Cells(Art7 + 1, 4).Offset(Y, x).Value, 1)
Next x
' Endcodon
.Cells(2, 104).Offset(Y, 0) = 1
.Cells(2, 105).Offset(Y, 0) = 1
.Cells(2, 106).Offset(Y, 0) = 0
.Cells(2, 107).Offset(Y, 0) = 1
End With
|