Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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

300 Forumthreads zu ähnlichen 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
Anzeige
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
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
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
"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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4