Heiß diskutierte Fragen

Mal schnell Etiketten bzw. Visitenkarten mit Excel

Psycho Dad
Level 3 - Junior Administrator
07.09.2006
19:51:59 Uhr
14320 Aufrufe
10 Antworten
ID: 39626

Hilfreich +1

...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 S#####e 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):

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:

 Dim W_Anz As Integer
 Dim H_Anz As Integer
 Dim sHoehe As Single
 Dim sHoehe1 As Single
 Dim sBreite As Single
 Dim sBreite1 As Single
 Dim L_Margin As Single
 Dim T_Margin As Single
  W_Anz = Sheets(1).Range("B3").Value
  H_Anz = Sheets(1).Range("B4").Value
  Sheets(2).Select
  Select Case W_Anz
    Case 1
     Range("A1").Select
    Case 2
     Range("A1,C1").Select
    Case 3
     Range("A1,C1,E1").Select
    Case 4
     Range("A1,C1,E1,G1").Select
    Case 5
     Range("A1,C1,E1,G1,I1").Select
    End Select
  sBreite = Sheets(1).Range("B5").Value
  Selection.ColumnWidth = -0.71 + 5.1425 * sBreite
  Select Case W_Anz
    Case 2
     Range("B1").Select
    Case 3
     Range("B1,D1").Select
    Case 4
     Range("B1,D1,F1").Select
    Case 5
     Range("B1,D1,F1,H1").Select
  End Select
 sBreite1 = Sheets(1).Range("D5").Value
 If W_Anz > 1 Then Selection.ColumnWidth = -0.71 + 5.1425 * sBreite1
 Select Case H_Anz
  Case 1
   Range("A1").Select
  Case 2
   Range("A1,A3").Select
  Case 3
   Range("A1,A3,A5").Select
  Case 4
   Range("A1,A3,A5,A7").Select
  Case 5
   Range("A1,A3,A5,A7,A9").Select
  Case 6
   Range("A1,A3,A5,A7,A9,A11").Select
  Case 7
   Range("A1,A3,A5,A7,A9,A11,A13").Select
  Case 8
   Range("A1,A3,A5,A7,A9,A11,A13,A15").Select
  Case 9
   Range("A1,A3,A5,A7,A9,A11,A13,A15,A17").Select
  Case 10
   Range("A1,A3,A5,A7,A9,A11,A13,A15,A17,A19").Select
  Case 11
   Range("A1,A3,A5,A7,A9,A11,A13,A15,A17,A19,A21").Select
  Case 12
   Range("A1,A3,A5,A7,A9,A11,A13,A15,A17,A19,A21,A23").Select
  Case 13
   Range("A1,A3,A5,A7,A9,A11,A13,A15,A17,A19,A21,A23,A25").Select
  Case 14
   Range("A1,A3,A5,A7,A9,A11,A13,A15,A17,A19,A21,A23,A25,A27").Select
  Case 15
   Range("A1,A3,A5,A7,A9,A11,A13,A15,A17,A19,A21,A23,A25,A27,A29").Select
 End Select
 sHoehe = Sheets(1).Range("B6").Value
 Selection.RowHeight = sHoehe * 29.5
 Select Case H_Anz
  Case 2
   Range("A2").Select
  Case 3
   Range("A2,A4").Select
  Case 4
   Range("A2,A4,A6").Select
  Case 5
   Range("A2,A4,A6,A8").Select
  Case 6
   Range("A2,A4,A6,A8,A10").Select
  Case 7
   Range("A2,A4,A6,A8,A10,A12").Select
  Case 8
   Range("A2,A4,A6,A8,A10,A12,A14").Select
  Case 9
   Range("A2,A4,A6,A8,A10,A12,A14,A16").Select
  Case 10
   Range("A2,A4,A6,A8,A10,A12,A14,A16,A18").Select
  Case 11
   Range("A2,A4,A6,A8,A10,A12,A14,A16,A18,A20").Select
  Case 12
   Range("A2,A4,A6,A8,A10,A12,A14,A16,A18,A20,A22").Select
  Case 13
   Range("A2,A4,A6,A8,A10,A12,A14,A16,A18,A20,A22,A24").Select
  Case 14
   Range("A2,A4,A6,A8,A10,A12,A14,A16,A18,A20,A22,A24,A26").Select
  Case 15
   Range("A2,A4,A6,A8,A10,A12,A14,A16,A18,A20,A22,A24,A26,A28").Select
  End Select
  sHoehe1 = Sheets(1).Range("D6").Value
  Selection.RowHeight = sHoehe1 * 29.5
 Range("A1").Select
 L_Margin = Sheets(1).Range("B8").Value / 2.54
 T_Margin = Sheets(1).Range("B7").Value / 2.54
 With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(L_Margin)
        .RightMargin = Application.InchesToPoints(0.196850393700787)
        .TopMargin = Application.InchesToPoints(T_Margin)
        .BottomMargin = Application.InchesToPoints(0.196850393700787)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = False
        .CenterVertically = False
        If Sheets(1).Range("B9").Value = "Hoch" Then .Orientation = xlPortrait Else .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With01.
 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

Diskussionsverlauf (10 Antworten)

patto schreibt am 11.09.2006 um 10:40:42 Uhr
- Psycho Dad schreibt am 12.09.2006 um 09:01:59 Uhr
  - Schmitt.Mathias schreibt am 25.10.2006 um 15:24:28 Uhr
    - Psycho Dad schreibt am 25.10.2006 um 16:36:37 Uhr
      - patto schreibt am 25.10.2006 um 17:37:47 Uhr
        
        Schmitt.Mathias schreibt am 25.10.2006 um 21:37:09 Uhr
rinaldowerlen schreibt am 01.03.2007 um 09:48:50 Uhr
Blackbird07 schreibt am 08.10.2007 um 16:28:23 Uhr
- Psycho Dad schreibt am 08.10.2007 um 17:12:21 Uhr
  - ureu603 schreibt am 08.10.2008 um 14:55:43 Uhr

Top

patto schreibt am 11.09.2006 um 10:40:42 Uhr

... oder man lädt sich von AVERY ZWECKFORM den kostenlosen formula###enten 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

Top

Psycho Dad schreibt am 12.09.2006 um 09:01:59 Uhr

@patto:

Ich erkenne Sarkasmus, wenn ich ihn lese! face-big-smile

Sorry, dass mir dieser Assistent trotz meiner gottgleichen Weisheit nicht bekannt war face-wink

Psycho

Top

Schmitt.Mathias schreibt am 25.10.2006 um 15:24:28 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

Top

Psycho Dad schreibt am 25.10.2006 um 16:36:37 Uhr

Hi Mathias,

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

Psycho

Top

patto schreibt am 25.10.2006 um 17:37:47 Uhr

... das lob war doch sicherlich für AVERY zweckform, oder ( face-smile

)) grins - 'mal im ernst : das makro ist wirklich gut !)

patto

Top

Schmitt.Mathias schreibt am 25.10.2006 um 21:37:09 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

Top

rinaldowerlen schreibt am 01.03.2007 um 09:48:50 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

Top

Blackbird07 schreibt am 08.10.2007 um 16:28:23 Uhr

Hat jemand das das Bild noch von der Vorlage?

Top

Psycho Dad schreibt am 08.10.2007 um 17:12:21 Uhr

An alle, die das Bild vermisst haben!

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

Psycho

Top

ureu603 schreibt am 08.10.2008 um 14:55:43 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

mehr ...Ähnliche Beiträge

Mal schnell Etiketten bzw. Visitenkarten mit Excel

Psycho DadLevel 3 - Junior Administrator07.09.200619:51:59 Uhr14320 Aufrufe10 AntwortenID: 39626

Psycho Dad
Level 3 - Junior Administrator
07.09.2006
19:51:59 Uhr
14320 Aufrufe
10 Antworten
ID: 39626