Supportnet / Forum / Tabellenkalkulation
Makro zum Drucken in Excel
Frage
Hallo,
Ich bräuchte mal Eure Hilfe.
Ich habe in Excel eine Tabelle, die in etwa so aussieht:
Name; Vorname; Straße; .
Mayer Hugo Waldstraße
Schmitt Sabiene xyz-Straße
Ich möchte nun die einzelnen Datensätze auf Etiketten ausdrucken. Dabei soll jeder einzelen Datensatz in der Form
Vorname
Nachname
Straße
auf einem Etikett stehen.
Weiß jemand wie man sowas mit VBA in Excel macht?
Mfg,
yuna
Antwort 1 von Mikoop
Hallo,
Zu VBA kann ich dir leider nicht helfen,ich mache so etwas über die Seriendruckfunktion in Word.
Das geht sehr gut so.
Gruss, Mikoop
Zu VBA kann ich dir leider nicht helfen,ich mache so etwas über die Seriendruckfunktion in Word.
Das geht sehr gut so.
Gruss, Mikoop
Antwort 2 von coros
Hi yuna,
ich habe Dir mal ein Beispielmakro erstellt. In meinem Beispiel standen der Nachname in Spalte A, der Vorname in Spalte B und die Starsse in Spalte C. Kopiere nachfolgenden Code und weise ihn einer Befehlsschaltfläche zu.
Bei dem Makro werden die Spalten einer Zeile markiert und diese Markierung wird dann ausgedruckt. Das ganze so oft, wie Nachnamen in Spalte A vorhanden.
Ich hoffe, das ist ungefähr so, wie Du es Dir gedacht hattest. Bei Fragen oder Problemen melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
ich habe Dir mal ein Beispielmakro erstellt. In meinem Beispiel standen der Nachname in Spalte A, der Vorname in Spalte B und die Starsse in Spalte C. Kopiere nachfolgenden Code und weise ihn einer Befehlsschaltfläche zu.
Sub markierten_Bereich_drucken()
Dim letzte_Zeile As Long, Wiederholungen As Long
letzte_Zeile = Range("A65536").End(xlUp).Row
For Wiederholungen = 2 To letzte_Zeile
Range(Cells(Wiederholungen, 1), Cells(Wiederholungen, 3)).PrintOut Copies:=1, Collate:=True
Next
End SubBei dem Makro werden die Spalten einer Zeile markiert und diese Markierung wird dann ausgedruckt. Das ganze so oft, wie Nachnamen in Spalte A vorhanden.
Ich hoffe, das ist ungefähr so, wie Du es Dir gedacht hattest. Bei Fragen oder Problemen melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 3 von yuna
@coros
Danke für Dein Beispielmakro.
Leider machte es nicht ganz das was es soll.
Die Daten werden in der Form:
Vorname; Nachnahme, Straße usw. augedruckt und nicht untereinander:
Name
Vorname
Straße
Trotzdem Vielen Dank.
Mfg
yuna
@Mikoop
Danke für den Tip. Allerdings weiß ich nicht wie ich die Datensätze von Excel für die Seriendruckfunktion in Word verwenden kann.
Danke für Dein Beispielmakro.
Leider machte es nicht ganz das was es soll.
Die Daten werden in der Form:
Vorname; Nachnahme, Straße usw. augedruckt und nicht untereinander:
Name
Vorname
Straße
Trotzdem Vielen Dank.
Mfg
yuna
@Mikoop
Danke für den Tip. Allerdings weiß ich nicht wie ich die Datensätze von Excel für die Seriendruckfunktion in Word verwenden kann.
Antwort 4 von Pausenfueller
@yuna,
das ist überhaupt kein Problem, Du musst lediglich diese Excel-Tabelle als Datenquelle auswählen.
Es könnte allerdings nicht schaden, wenn Du Dir die Hilfe zum Seriendruck unter Word mal näher anschaust, da ist das alles nämlich durchaus verständlich beschrieben.
Gruß
Pausenfüller
das ist überhaupt kein Problem, Du musst lediglich diese Excel-Tabelle als Datenquelle auswählen.
Es könnte allerdings nicht schaden, wenn Du Dir die Hilfe zum Seriendruck unter Word mal näher anschaust, da ist das alles nämlich durchaus verständlich beschrieben.
Gruß
Pausenfüller
Antwort 5 von yuna
Hallo,
Ich habe die Daten in Excel nun so aufbereitet. das das mit dem Seriendruck inzwischen funktioniert.. Allerdings krieg ich es noch nicht hin, dass die Adressen mittig auf dem Etikett stehen.
Die Etiketten werden mit einem richtigen Etikettendrucker ausgedruckt, dh der Drucker druckt nicht auf Papierseiten auf denen Etiketten kleben, sondern von einer Etikettenrolle. Unter "Seite einrichten" usw. kann man für so eine "exotische" Art von Drucker (Zebra T402) keine Einstellungen vornehmen. Das Ausrichten von Text in Word ist so reiner Zufall.
Ich habe die Daten in Excel nun so aufbereitet. das das mit dem Seriendruck inzwischen funktioniert.. Allerdings krieg ich es noch nicht hin, dass die Adressen mittig auf dem Etikett stehen.
Die Etiketten werden mit einem richtigen Etikettendrucker ausgedruckt, dh der Drucker druckt nicht auf Papierseiten auf denen Etiketten kleben, sondern von einer Etikettenrolle. Unter "Seite einrichten" usw. kann man für so eine "exotische" Art von Drucker (Zebra T402) keine Einstellungen vornehmen. Das Ausrichten von Text in Word ist so reiner Zufall.