Eintrittskarten kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
kannst du ohne Makro so machen.
Verwende die Tabelle2 (3 Karten pro Zeile, Pro Karte 4 Spalten * 7 Zeilen)
mit folgendnen Änderungen:
1. Hebe die Verbundenen Zellen auf (Zeile 2 und 3).
stattdessen kannst du die Horizontale Ausrichtung: über Spalten zentrieren verwenden
2. verschiebe die Namen und somit die Eingabebereiche für "Stück" und "Termin" in einen freien Bereich der Tabelle, so dass auch in der linken oberen Karte die Formeln =Stück / =Termin stehen
3. Verwende für die Berechnung der Reihe und Platz folgende Formeln:
Reihe: =AUFRUNDEN((ABRUNDEN(ZEILE()/7;0)*3+SPALTE()/4)/14;0)+1
Platz: =REST((ABRUNDEN(ZEILE()/7;0)*3+SPALTE()/4)-1;14)+1
richte so die erste Karte ein.
kopiere dann diese Karte noch zwei mal nach rechts und dann diese 3 karten soweit nach unten wie benötigt.
Du kannst einfach kopieren, weil alle Karten dieselben Formeln verwenden und Reihe und Platz aus der Position auf dem Blatt berechnet wird.
die Karte Reihe 1 Platz 14 müsstest du nachträglich aussortieren oder hier nach dem Kopieren die Zellen dieser Karte leeren (bzw ein x beim Titel und "Theatergemeinschaft" eintragen).
Gruß Daniel

Hallo
Hier der Makro Text. Das 1.Makro legt einen Block an (14 Spalten, 20 Zeilen)
Das 2.Makro listet alles in einer Spalte untereinander, z.B. als Endlosband.
Bei mir lief es zum Test in Tabelle3 für Block und in Tabelle4 für Streifen
Mein Gedanke war das man den Karten Text in einer Excel Zelle schreiben kann
die gross genug ist zum Drucken und dann den Text Reihe + Platz nur hinzufügt
Zumindest zeigt das Beispiel eine brauchbare Lösung für For Next Schleifen.
Als 1. Zelle habe ich B2 gewaehlt. (With Range("B2")) Man kann es auf A1 setzen.
With Range dient hier als Basis Adresse für alle Cells() Ausführungen.
Die 1. Reihe mit nur 13 Plaetze wurde in der Schleife berücksichtigt
Option Explicit

Sub Reihe_undPlatz_alsBlock_ausfüllen()
Dim Reihe As Integer, Platz As Integer
Sheets("Tabelle3").Select
Range("B2:Q21").ClearContents
'1.Schleife für Reihe ausfüllen
For Reihe = 1 To 20
With Range("B2")  '1.Zelle "B2"
'2.Schleife für Platz ausfüllen
For Platz = 1 To 14
.Cells(Reihe, Platz) = "Reihe " & Reihe & " / Platz " & Platz
If Reihe = 1 And Platz = 13 Then Exit For  'Aussprung 1.Reihe
Next Platz
End With
Next Reihe
End Sub

Sub Reihe_undPlatz_alsStreifen_ausfüllen()
Dim n, Reihe As Integer, Platz As Integer
Sheets("Tabelle4").Select
Range("B2:B280").ClearContents
'1.Schleife für Reihe ausfüllen
For Reihe = 1 To 20
With Range("B2")  '1.Zelle "B2"
'2.Schleife für Platz ausfüllen
For Platz = 1 To 14
n = n + 1
.Cells(n, 1) = "Reihe " & Reihe & " / Platz " & Platz
If Reihe = 1 And Platz = 13 Then Exit For  'Aussprung 1.Reihe
Next Platz
End With
Next Reihe
End Sub

Gruss Adis

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread