Microsoft Excel

Herbers Excel/VBA-Archiv

Eine Zeile auf ein Blatt



Thema: Eine Zeile auf ein Blatt

Betrifft: Eine Zeile auf ein Blatt
von: Simon
Geschrieben am: 26.09.2002 - 15:56:41

Hallo,

ich möchte eine Zeile auf ein Blatt ausdrucken.
Ich hab ca. 60 Zeilen und so möchte ich jeweils eine zeile auf ein Blatt. Sprich ich hab dann 60 Blätter.
Wi mach' ich das?

Gruß Simon


  

Re: Eine Zeile auf ein Blatt
von: GraFri
Geschrieben am: 26.09.2002 - 16:16:51

Hallo


Option Explicit

'Annahme: Die Zeilen befinden sich im ersten Blatt der Datei
Private Sub ZeileDrucken()
Dim n           As Integer
Dim BeginnZeile As Integer
Dim EndZeile    As Integer


'Zeilennummer anpassen
BeginnZeile = 2
EndZeile = 61
On Error Resume Next

For n = BeginnZeile To EndZeile
    Sheets(1).Rows(n).Select
    'Eigentlicher Ausdruck
    Selection.PrintOut
Next

End Sub

mfg, GraFri

  

Re: Eine Zeile auf ein Blatt
von: Simon
Geschrieben am: 26.09.2002 - 16:18:07

Hä? Per Script? Geht das auch anderes noch?
Aber trotzdem danke!

  

Re: Eine Zeile auf ein Blatt
von: GraFri
Geschrieben am: 26.09.2002 - 16:25:40

Hallo

Wüßte sonst keine Lösung. Aber warum nicht mit dem Makro?

Ganz einfach:
Drücke in der Excel-Tabelle Alt+F11, dann solte ein zweigeteiltes Fenster erscheinen (oder: Unter Extras\Makro... den Visual-Basic Editor aufrufen). Im linken Fenster (falls nicht vorhanden, Strg+R drücken) findest du eine Auflistung aller geöffneter Dateien. Wähle dort die entsprechende Datei und dann das entsprechende Tabellenblatt durch doppelklick aus. Anschließend kopiere den Code in das rechte Fenster. Dann im Code den Tabellennamen und eventuell auch die Ausgabezelle anpassen. Das Makro startest du, indem du den Curser irgendwo im Makro plazierst und die Taste F5 drückst.

Viel Vergnügen
mfg, GraFri

  

Re: Eine Zeile auf ein Blatt
von: Simon
Geschrieben am: 26.09.2002 - 16:45:21

Und wie mach die Seite dann ins Querformat?
Ansonsten funkts supi!

  

Re: Eine Zeile auf ein Blatt
von: Simon
Geschrieben am: 26.09.2002 - 17:00:12

Und wie mach die Seite dann ins Querformat?
Ansonsten funkts supi!