Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blatt mit "Aufkleber" füllen

Forumthread: Blatt mit "Aufkleber" füllen

Blatt mit "Aufkleber" füllen
16.03.2006 15:06:25
Thorsten
Hallo,
ich möchte gern ein Blatt mit einem Aufkleber füllen. Dazu habe ich ein Vorlagen Tabellenblatt erstellt und da den Aufkleber-Text (unformatiert) und die Anzahl von Aufklebern die ich brauche eingetragen.
Leider kenn ich mich noch nicht all zu gut mit VBA aus. Ich habe aber schon eine grobe Richtung für mein vorhaben als Makro erstellt in meine Excel-Mappe.
Jetzt komme ich leider nichtmehr weiter in meiner For-Schleife. Ich muss nun den Aufkleber-Text von meiner Vorlage in mein Druck-Tabellenblatt bekommen und dabei so Formatieren wie es auf dem Druck Tabellenblatt als Beispiel schon ist.
Ihr könnt euch hier (

Die Datei https://www.herber.de/bbs/user/31963.xls wurde aus Datenschutzgründen gelöscht

)ein Bild meines vorhabens runterladen.
Ich hoffe ich habe es einigermaßen verständlich erklärt und ihr könnt mir dabei weiterhelfen.
Gruß Thorsten
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt mit "Aufkleber" füllen
16.03.2006 15:17:49
Reinhard
Hi Thorsten,
ich würde da grundsätzlich erstmal Word--Etikettendruck benutzen.
Gruß
Reinhard
AW: Blatt mit "Aufkleber" füllen
16.03.2006 15:33:25
Thorsten
Hallo Reinhard,
ich will ja keine Etiketten von Zweckform bedrucken, sondern einfach nur ein Blatt das dann irgendwo aufgeklebt wird. Außerdem würde ich es halt gern mit VBA lösen, zudem dürfte das doch kein Problem darstellen es so zu machen. Auch wenn es nicht der idealste Weg sein mag.
Gruß Thorsten
Anzeige
AW: Blatt mit "Aufkleber" füllen
16.03.2006 15:33:32
Thorsten
Hallo Reinhard,
ich will ja keine Etiketten von Zweckform bedrucken, sondern einfach nur ein Blatt das dann irgendwo aufgeklebt wird. Außerdem würde ich es halt gern mit VBA lösen, zudem dürfte das doch kein Problem darstellen es so zu machen. Auch wenn es nicht der idealste Weg sein mag.
Gruß Thorsten
Anzeige
AW: Blatt mit "Aufkleber" füllen
16.03.2006 16:23:55
Reinhard
Hi Torsten,
In G2 noch die Spaltenanzahl angeben
Option Explicit
Sub Copy()
Dim Anzahl As Integer, n As Integer, wsV As Worksheet, wsD As Worksheet
Dim Spalten As Byte, zei As Long, spa As Byte, nn As Byte
Application.ScreenUpdating = False
On Error GoTo ende:
Set wsD = Worksheets("Druck")
Set wsV = Worksheets("Vorlage")
With wsD
Anzahl = wsV.Range("F2") 'Anzahl vom Tabellenblatt "Vorlage" holen
Spalten = wsV.Range("G2") 'Anzahl Spalten nach rechts festlegen für die For-Schleife
.UsedRange.Clear
For n = 1 To Anzahl
zei = Int((n - 1) / Spalten) * 3
spa = n - Int((n - 1) / Spalten) * Spalten
wsV.Range("B2").Copy Destination:=.Cells(zei + 1, spa)
wsV.Range("B3").Copy Destination:=.Cells(zei + 2, spa)
With .Cells(zei + 3, spa)
.Value = Right("000" & n, 3) & " - F01"
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
With Range(.Cells(zei + 1, spa), .Cells(zei + 3, spa))
For nn = 7 To 10
With .Borders(nn)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Next nn
End With
Next n
End With
ende:
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Blatt mit "Aufkleber" füllen
17.03.2006 12:18:59
Thorsten
Danke für deine Antwort, der Code sieht auf jedenfall besser aus als meiner :)
Aber da kommt nichts bei raus. Ich erhalte auch keine Fehlermeldung, vermutlich weil du n = 1 hast und dann n - 1 in einigen berechnungen verwendest. Aber selbst lösen hab ich es noch nicht können.
Gruß Thorsten
Anzeige
AW: Blatt mit "Aufkleber" füllen
17.03.2006 12:52:55
Reinhard
Hi Thorsten,
mein Code läuft einwandfrei, je nach Vorgaben in F2 und G2 in Blatt Vorlage wird Blatt Druck erstellt.
https://www.herber.de/bbs/user/31986.xls
Gruß Reinhard ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Blatt mit "Aufkleber" füllen
20.03.2006 09:03:35
Thorsten
Du hast Recht. Mit Excel 2000 Funktioniert es, aber nicht mir Excel 97 :)
Danke
AW: Blatt mit "Aufkleber" füllen
16.03.2006 15:19:05
Klaus
Hallo Thorsten,
da ist kein Makro ...
Ich nehm an es geht um die fortlaufenden Nummern? Was spricht denn gegen deine "Formel"lösung?
Gruß,
Klaus M.vdT.
AW: Blatt mit "Aufkleber" füllen
16.03.2006 15:30:13
Thorsten
Sorry, da scheint was schief gelaufen zu sein hier nochmal und ich bekomm es auch nicht hin das auf der hochgeladenen Mappe das Makro erscheint, komisch. Ich schreib es weiter unten hin.
Ich möchte mich etwas mehr mit VBA beschäftigen und wenn ich ab und an ein Beispiel bekomme wär das eine echte Hilfe. Zumal das ja ein Problem ist das ich damit einfach lösen könnte würde ich mich etwas mehr mit VBA auskennen.
Makro:

