Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
424to428
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
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Leerzeilen nicht drucken

Leerzeilen nicht drucken
10.05.2004 11:24:14
Harald
Hallo Exelfreunde !
Ich hab da ein Problem und vieleicht könnt Ihr mir helfen.
Ich hab eine Liste mit 16 Zeilen, in (z.B.) 5 Zeilen stehen
Namen, diese Namen sollen einzelt,bei Druck auf eine Schaltfläche,
in ein anderes Tabellenblatt, in eine bestimmte Zelle übertragen
und diese Tabellenblätter einzelt ausgedruckt werden, so dass auf
jedem Ausdruck ein anderer Name steht.
Nun sollen aber auch nur so viele Blätter ausgedruckt werden, wie
Namen in der Liste stehen, die leeren Zellen in der Liste, sollen
nicht berücksichtigt werden.
Kann mir irgendjemand einen Tip geben, wie so was zu lösen ist ?
Im Vorraus schon mal vielen Dank.
Gruss Harald.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeilen nicht drucken
14.05.2004 09:51:06
Heinz
Hallo Harald
z.B. so:

Sub NamenDrucken()
Dim z As Range, ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("Tabelle1")
Set ws2 = ThisWorkbook.Worksheets("Tabelle2")
For Each z In ws1.Range("A2:A" & ws1.Cells(Rows.Count, 1).End(xlUp).Row)
If z.Value <> "" Then
z.Copy ws2.Range("C1")
ws2.PrintOut
End If
Next z
End Sub

Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige