Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Mal schnell Etiketten bzw. Visitenkarten mit Excel

Mitglied: 8644

8644 (Level 3)

07.09.2006, aktualisiert 08.10.2008, 30444 Aufrufe, 10 Kommentare, 1 Danke

...da ich euch ja gerne an meinen Problemen teilhaben lasse!

Hallo Forum!

Ich bekam am Wochenende einen Anruf mit folgendem Inhalt:
"... ich hab mir bei (Supermarktkette) so'n paar Pakete mit gestanztem Papier gekauft, wo man so Adressetiketten drauf drucken kann! Jetzt hab ich mal den ganzen Kram drauf gedruckt, sieht aber Se aus! Nix passt! Will aber am Montag meine neuen krassen Visienkarten zeigen! Kannst du mir nicht helfen?"

Da hab ich gedacht, dass vielleicht noch mehr Leute das Problem haben und mal probiert, ob ich was basteln kann. Da ich immer noch die Meinung vertrete, dass man mit Excel fast alles machen kann, war das auch hier mein erster Anlaufpunkt. Herausgekommen ist eine Geschichte, mit der man mal schnell ein paar gestanzte Blätter konfigurieren, ausfüllen und drucken kann.

Los geht's:

Step 1:

Excel öffnen - wir benötigen 2 Tabellen. Da es meistens drei sind, kann man hier die dritte über das Kontextmenü (rechte Maustaste) löschen. Jetzt habe ich mir erlaubt, die verbliebenen zwei Tabellenblätter umzubenennen (was nicht zwingend nötig ist!) Auch das Umbenennen funktioniert über das Kontextmenü. Meine erste Tabelle heisst Konfiguration und die zweite habe ich Vorlage genannt.

Step 2:

Jetzt bereiten wir die Tabelle Vorlage vor (es folgt ein Screenshoot):
ec93dc08dc3db47b49cdc1856d9e5b46-excel1 - Klicke auf das Bild, um es zu vergrößern

Hier werden später die entscheidenden Werte für die Druckerausgabe eingetragen. Also Lineal suchen und alle gefragten Sachen messen und eintragen. Wir arbeiten hier mit der Masseinheit Zentimeter mit Kommastellen.
Man beachte (falls man das irgendwann folgende Makro nicht modifizieren möchte!), dass alle Zellbezüge eingehalten werden! Um den Gnubbel, der mit "Einrichten" beschriftet ist, kümmern wir uns später. Ich hoffe, dass die Beschriftungen eindeutig sind! Falls nicht, fragt einfach noch mal!

Step 3:

Wir bringen das Makro in die Tabelle!

Folgende Schritte sind nötig:
Menü Extras -> Makro -> Makros
Im folgenden Dialog einen Namen vergeben - z.Bsp. Einrichten - und auf Erstellen klicken. Nun den folgenden (bereits kopierten) Code zwischen Sub wasauchimmer() und End Sub einfügen:
01.
 Dim W_Anz As Integer
02.
 Dim H_Anz As Integer
03.
 Dim sHoehe As Single
04.
 Dim sHoehe1 As Single
05.
 Dim sBreite As Single
06.
 Dim sBreite1 As Single
07.
 Dim L_Margin As Single
08.
 Dim T_Margin As Single
09.
  W_Anz = Sheets(1).Range("B3").Value
10.
  H_Anz = Sheets(1).Range("B4").Value
11.
  Sheets(2).Select
12.
  Select Case W_Anz
13.
    Case 1
14.
     Range("A1").Select
15.
    Case 2
16.
     Range("A1,C1").Select
17.
    Case 3
18.
     Range("A1,C1,E1").Select
19.
    Case 4
20.
     Range("A1,C1,E1,G1").Select
21.
    Case 5
22.
     Range("A1,C1,E1,G1,I1").Select
23.
    End Select
24.
  sBreite = Sheets(1).Range("B5").Value
25.
  Selection.ColumnWidth = -0.71 + 5.1425 * sBreite
26.
  Select Case W_Anz
27.
    Case 2
28.
     Range("B1").Select
29.
    Case 3
30.
     Range("B1,D1").Select
31.
    Case 4
32.
     Range("B1,D1,F1").Select
33.
    Case 5
34.
     Range("B1,D1,F1,H1").Select
35.
  End Select
36.
 sBreite1 = Sheets(1).Range("D5").Value
37.
 If W_Anz > 1 Then Selection.ColumnWidth = -0.71 + 5.1425 * sBreite1
38.
 Select Case H_Anz
39.
  Case 1
40.
   Range("A1").Select
41.
  Case 2
42.
   Range("A1,A3").Select
43.
  Case 3
44.
   Range("A1,A3,A5").Select
45.
  Case 4
46.
   Range("A1,A3,A5,A7").Select
47.
  Case 5
48.
   Range("A1,A3,A5,A7,A9").Select
49.
  Case 6
50.
   Range("A1,A3,A5,A7,A9,A11").Select
51.
  Case 7
52.
   Range("A1,A3,A5,A7,A9,A11,A13").Select
53.
  Case 8
54.
   Range("A1,A3,A5,A7,A9,A11,A13,A15").Select
55.
  Case 9
56.
   Range("A1,A3,A5,A7,A9,A11,A13,A15,A17").Select
57.
  Case 10
58.
   Range("A1,A3,A5,A7,A9,A11,A13,A15,A17,A19").Select
59.
  Case 11
60.
   Range("A1,A3,A5,A7,A9,A11,A13,A15,A17,A19,A21").Select
61.
  Case 12
62.
   Range("A1,A3,A5,A7,A9,A11,A13,A15,A17,A19,A21,A23").Select
63.
  Case 13
64.
   Range("A1,A3,A5,A7,A9,A11,A13,A15,A17,A19,A21,A23,A25").Select
65.
  Case 14
66.
   Range("A1,A3,A5,A7,A9,A11,A13,A15,A17,A19,A21,A23,A25,A27").Select
67.
  Case 15
68.
   Range("A1,A3,A5,A7,A9,A11,A13,A15,A17,A19,A21,A23,A25,A27,A29").Select
69.
 End Select
70.
 sHoehe = Sheets(1).Range("B6").Value
71.
 Selection.RowHeight = sHoehe * 29.5
72.
 Select Case H_Anz
73.
  Case 2
74.
   Range("A2").Select
75.
  Case 3
76.
   Range("A2,A4").Select
77.
  Case 4
78.
   Range("A2,A4,A6").Select
79.
  Case 5
80.
   Range("A2,A4,A6,A8").Select
81.
  Case 6
82.
   Range("A2,A4,A6,A8,A10").Select
83.
  Case 7
84.
   Range("A2,A4,A6,A8,A10,A12").Select
85.
  Case 8
86.
   Range("A2,A4,A6,A8,A10,A12,A14").Select
87.
  Case 9
88.
   Range("A2,A4,A6,A8,A10,A12,A14,A16").Select
89.
  Case 10
90.
   Range("A2,A4,A6,A8,A10,A12,A14,A16,A18").Select
91.
  Case 11
92.
   Range("A2,A4,A6,A8,A10,A12,A14,A16,A18,A20").Select
93.
  Case 12
94.
   Range("A2,A4,A6,A8,A10,A12,A14,A16,A18,A20,A22").Select
95.
  Case 13
96.
   Range("A2,A4,A6,A8,A10,A12,A14,A16,A18,A20,A22,A24").Select
97.
  Case 14
98.
   Range("A2,A4,A6,A8,A10,A12,A14,A16,A18,A20,A22,A24,A26").Select
99.
  Case 15
100.
   Range("A2,A4,A6,A8,A10,A12,A14,A16,A18,A20,A22,A24,A26,A28").Select
101.
  End Select
102.
  sHoehe1 = Sheets(1).Range("D6").Value
103.
  Selection.RowHeight = sHoehe1 * 29.5
104.
 Range("A1").Select
105.
 L_Margin = Sheets(1).Range("B8").Value / 2.54
106.
 T_Margin = Sheets(1).Range("B7").Value / 2.54
107.
 With ActiveSheet.PageSetup
108.
        .PrintTitleRows = ""
109.
        .PrintTitleColumns = ""
110.
    End With
111.
    ActiveSheet.PageSetup.PrintArea = ""
112.
    With ActiveSheet.PageSetup
113.
        .LeftHeader = ""
114.
        .CenterHeader = ""
115.
        .RightHeader = ""
116.
        .LeftFooter = ""
117.
        .CenterFooter = ""
118.
        .RightFooter = ""
119.
        .LeftMargin = Application.InchesToPoints(L_Margin)
120.
        .RightMargin = Application.InchesToPoints(0.196850393700787)
121.
        .TopMargin = Application.InchesToPoints(T_Margin)
122.
        .BottomMargin = Application.InchesToPoints(0.196850393700787)
123.
        .HeaderMargin = Application.InchesToPoints(0)
124.
        .FooterMargin = Application.InchesToPoints(0)
125.
        .PrintHeadings = False
126.
        .PrintGridlines = False
127.
        .PrintComments = xlPrintNoComments
128.
        .CenterHorizontally = False
129.
        .CenterVertically = False
130.
        If Sheets(1).Range("B9").Value = "Hoch" Then .Orientation = xlPortrait Else .Orientation = xlLandscape
131.
        .Draft = False
132.
        .PaperSize = xlPaperA4
133.
        .FirstPageNumber = xlAutomatic
134.
        .Order = xlDownThenOver
135.
        .BlackAndWhite = False
136.
        .Zoom = 100
137.
    End With
Der (evtl. unbekannte) VBA-Editor kann nun wieder geschlossen werden.

Step 4:

Wir erstellen einen Button!
Falls jemand seine Zeichnen-Symbolleiste sucht, die wir jetzt nämlich brauchen, findet er sie so: Rechte Maustaste auf die Symbolleiste (das Teil oben, mit den Bildchen) -> Häckchen bei Zeichnen setzen. Die Leiste erscheint in der Regel am unteren Bildrand.

In dieser Leiste klicken wir nun auf Autoformen -> Standardformen und suchen uns hier was passendes aus. Dieses Objekt platzieren wir nun an einer Stelle, die wir für gut halten. Um die Sache komfortabler zu gestalten, fügen wir diesem Objekt mittels Kontextmenü einen Text hinzu.
Wenn das alles geklappt hat, fehlt nur noch eine Kleinigkeit: das Makro muss zugewiesen werden! Rechte Maustaste auf das Objekt -> Makro zuweisen -> unser (das einzige) Makro auswählen -> OK -> Fertig!

Achso - der Button muss sich auf dem ersten Tabellenblatt befinden!

So, nun ist eigentlich nur noch probieren angesagt!

HTH Psycho
Mitglied: patto
11.09.2006 um 10:40 Uhr
... oder man lädt sich von AVERY ZWECKFORM den kostenlosen formularassistenten für MS-Office 'runter, der LEIDER toll funktioniert und zu allem überfluss auch noch sämtliche auf dem markt befindlichen papiersorten kennt .... und hat dann weniger spaß am ärgern 1

patto
Bitte warten ..
Mitglied: 8644
12.09.2006 um 09:01 Uhr
@patto:

Ich erkenne Sarkasmus, wenn ich ihn lese!
Sorry, dass mir dieser Assistent trotz meiner gottgleichen Weisheit nicht bekannt war

Psycho
Bitte warten ..
Mitglied: Schmitt.Mathias
25.10.2006 um 15:24 Uhr
WoW, habs grad mal ausprobiert. geht super, respekt!
(Wobei ich auch oft Etiketten/Visitenkarten über Word erstelle, da sind ja auch fast alle Formate drin....)

Gruß
Mathias
Bitte warten ..
Mitglied: 8644
25.10.2006 um 16:36 Uhr
Hi Mathias,

danke für das Lob! Klar gibt's noch viele andere Möglichkeiten, aber ich steh' nun mal total auf Excel!

Psycho
Bitte warten ..
Mitglied: patto
25.10.2006 um 17:37 Uhr
... das lob war doch sicherlich für AVERY zweckform, oder ()) grins - 'mal im ernst : das makro ist wirklich gut !)

patto
Bitte warten ..
Mitglied: Schmitt.Mathias
25.10.2006 um 21:37 Uhr
HeHe, benutze auch gerne Excel, und deswegen bin ich auch immer fasziniert was es da für Lösungen und Möglichkeiten gibt =)
Echt genial!

Mathias
Bitte warten ..
Mitglied: rinaldowerlen
01.03.2007 um 09:48 Uhr
Hi @ ALL
ich bräuchte eure Hilef zum obigen Makro.
Leider wird das Bild oben nicht mehr angezeigt. Jetzt wollte ich fragen ob Ihr mir rasch erklären könntet, was die einzellnen Variabeln (W_Anz, H_Anz, sHoehe, sHoehe1, sBreite, sBreite1, L_Margin, T_Margin) für eine Funktion haben.
Besten Dank
Greetz
Rino
Bitte warten ..
Mitglied: Blackbird07
08.10.2007 um 16:28 Uhr
Hat jemand das das Bild noch von der Vorlage?
Bitte warten ..
Mitglied: 8644
08.10.2007 um 17:12 Uhr
An alle, die das Bild vermisst haben!

Der Link war tod - sorry dafür!
Ich habs noch gefunden und wieder eingebaut!

Psycho
Bitte warten ..
Mitglied: ureu603
08.10.2008 um 14:55 Uhr
Hallo Psycho, ich habe deinen Post mit großem Intresse gelesen und mich damit versucht diese Datei zu erstellen. Was mir ein Rätsel ist, "Nun den folgenden (bereits kopierten) Code zwischen Sub wasauchimmer() und End Sub einfügen:". Ist das diese ellenlange oben aufgeführte Tabelle?

Also, ich habs eben ausprobiert, funktioniert einwandfrei, super

Danke für deine Hilfe
Bitte warten ..
Ähnliche Inhalte
Humor (lol)
Wieder mal DSGVO
Information von brammerHumor (lol)5 Kommentare

Mal was zum Lachen: Der Countdown zur Datenschutz-Grundverordnung läuft. Ab 25. Mai sollte man folgende Regeln beachten: Visitenkarten nur ...

Windows Tools

Zeit für Energiesparmodus, Bildschirmabschaltung etc. schnell anpassen

Anleitung von hannsgmaulwurfWindows Tools

Hallo, ich war auf der Suche nach einem Skript, welches mir erlaubt, den Energiesparmodus eines Windows Rechners auf die ...

Humor (lol)

Es ist mal wieder April

Information von magicteddyHumor (lol)3 Kommentare

Moin, Zufallsfund, wollte nur PiHole testen, aber ich finde ihn sogar ganz nett: Format wird ungültig: Das Ende von ...

Batch & Shell

Hab da mal was programmiert. (CMD-Ergänzung)

Tipp von PedantBatch & Shell9 Kommentare

Hallo Liebe Kollegen, hier mal etwas "Eigenwerbung" (Freeware) In letzter Zeit habe ich ein Tool, dass ich für mich ...

Neue Wissensbeiträge
Firewall
PfSense 2.5.0 benötigt doch kein AES-NI
Tipp von ChriBo vor 3 StundenFirewall

Hallo, Wie sich einige hier erinnern werden hat Jim Thompson in diesem Aritkel beschrieben, daß ab Version 2.5.0 ein ...

Internet
Copyright-Reform: Upload-Filter
Information von Frank vor 1 TagInternet

Hallo, viele Menschen reden aktuell von Upload-Filtern. Sie reden darüber, als wären es eine Selbstverständlichkeit, das Upload-Filter den Seitenbetreibern ...

Google Android

Blokada: Tracking und Werbung unter Android unterbinden

Information von AnkhMorpork vor 1 TagGoogle Android1 Kommentar

In Ergänzung zu meinem vorherigen Beitrag: Blokada efficiently blocks ads, tracking and malware. It saves your data plan, makes ...

Google Android
Facebooks unsichtbare Datensammlung
Information von AnkhMorpork vor 1 TagGoogle Android2 Kommentare

Rund 30 Prozent aller Apps im Play-Store nehmen Kontakt zu Facebook auf, sobald man sie startet. So erfährt der ...

Heiß diskutierte Inhalte
Hardware
Was passiert wenn ein Server zu heiß wird?
Frage von LohrakHardware21 Kommentare

Hallo Sollte ein Server zu heiß werden, da z.B ein Lüfter ausfällt, was würde passieren? Wie meldet sich der ...

Linux Userverwaltung
LogIn Versuche beschränken auf EINEN Versuch
gelöst Frage von GarroshLinux Userverwaltung21 Kommentare

Folgendes Problem Ich habe einen dezidierten Server beim Hoster gemietet, installiert ist Ubuntu 18.04.2 LTS‬ und als Webinterface Plesk. ...

Internet
Aktuell HP-Support-Seite kaputt?
gelöst Frage von LochkartenstanzerInternet12 Kommentare

Hallo Kollegen, Weiß einer von euch, seit wann die HP-Support-Seite kaputt ist? ) Wollte heute morgen Druckertreiber runterladen und ...

DSL, VDSL
Neuer Glasfaser Anschluss - IPv4-Adressraum
Frage von norre2000DSL, VDSL12 Kommentare

Hallo Zusammen, ich werde meinen Glasfaser Anschluss wechseln und bin beim Ausfüllen des Antrags auf Fragen gestoßen bei denen ...