Hilfe bei Barcode Sheet

Question

Hallo @all,

ich knüpfe an meinen alten Beitrag mal an, in dem mir schon geholfen wurde.

Ich habe nun auf der gleichen Datei aber ein Problem neue Masse anzuwenden!

Kann sich das mal jemand anschauen? ich lege die Originaldatei mit den neuen Maßen under TB Configuration hier mal ab.

Ich habe das Problem das ich bei der Änderung erstens die Barcodes nicht mehr in der breite auf ein DINA4 Blatt bekomme und 2tens ich 24 Barcodes auf ein Blatt haben möchte jedoch nach meinen Änderungen die letzten 4 Zeilen nicht mehr als Barcodes generiert werden.
Das sind meine Probleme. Jedoch schicke ich hier die Originaldatei, ohne Änderungen, evtl. kann ja jemand diesen Code anpassen ohne noch meine Fehler zuvor ausmerzen zu müssen.

Ist es möglich die Datei so umzubauen:
- 24 Barcodes auf einer Seite
- 3 nebeneinander
- 8 untereinander
- keine 2 zellen (Strichcode & Nummer) sondern nur ein Feld
- Maße pro Feld 70,0 x 35,0 mm

oder muss ich mir was neues erstellen?
Ich bekomme es überhaupt nicht hin!
die Spalten von 4 auf 3 konnte ich reduzieren aber dann wurden grundsätzlich die letzten 4 Zeilen nicht richtig formatiert.

Vielen Dank im Voraus

Benjamin

Answer 1

Hallo Kauz,

Danke für die Datei, jedoch der Fehler bleibt, und ich komme nicht dahinter
Fehler genau wie in AW8

und im VBA markiert der das "Str" im folgenden Code

Private Sub UserForm_Activate()
Txtbox_startAt.Text = Str(getGreatestNumber)
Txtbox_count.Text = Str(getStandardCount)
End Sub

Ich find denn Fehler nicht!

MfG Benjamin

Answer 2

Hallo Benjamin,
an dem Programmteil hab ich nichts verändert!
Öffnest Du jetzt auf einem anderen Rechner als vorher?

Das Str hat schon mal Probleme gemacht,...
soweit ich mich errinnere, fehlte damals ein AddIn oder ein Verweis.
(Analysefunktionen; VBA for Applications;...

Forsche mal in diese Richtung

Weiter heute Abend nach Feierabend...

Gruß
Kauz

Answer 3

Hallo Kauz,

Sorry aber da finde ich auch nix....

Gruß Benjamin

Answer 4

Hallo Benjamin,

ändere mal einfach so:

' Txtbox_startAt.Text = Str(getGreatestNumber)
' Txtbox_count.Text = Str(getStandardCount)
Txtbox_startAt.Text = getGreatestNumber
Txtbox_count.Text = getStandardCount

Also das Str-und die Klammern weglassen.

Guß
Kauz

Answer 5

Hallo Kauz,

hab das ersetzt und alle anderen im code auch.
Jedoch nun tut sich ein weiterer Fehler auf denn ich auch nicht abgestellt bekomme.
Könntest du noch mal schauen?

Sehe es einfach nicht!

Public Sub replaceBarcodeSheet()

Application.DisplayAlerts = False
Worksheets("Barcodes").Delete
Set sheet = Worksheets.Add
sheet.Name = "Barcodes"
Application.DisplayAlerts = True

End Sub

Hier gibt er den Fehler aus, "Set sheet= ist beim Fehler markiert.

Ich weiß nicht ob das noch was wird!?

MfG Benjamin

Answer 6

Hier gleich noch ein Nachtrag...

Nach den Änderungen (entfernen der Str und ( ) habe ich die Datei gespeichert,
und nach neu öffnen kommt der Fehler : Eine DLL Datei konnte nicht geöffnet werden!

Hmmm....

gruß benjamin

Answer 7

Hallo Benjamin,
da weiß ich auch nicht mehr weiter!
Bei mir läuft die Datei auf 2 verschiedenen Rechnern:
Einmal mit Ecxel2007 und auf dem anderen mit Excel 2003.

Ich würde sagen, da ist irdendwo bei Dir der Wurm drin... sorry keine Ahnung.

Wenn Du die Möglichkeit hast, dann probier eine orginal runtergeladene Datei auf einem anderen Rechner aus.

Habe eben die Datei selbst noch mal runtergeladen... läuft!

Gruß
Kauz