Private Sub Copy()
Dim counter As Integer 'counter für Zelleninhalt
Dim row As Integer 'Zeile für die For-Schleife
Dim column As Integer 'Spalte für die For-Schleife
Dim rows As Integer 'Anzahl Zeilen die benötigt werden
Dim columns As Integer 'Anzahl Spalten die benötigt werden
Dim quantity As Integer 'benötigte Anzahl von fertigen Objekten
counter = 0 'counter mit 0 initialisieren
quantity = Worksheets("Vorlage").Range("F2") 'Anzahl vom Tabellenblatt "Vorlage" holen
columns = 6 'Anzahl Spalten nach rechts festlegen für die For-Schleife
rows = quantity / columns * 3 'Anzahl Zeilen nach unten festlegen für die For-Schleife
'letzte Objekte erstellen mit: quantity - rows * columns
For row = 1 To rows
For column = 1 To columns
Next column
row = row + 2
Next row
End Sub

Gruß Thorsten
Anzeige
AW: Blatt mit "Aufkleber" füllen
16.03.2006 16:05:52
UweD
Hallo
hier schon mal das hochzählen usw...
die Konstanten bau bitte selber ein.

Private Sub Copy()
Dim counter As Integer 'counter für Zelleninhalt
Dim row As Integer 'Zeile für die For-Schleife
Dim column As Integer 'Spalte für die For-Schleife
Dim rows As Integer 'Anzahl Zeilen die benötigt werden
Dim columns As Integer 'Anzahl Spalten die benötigt werden
Dim quantity As Integer 'benötigte Anzahl von fertigen Objekten
Dim Teil1%, Teil2$
Teil1 = Worksheets("Vorlage").Range("B4")
Teil2 = Worksheets("Vorlage").Range("D4")
counter = 0 'counter mit 0 initialisieren
quantity = Worksheets("Vorlage").Range("F2") 'Anzahl vom Tabellenblatt "Vorlage" holen
columns = 6 'Anzahl Spalten nach rechts festlegen für die For-Schleife
rows = quantity / columns * 3 'Anzahl Zeilen nach unten festlegen für die For-Schleife
'letzte Objekte erstellen mit: quantity - rows * columns
For row = 1 To rows
For column = 1 To columns
If counter >= quantity Then Exit Sub
Cells(row * 3, column) = Format(Teil1, "000") & " - " & Teil2
Teil1 = Teil1 + 1
counter = counter + 1
Next column
Next row
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Blatt mit "Aufkleber" füllen
17.03.2006 09:56:39
Thorsten
Danke UweD,
habs bis jetzt sehr gut mit dem Makro-Recorder ergänzen können. Ich hab jetzt nurnoch ein Problem. Wie kann ich mit Cells(row bis row + 3) 3 Zellen markieren?
Der bisherige Code der auch ganz gut funktioniert, wohl aber nicht der effektivste sein sollte :) schreib ich mal hier her:

Private Sub Copy()
Dim counter As Integer 'counter für Zelleninhalt
Dim row As Integer 'Zeile für die For-Schleife
Dim column As Integer 'Spalte für die For-Schleife
Dim rows As Integer 'Anzahl Zeilen die benötigt werden
Dim columns As Integer 'Anzahl Spalten die benötigt werden
Dim quantity As Integer 'benötigte Anzahl von fertigen Objekten
Dim Teil1%, Teil2$
Teil1 = Worksheets("Vorlage").Range("B4")
Teil2 = Worksheets("Vorlage").Range("D4")
counter = 0 'counter mit 0 initialisieren
quantity = Worksheets("Vorlage").Range("F2") 'Anzahl vom Tabellenblatt "Vorlage" holen
columns = 6 'Anzahl Spalten nach rechts festlegen für die For-Schleife
rows = quantity / columns * 3 'Anzahl Zeilen nach unten festlegen für die For-Schleife
'letzte Objekte erstellen mit: quantity - rows * columns
Sheets("Druck").Select
For row = 1 To rows
For column = 1 To columns
If counter >= quantity Then Exit Sub
With Cells(row, column)
.Value = Worksheets("Vorlage").Range("B2")
.Font.Name = "Arial"
.Font.Size = 11
.HorizontalAlignment = xlCenter
.Font.Italic = True
End With
With Cells(row + 1, column)
.Value = Worksheets("Vorlage").Range("B3")
.Font.Name = "Arial"
.Font.Size = 8
.HorizontalAlignment = xlCenter
.WrapText = True
.ShrinkToFit = True
End With
With Cells(row + 2, column)
.Value = Format(Teil1, "000") & " - " & Teil2
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
Cells(column).columns.AutoFit
With Cells(row * 3, column)
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeLeft).ColorIndex = xlAutomatic
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeTop).ColorIndex = xlAutomatic
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeBottom).ColorIndex = xlAutomatic
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).Weight = xlThin
.Borders(xlEdgeRight).ColorIndex = xlAutomatic
End With
Teil1 = Teil1 + 1
counter = counter + 1
Next column
Cells(row).rows.AutoFit
Cells(row + 1).rows.AutoFit
Cells(row + 2).rows.AutoFit
row = row + 2
Next row
End Sub

Anzeige
AW: Blatt mit "Aufkleber" füllen
17.03.2006 10:19:38
Thorsten
Hier nochmal mein Code, vielleicht kann jemand nochmal drüber schaun und das mit den Bordern Optimieren. Anders hab ichs nich hinbekommen.
Gruß Thorsten

Private Sub Copy()
Dim counter As Integer 'counter für Zelleninhalt
Dim row As Integer 'Zeile für die For-Schleife
Dim column As Integer 'Spalte für die For-Schleife
Dim rows As Integer 'Anzahl Zeilen die benötigt werden
Dim columns As Integer 'Anzahl Spalten die benötigt werden
Dim quantity As Integer 'benötigte Anzahl von fertigen Objekten
Dim Teil1%, Teil2$
Teil1 = Worksheets("Vorlage").Range("B4")
Teil2 = Worksheets("Vorlage").Range("D4")
counter = 0 'counter mit 0 initialisieren
quantity = Worksheets("Vorlage").Range("F2") 'Anzahl vom Tabellenblatt "Vorlage" holen
columns = 6 'Anzahl Spalten nach rechts festlegen für die For-Schleife
rows = quantity / columns * 3 'Anzahl Zeilen nach unten festlegen für die For-Schleife
'Tabellenblatt Druck Löschen um ein Jungfräuliches Blatt zu erhalten
Application.DisplayAlerts = False
Sheets("Druck").Delete
Sheets.Add.Name = "Druck"
Application.DisplayAlerts = True
Sheets("Druck").Select
For row = 1 To rows
For column = 1 To columns
If counter >= quantity Then Exit Sub
With Cells(row, column)
.Value = Worksheets("Vorlage").Range("B2")
.Font.Name = "Arial"
.Font.Size = 11
.HorizontalAlignment = xlCenter
.Font.Italic = True
End With
With Cells(row + 1, column)
.Value = Worksheets("Vorlage").Range("B3")
.Font.Name = "Arial"
.Font.Size = 8
.HorizontalAlignment = xlCenter
.WrapText = True
.ShrinkToFit = True
End With
With Cells(row + 2, column)
.Value = Format(Teil1, "000") & " - " & Teil2
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
Cells(column).columns.AutoFit
With Cells(row, column)
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeLeft).ColorIndex = xlAutomatic
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeTop).ColorIndex = xlAutomatic
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).Weight = xlThin
.Borders(xlEdgeRight).ColorIndex = xlAutomatic
End With
With Cells(row + 1, column)
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeLeft).ColorIndex = xlAutomatic
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).Weight = xlThin
.Borders(xlEdgeRight).ColorIndex = xlAutomatic
End With
With Cells(row + 2, column)
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeLeft).ColorIndex = xlAutomatic
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeBottom).ColorIndex = xlAutomatic
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).Weight = xlThin
.Borders(xlEdgeRight).ColorIndex = xlAutomatic
End With
Teil1 = Teil1 + 1
counter = counter + 1
Next column
Cells(row).rows.AutoFit
Cells(row + 1).rows.AutoFit
Cells(row + 2).rows.AutoFit
row = row + 2
Next row
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Arbeitsblätter zählen und Ergebnis verarbeiten
Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...
07.08.2008 19:11:30
Thread-ID: 1000078
8 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Häufigkeitslücken
Michi

Hallo,
google spuckt Zu "Excel" und "Häufigkeitslücken" lediglich 3 Treffer aus, die nicht gerade brauchbar für meine Aufgabe sind.
Ich muss für 3 Variablen eine Typisierung mit einer Häufigkeitslücke durchführen.
Hiermit bin ich fast gänzlich überfragt. Mit Quantilen hatte ich das...
11.08.2008 10:29:00
Thread-ID: 1000742
2 Beiträge
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
Anzeige
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
"Workbook"-Zugriff auf AddIn
Stefan

Hallo,
wie kann man auf eine Arbeitsmappe, z.B. auf Worksheets der Mappe zugreifen, wenn diese als AddIn gespeichert und geöffnet wird (egal ob installiert oder nicht) ?
Wo finde ich die geöffnete AddIn-Mappe, nicht in in der Workbooks-Auflistung, und wenn das AddIn nicht installiert is...
12.08.2008 21:23:00
Thread-ID: 1001316
6 Beiträge
mit VBA, VBA & Button's löschen
Remo

Hy Leute,
Ich möchte mit einem Button alle Button's und VBA löschen...
Geht das?
13.08.2008 08:16:00
Thread-ID: 1001365
6 Beiträge
ein Sheet "unlöschbar" machen
Daniel

Hallo zusammen!
Hätte mal wieder ne Frage!
kurz zur Info: Ich möchte ein Sheet in einer Arbeitsmappe per Mako unlöschbar, unbeschreibbar etc. machen und das ganze auch wieder aufheben....
Das mit dem unbeschreibbar geht auch ganz gut mit ThisWorkbook.Sheets(2).Protect password:="xx...
13.08.2008 11:11:00
Thread-ID: 1001439
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige