Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

eine Vorlage mehrmals einfügen

Forumthread: eine Vorlage mehrmals einfügen

eine Vorlage mehrmals einfügen
10.09.2018 21:28:12
Andre
Hallo Zusammen
Ich habe mit den Macrorecorder ein Makro aufgezeichnetläuft auch super
nun möchte ich wenn bei B3 eine grössere Zahl als 4 stehet das das Makro die ersten 4 Vorlagen druckt und dann die anderen beiden neu erstellt und dann auch druckt. Es dürfen immer nur 4 Vorlagen auf einer Seite sein.
Ich habe eine Testdatei hochgeladen.
Gibt es dafür eine Möglichkeit das zu lösen?
Ich bedanke mich schon im voraus.
https://www.herber.de/bbs/user/123870.xlsx
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: eine Vorlage mehrmals einfügen
11.09.2018 05:40:43
Hajo_Zi
das geht nicht, da eine XLSX Datei kein Makro enthalten kann.
Ich sehe keinen Grund eine Datei 2x zu speichern. Ich führe keine Liste unter welchem Dateinamen ich die Datei gespeichert habe.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Anzeige
AW: eine Vorlage mehrmals einfügen
11.09.2018 06:18:40
Andre
Guten Morgen Hajo
Ich habe noch eine Testdatei hochgeladen hoffe es funktioniert jetzt.
Danke schon mal für deine Hilfe
https://www.herber.de/bbs/user/123872.xlsm
AW: @Hajo: Doch als Text! o.T.
11.09.2018 09:22:45
Gerd
AW: eine Vorlage mehrmals einfügen
11.09.2018 08:46:07
ChrisL
Hi Andre
z.B.
Sub Makro1()
Dim i As Integer
For i = 1 To WorksheetFunction.RoundUp(Range("B3") / 4, 0)
Range("B3:D20").Copy Range("G3")
Range("B3:D20").Copy Range("B23")
Range("B3:D20").Copy Range("G23")
MsgBox "Print " & i
Next i
End Sub
cu
Chris
Anzeige
AW: eine Vorlage mehrmals einfügen
11.09.2018 09:20:15
Gerd
Moin Andre 
Sub teste()
Dim Seite As Integer, Gesamt As Integer
Dim NummerEins As Integer, Nummer As Integer, Etikett As Integer
Dim sh As Integer
Gesamt = Range("B3").Value
NummerEins = Range("B7").Value
Nummer = NummerEins - 1
For Seite = 1 To WorksheetFunction.RoundUp((Gesamt / 4), 0)
For Etikett = 1 To 4
Nummer = Nummer + 1
Select Case Etikett
Case 1: Range("B7").Value = Nummer
Case 2:
Range("B3:D20").Copy Destination:=Range("G3")
Range("G7").Value = Nummer
Case 3:
Range("B3:D20").Copy Destination:=Range("B23")
Range("B27").Value = Nummer
Case 4:
Range("B3:D20").Copy Destination:=Range("G23")
Range("G27").Value = Nummer
End Select
If Nummer = Gesamt Then Exit For
Next
MsgBox "Print" & Seite
ActiveSheet.PrintOut copies:=1
If Etikett > 1 Then
Range("G3:I20,B23:D40,G23:I40").Clear
For sh = Etikett To 2 Step -1
Shapes(sh).Delete
Next
End If
Next
Range("B7").Value = NummerEins
End Sub

Gruß Gerd
Anzeige
AW: eine Vorlage mehrmals einfügen
11.09.2018 09:58:06
Andre
Hallo Gerd und Chris
Erstmal vielen Dank für eure Hilfe
Der Code von Gerd ist super und läuft
Ihr seid echt die Besten
Danke nochmal
AW: eine Vorlage mehrmals einfügen
11.09.2018 12:29:16
Andre
Hallo Gerd
Ein Problem gibt es doch mit dem Code :)
Der Code löscht nicht die Bilder mit bei den Kopien, was kann ich tun das er auch diese macht.
Danke schön
Anzeige
AW: Ergänzung
11.09.2018 13:45:14
Gerd
Hallo Andre,
setze bitte noch das Blatt in die Codezeile zum Löschen der Objekte.
ActiveSheet.Shapes(sh).Delete
Gruß Gerd
AW: Ergänzung
12.09.2018 08:19:57
Andre
Guten Morgen Gerd
Sorry das ich nochmal störe erstmal vielen Dank nochmal für deine Hilfe.
Jetzt gibt es noch ein Problem und zwar bei der 2 Seite wird das Bild dann nicht mit gedruckt sonst läuft es super.
Hast du vielleicht noch eine Idee was man da machen kann
Anzeige
;

Forumthreads zu verwandten Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
in spalte müssen 2 gleiche zahlen vorh. sein ...
Jessi

hallo zusammen,
suche nach einem makro, dass in spalte A überprüft ob von den dort geschriebenen zahlen jeweils zwei gleiche vorhanden sind. es geht um eine doppelbelegung eines zimmers. die zahl ist die zimmer-nr.
wäre z.b. nur einmal eine zahl in der spalte, wäre es möglich in das jew...
04.10.2008 15:33:00
Thread-ID: 1014154
5 Beiträge
Zeichen in Zelle automatisch kürzen
Andreas

Guten Tag,
ich habe Zellen mit jeweils 12 Stellen ausgefüllt (z.B. 000012345678) Davon hätte ich nun gerne automatisch die ersten 4 gelöscht (sodaß in diesem Beispiel dann in der Zelle nur 12345678 verbleibt)
Ist das mit Excel-Bordmitteln machbar?
Danke für Hilfe voarab,
Andreas...
09.10.2008 13:57:00
Thread-ID: 1015344
4 Beiträge
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Eine Zahl mit vorhandener Zahlenliste vergleichen
Niklas

Hallo Leute!
Es geht darum, eine eingegebene Zahl mit einer vorhandenen Zahlenliste vergleichen und die beiden nächstgelegenen Zahlen der Zahlenliste verwenden!
zur veranschaulichung:
ich habe die die zahlenliste : 1 , 2, 3, 4, 5, 6, 7
der eingegebene Wert ist z.B 1.5 dann soll...
17.10.2008 09:49:22
Thread-ID: 1017045
8 Beiträge
Autofilter - Anzahl vorh. Sätze
KViertel

Hallo in die Runde,
In einem Tabellenblatt wird In VBA ein Autofilter gesetzt. Die dabei angezeigten Sätze sollen in ein anderes Tabellenblatt kopiert werden. Wenn jetzt keine Sätze vorhanden sind, wird die Sub abgebrochen. In der Recherche habe ich einen Hinweis zu Subtotal gefunden, weiß...
11.12.2008 11:45:00
Thread-ID: 1031999
3 Beiträge
Anzeige
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
Anzahl der Zeichen in einer Zelle
Jan

Guten Morgen
Welcher Befehl zählt die Zeichen in einer Zelle?
Danke
Gruß Jan
07.01.2009 08:38:00
Thread-ID: 1037436
3 Beiträge
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
3 Beiträge
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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