Guten Tag,
ich habe eine Excel Datei mit 2 Spalten, in der einen Fragen, in der anderen die dazugehörigen Antworten. Ich möchte diese (z.B. in Word importieren und) auf A4 Seiten mit 16 Fragen pro Seite (mit den Antworten auf der Rückseite) ausdrucken, um diese danach auszuschneiden u. zum Lernen unterwegs zu verwenden.
Kann mir jemand helfen?
ich habe eine Excel Datei mit 2 Spalten, in der einen Fragen,
in der anderen die dazugehörigen Antworten. Ich möchte diese
(z.B. in Word importieren und) auf A4 Seiten mit 16 Fragen pro
Seite (mit den Antworten auf der Rückseite) ausdrucken, um
diese danach auszuschneiden u. zum Lernen unterwegs zu
verwenden.
Hallo Q,
warum erst nach Word exportieren?
Ich denke ein Excel-makro ist möglich, daß das macht was du willst.
Also erst A1:A16 ausdrucken, dann B1:B16, dann A17:A32 usw.
Zwischendurch mußt du halt das ausgedruckte Blatt umdrehen.
Möglich daß es Drucker gibt die zweiseitg ausdrucken können, die kenne ich aber nicht.
Gruß
Reinhard
Guten Tag,
danke Reinhard.
Ich denke ein Excel-makro ist möglich, daß das macht was du
willst.
Also erst A1:A16 ausdrucken, dann B1:B16, dann A17:A32 usw.
Wie kreiere ich ein solches Makro? Es sollen ja 4x4 Karteikarten pro A4 Seite herauskommen. Es müsste doch erst A1:A16, dann B4, B3, B2, B1, B8, B7, B6, B5, B12, B11, B10, B9, B16, B15, B14, B13 gedruckt werden, damit sich die Antworten an der richtigen Stelle befinden, oder?
Gruß Kevin
Wie kreiere ich ein solches Makro? Es sollen ja 4x4
Karteikarten pro A4 Seite herauskommen. Es müsste doch erst
A1:A16, dann B4, B3, B2, B1, B8, B7, B6, B5, B12, B11, B10,
B9, B16, B15, B14, B13 gedruckt werden, damit sich die
Antworten an der richtigen Stelle befinden, oder?
Hallo Kevin,
4x4? Pro Blatt 4 Reihen a 4 Karten?
Bastle mal eine Beispielmappe und lade sie hoch mit FAQ:2606
Das man da Zellen umkopieren muß ist richtig.
Und man muß auch spiegeln.
Angenommen das Blatt ist 20 cm breit, 2 cm Rand links und Rechts.
Dann ist der Druckbereich für die erste karte (4cm breit) von 2m biszu 6cm (bezogen auf linken Rand.
Die Rückseite davon wird dann analog von 14 bis 18 cm gedrckt damits wieder passt.
Schau mal hier
http://www.google.de/#hl=de&source=hp&q=excel+kartei…
Gruß
Reinhard
Hallo Reinhard,
danke für Deine Antwort! In Google habe ich nichts gefunden, das mein Problem lösen kann.
Ich habe unter http://www.hostarea.de/server-10/Oktober-e96c0841e4.pdf zwei Beispielseiten im Querformat hochgeladen, wie ich mir die 16 Karteikarten pro Seite vorstelle, wobei F für Frage und A für Antwort steht.
Wäre genial, wenn es dafür eine Lösung gäbe.
LG
Kevin
http://www.hostarea.de/server-10/Oktober-e96c0841e4.pdf zwei
Beispielseiten im Querformat hochgeladen, wie ich mir die 16
Karteikarten pro Seite vorstelle, wobei F für Frage und A für
Antwort steht.
Hallo Kevin,
vielleicht wäre Word, Etikettendruck doch einfacher gewesen. ;öglicherweis nieten irgendwelche Drucker sowas beidseitiges auch an, k.A, meiner nicht 
In dieser Beispielmappe ist der nachstehende Code. Er muß ins Modul1 und gestartet wird die Prozedur „Drucken“
Die Blattnamen im Code kannst du ja abändern wenn deine Blätter anders heißen.
Mit
.UsedRange.Cells.RowHeight = 100
.UsedRange.ColumnWidth = 30
kannst du ja andere Zellenbreiten und Höhen austesten.
Wenn anstatt 4x4 nur noch 3x3 ausgedruckt wird waren die Werte wohl zu groß
.PageSetup.PrintGridlines = True
gibt an daß Giternetzlinien mitgedruckt werden, laß die Zeile weg oder besser schreib das hin:
.PageSetup.PrintGridlines = False
dann wird ohne Linien ausgedruckt.
Derzeit ist der Code noch so daß nicht ausgedruckt wird sondern pro Druckblatt nur die Seitenvorschau kommt.
Wenn da alles für dich richtig läuft, entferne
.Range(„A“ & Zei2 & „
“ & Zei2 + 3).PrintPreview
und mache hier das Hochkomma weg
'.Range(„A“ & Zei2 & „“ & Zei2 + 3).Printout
In der anderen For-Schleife genauso.
Der Code geht davon aus daß in Blatt1 so eine beliebig lange Liste steht wie in der nachstehenden Tabelle, daraus wird dann im Blatt2 die zu druckende Tabelle erstellt.
Hier die Beispielmappe:
http://www.hostarea.de/server-10/Oktober-fc9379e18e.xls
Tabellenblatt: C:\Dokumente und Einstellungen\ich2\Eigene Dateien\[Vokalbelkarten.xls]!Tabelle1
│ A │ B │
──┼────────┼──────────┤
1 │ Frage │ Antwort │
──┼────────┼──────────┤
2 │ Frage1 │ Antwort1 │
──┼────────┼──────────┤
3 │ Frage2 │ Antwort2 │
──┼────────┼──────────┤
4 │ Frage3 │ Antwort3 │
──┼────────┼──────────┤
5 │ Frage4 │ Antwort4 │
──┼────────┼──────────┤
6 │ Frage5 │ Antwort5 │
──┼────────┼──────────┤
7 │ Frage6 │ Antwort6 │
──┴────────┴──────────┘
Tabellendarstellung erreicht mit dem Code in FAQ:2363
Option Explicit
'
Sub Drucken()
Dim wks2 As Worksheet, Zei2 As Long
Call Rueck
Set wks2 = Worksheets("Tabelle2")
With wks2
.PageSetup.Orientation = xlLandscape
.PageSetup.PrintGridlines = True
For Zei2 = 1 To .Cells(Rows.Count, 1).End(xlUp).Row Step 4
.Range("A" & Zei2 & ":smiley:" & Zei2 + 3).PrintPreview
'.Range("A" & Zei2 & ":smiley:" & Zei2 + 3).Printout
Next Zei2
For Zei2 = 1 To .Cells(Rows.Count, 1).End(xlUp).Row Step 4
.Range("E" & Zei2 & ":H" & Zei2 + 3).PrintPreview
'.Range("E" & Zei2 & ":H" & Zei2 + 3).Printout
Next Zei2
End With
End Sub
'
Sub Rueck()
Dim Zei1 As Long, Zei2 As Long, Z As Long, wks1 As Worksheet, wks2 As Worksheet
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
With wks1
wks2.UsedRange.ClearContents
For Zei1 = 2 To .Cells(Rows.Count, 1).End(xlUp).Row Step 4
Zei2 = Zei2 + 1
For Z = 0 To 3
wks2.Cells(Zei2, 5 + Z).Value = .Cells(Zei1 + 3 - Z, 2).Value
wks2.Cells(Zei2, 1 + Z).Value = .Cells(Zei1 + Z, 1).Value
Next Z
Next Zei1
End With
With wks2
.UsedRange.Cells.RowHeight = 100
.UsedRange.ColumnWidth = 30
.UsedRange.Cells.HorizontalAlignment = xlLeft
.UsedRange.Cells.VerticalAlignment = xlTop
End With
End Sub