Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1268to1272
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
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Jede Zeile auf einer Seite ausdrucken

Jede Zeile auf einer Seite ausdrucken
Stef@n
Hallo Excel-Freunde
ich verzweifel weil ich nicht auf die Lösung komme.
Ich habe eine Datei in der 42 Zeilen enthalten sind
Spalte A Name - Spalte B Datum und eine Grafik
Die beiden Spalten sind so breit, daß der Name linksbündig, das Datum rechtsbündig
auf einer DinA4 Seite erscheinen soll (jeweils ganz oben)
Ich möchte jetzt JEDE einzelne Zeile ausdrucken - jeweils auf einer eigenen DinA4 Seite oben
Ich habe unter Seite einrichten die Seitenskalierung auf 42 Seiten hoch eingestellt,
aber Excel zeigt mir immer nur 2 Seiten ein.
Ist die Lösung möglicherweise sooo einfach, daß ich nur ein Brett vor dem Kopf habe ?
Freu mich auf einen Tip
Besten Gruß
Stef@n
Drücke den Deutschen all meine Daumen - es sind 4 ... Daumen ;)))

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Jede Zeile auf einer Seite ausdrucken
28.06.2012 21:48:44
Josef

Hallo Stefan,
das geht z.B. so.
Sub ZeilenDrucken()
  Dim lngRow As Long
  
  With ActiveSheet  ' oder Sheets("Tabellenname")
    For lngRow = 1 To 4
      Application.StatusBar = "Drucke Zeile " & lngRow & " von 42"
      .Range(.Cells(lngRow, 1), .Cells(lngRow, 3)).PrintOut Copies:=1
      DoEvents
      Application.Wait Now + TimeSerial(0, 0, 1)
    Next
  End With
  
  Application.StatusBar = False
End Sub



« Gruß Sepp »

Anzeige
PERFEKT ! also doch VBA ;)
28.06.2012 22:10:15
Stef@n
Hallo Sepp
ich Danke Dir sehr - mein Drucker läuft heiss ;))
Wenn ich mir immer, wenn ich hier auf herber bin,
mir deine Lösungen ansehe - bin ich immer wieder "platt"
Sag mal - wo wohnst du ?
Wenn Du mal ein Seminar anbietest - ich würde GARANTIERT kommen !
... Auch wenn die Anreise von mir (in der Nähe von FFM) weiter ist !
Also: grossen Respekt für Deine Lösungen / Tips ..
TOLL!
Besten Gruß
Stef@n
AW: PERFEKT ! also doch VBA ;)
28.06.2012 22:15:31
Josef

Hallo Stefan,
wo ich wohne, tief in den dunklen Bergen des heiligen Landes Tirol;-))
Auf ein Seminar von mir wirst du wohl vergeblich warten, Excel/VBA ist nur ein Hobby von mir.

« Gruß Sepp »

Anzeige

317 Forumthreads zu ähnlichen Themen

Mittelwert jeder 3. Zelle einer Zeile
Dennis

Hallo,
wie kann ich denn in Excel den Mittelwert jeder 3. Zelle einer Zeile berechnen. Also z.B. D1, G1, J1.
Mauelle Eingabe ist nicht möglich, da ich rund 200 Werte erfassen muss.
Viele Dank schonmal!
Grüße, Dennis
08.05.2009 20:21:07
Thread-ID: 1074006
5 Beiträge
Anzeige
Kombinationsfeld in jeder Zelle einer Spalte
Joe

Hallo Gemeinde,ich möchte in einer Spalte lauter Kombinationsfelder einfügen.
Eigentlich sollten es nur Drop-Down-Felder sein in den immer das selbe steht, wie Herr, Frau, Dr., Prof. ...
Um das ein bisschen besser zu verstehen, die Tabelle enthält Adressen und um sich nicht ständig zu ver...
13.06.2002 13:25:02
Thread-ID: 128398
3 Beiträge
Transponieren jeder 2ten Zelle einer Zeile
Matze

Nochmal Hallo @ All,
Jede 2te Zelle der Zeile3 soll in Tabelle 2 in Spalte A kopiert werden, Problem für mich sind die Leeren Zellen dazwischen.
Habe es mit "Inhalte einfügen - Transponieren" und dem vorgesehen Haken "Leerzellen überspringen" nicht geschafft.
Mir ist auch noch schle...
19.07.2013 23:04:29
Thread-ID: 1323345
6 Beiträge
Anzeige
Formel in eine Zelle anstatt für jede Zeiele
Daniel

Hallo,
ich habe eine Tabelle mit Werten für jeden Monat.
X1 X2 Formel
Wert 1 1 3 X1 x (80+(X2-X1) x 20)
Wert 2 6 4 ...
Am Ende interessiert mich die Summe aller Formeln. Ich möchte auch auf eine extra Spalte verzichten, in welche ich diese Formeln schreibe und dan...
11.03.2014 14:31:42
Thread-ID: 1353066
2 Beiträge
Wert einer Zelle zu jeder vollen Stunde Auslesen
Frank

Hallo Ich möchte den Inhalt einer Zelle zu jeder vollen Stunde auslesen und in einer andern Zelle Speichern. Beispiel: [45654] Zelle die ausgelesen werden soll

22:00 [45654]
23:00 [54654]
usw.Der Wert im der Zelle die Ausgelesen werden soll, erhöt sich alle 60 sekunde...
13.07.2002 10:46:44
Thread-ID: 136236
2 Beiträge
jede 5. Zelle in einer Spalte addieren
André

HalloWie aknn ich es erreichen, dass nur der Wert jeder fümften Zelle miteinander addiert wird?André
21.07.2002 12:37:29
Thread-ID: 138784
2 Beiträge
Jeder Zelle einer Tabelle automatisch Namen geben
Barbara

Hallo
ich würde gerne jede Zelle einer Tabelle mit einem Namen versehen, der aus den Zellen der ersten Spalte und obersten Zeile zusammen gesetzt ist.
Unten ein Beispiel, das sich aber auf einen bestimmten Bereich bezieht, das ich in diesem Forum _
gefunden habe. Sub ErstelleNa...
30.07.2014 20:02:38
Thread-ID: 1373242
19 Beiträge
jede 4 und 5 zelle mit einem x markieren
andreas

hallo zusammen
zur erstellung eines arbeitsplanes muss ich immer 4 zellen frei und in den nächsten 2 zellen jeweils ein x eintragen (das ganze über total 40 tage). es ist möglich, dass ich die x jeweils versetzen muss. deshalb meine frage, kann ich das per makro lösen? das makro sollte von d...
26.07.2002 22:35:46
Thread-ID: 141355
5 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
4
13
2
5
3
1
1
1
18
4
6
2
7
5
1
4
4
2
5
3
7
2
2
4
1