Hallo Experten,
ich möchte nach einer Eingabe in Zelle A1 den Inhalt von B1 (enthält den Barcode von A1) automatisch auf ein Etikett vom Zebradrucker drucken und in Zelle A2 springen, B2 drucken usw.
Leider kenne ich mich mit VBA nur sehr wenig aus und bin dankbar für jede Hilfe.
chris
ich möchte nach einer Eingabe in Zelle A1 den Inhalt von B1
(enthält den Barcode von A1) automatisch auf ein Etikett vom
Zebradrucker drucken und in Zelle A2 springen, B2 drucken
usw.
Hallo Chris,
Hast du das schon durch gearbeitet?:
https://www.google.de/#hl=de&tbo=d&sclient=psy-ab&q=…
Was hilfreiches gefunden? Wenn nicht, zeichne mal ein Makro auf während du manuell erst B1, dann B2, dann B3 ausdrucken läßt.
Ich kenne so einen Etikettendrucker nicht. „Gehen“ da auf entsprechenden Etikettvordrucken mehrere Etiketten nebeneinander oder
nur untereinander?
Kann man da z.B. B1:B10 auf 10 Etiketten untereinander auf einen Rutsch ausdrucken lassen?
Du siehst von Zebras habe ich k.A., ich achte ja nichtmal auf
Zebrastreifen 
Gruß
Reinhard
Hallo Reinhard,
der Drucker ist kein Problem. Ich muss nur immer eine Zahl eingeben, Etikett drucken und aufkleben, nächste Zahl …u.s.w.
Nun suche ich ein Programm, dass nach der Eingabe in Zelle Ax einen Druckbefehl für Zelle Bx gibt und dann in Zelle Ax+1 springt.
Gruß
Chris
Nun suche ich ein Programm, dass nach der Eingabe in Zelle Ax
einen Druckbefehl für Zelle Bx gibt und dann in Zelle Ax+1
springt.
Hallo Chris,
klicke mit rechter Maustaste unten auf den Blattnamen, dann auf
„Code anzeigen“.
Im Modul gibst du nachstehenden Code ein und schließt den VB-Editor.
Gruß
Reinhard
Option Explicit
Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Zelle As Range, Merker As Range
Set Target = Intersect(Target, Columns(1))
If Target Is Nothing Then Exit Sub
For Each Zelle In Target
If Zelle.Value "" Then
Application.DisplayAlerts = False
ActiveSheet.PageSetup.PrintArea = Zelle.Offset(0, 1).Address
ActiveSheet.PrintOut
Application.DisplayAlerts = True
Set Merker = Zelle
End If
Next Zelle
Merker.Offset(1, 0).Select
End Sub
Danke, funktioniert prima.
Gruß Christine