|
Hej, habe mir deinen Codevorschlag genau angeschaut und daraus einige wichtige Erkenntnisse Abgeleitet, danke dafür nochmal.
Da ich das ganze aber auch gut verstehen möchte und eventuell in Zukunft auch noch andere Projekte mit VBA realisieren möchte, habe ich den code auf meine eigene weise implementiert. Ich stehe auch schon kurz von Ziel. Das ist der Code:
Sub ErzeugeBarcode()
' Variablen Deklaration
Dim BarcodeBereich As String
Dim ArtNrSpalte As String
Dim Tabele
Dim CodierungZelle As String
Dim Y As Double
Dim x As Double
Dim Art1 As Integer
Dim Art2 As Integer
Dim Art3 As Integer
Dim Art4 As Integer
Dim Art5 As Integer
Dim Art6 As Integer
Dim Art7 As Integer
' Variablen Initialisierung
BarcodeBereich = Sheets("Operator").Cells(3, 6)
Tabele = Range("Operator!B1").Value
ArtNrSpalte = Range("Operator!B2").Value
CodierungZelle = Range("Operator!B4").Value
' Formatierung der Barcode Zellen
Sheets(Tabele).Activate
Columns("B:DC").ColumnWidth = 2.5
For Y = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Debug.Print Y
'Vergabe der 7 Zahlenpaare des Barcodes
Art1 = Left(Sheets("Testfeld").Cells(2, 1).Offset(Y, 0).Value, 2)
Art2 = Left(Right(Sheets("Testfeld").Cells(2, 1).Offset(Y, 0).Value, 6), 2)
Art3 = Left(Right(Sheets("Testfeld").Cells(2, 1).Value, 4), 2)
Art4 = Left(Right(Sheets("Testfeld").Cells(2, 1).Value, 2), 2)
Art5 = 0
Art6 = 0
' Ermittlung der Prüfziffer
' Art7 = 10 - Right(Left(Range("Testfeld!A3").Value, 1) * 3 + Left(Right(Range("Testfeld!A3").Value, 7), 1) * 1 + Left(Right(Range("Testfeld!A3").Value, 6), 1) * 3 + Left(Right(Range("Testfeld!A3").Value, 5), 1) * 1 + Left(Right(Range("Testfeld!A3").Value, 4), 1) * 3 + Left(Right(Range("Testfeld!A3").Value, 3), 1) * 1 + Left(Right(Range("Testfeld!A3").Value, 2), 1) * 3 + Left(Right(Range("Testfeld!A3").Value, 1), 1) * 1, 1)
Art7 = 10 - Right(Left(Sheets("Testfeld").Cells(2, 1).Value, 1) * 3 + Left(Right(Sheets("Testfeld").Cells(2, 1).Value, 7), 1) * 1 + Left(Right(Sheets("Testfeld").Cells(2, 1).Value, 6), 1) * 3 + Left(Right(Sheets("Testfeld").Cells(2, 1).Value, 5), 1) * 1 + Left(Right(Sheets("Testfeld").Cells(2, 1).Value, 4), 1) * 3 + Left(Right(Sheets("Testfeld").Cells(2, 1).Value, 3), 1) * 1 + Left(Right(Sheets("Testfeld").Cells(2, 1).Value, 2), 1) * 3 + Left(Right(Sheets("Testfeld").Cells(2, 1).Value, 1), 1) * 1, 1)
' Generierung Barcode einer Zeile
' Startcodon
Sheets("Testfeld").Cells(2, 2) = 1
Sheets("Testfeld").Cells(2, 3) = 0
Sheets("Testfeld").Cells(2, 4) = 1
Sheets("Testfeld").Cells(2, 5) = 0
' Barcode aus Artikelnummer
For x = 0 To 13
Sheets("Testfeld").Cells(2, 6).Offset(0, x) = Left(Sheets("Codierung").Cells(Art1 + 1, 4).Offset(0, x).Value, 1)
Next x
For x = 0 To 13
Sheets("Testfeld").Cells(2, 20).Offset(0, x) = Left(Sheets("Codierung").Cells(Art2 + 1, 4).Offset(0, x).Value, 1)
Next x
For x = 0 To 13
Sheets("Testfeld").Cells(2, 34).Offset(0, x) = Left(Sheets("Codierung").Cells(Art3 + 1, 4).Offset(0, x).Value, 1)
Next x
For x = 0 To 13
Sheets("Testfeld").Cells(2, 48).Offset(0, x) = Left(Sheets("Codierung").Cells(Art4 + 1, 4).Offset(0, x).Value, 1)
Next x
For x = 0 To 13
Sheets("Testfeld").Cells(2, 62).Offset(0, x) = Left(Sheets("Codierung").Cells(Art5 + 1, 4).Offset(0, x).Value, 1)
Next x
For x = 0 To 13
Sheets("Testfeld").Cells(2, 76).Offset(0, x) = Left(Sheets("Codierung").Cells(Art6 + 1, 4).Offset(0, x).Value, 1)
Next x
For x = 0 To 13
Sheets("Testfeld").Cells(2, 90).Offset(0, x) = Left(Sheets("Codierung").Cells(Art7 + 1, 4).Offset(0, x).Value, 1)
Next x
' Endcodon
Sheets("Testfeld").Cells(2, 104) = 1
Sheets("Testfeld").Cells(2, 105) = 1
Sheets("Testfeld").Cells(2, 106) = 0
Sheets("Testfeld").Cells(2, 107) = 1
Next Y
End Sub
Jetzt hatte ich vor ab "'Vergabe der 7 Zahlenpaare des Barcodes" in allen Cells(2, ...) die zwei durch ein y zu ersetzen, bekomme dort aber die Fehlermeldung : Laufzeitfehler 13 , Typen unverträglich. Was ich gerade nicht verstehen kann.
|