Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
496to500
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
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Druckbereich anpassen

Druckbereich anpassen
07.10.2004 09:13:17
detleffranz
Hallo zusammen,
ich habe auf meinen Sheet einen Button der
meinen Druckbereich nach Eingaben in Spalte A
anpasst. Nun sollte aber noch der Zellbereich
A95:AL98 auch immer angezeigt werden. Hat jemand ein
Idee wie ich den Code änder muss ?
Gruß Detlef

Private Sub button_druckbereich_Click()
Dim z As Long
Dim RangeSource As Range
Dim first As Boolean
Set RangeSource = Worksheets("Aufnahme").Range("A11", "AN98")
Offset = 10
first = True
For z = 1 To 250 - 10 + 1
LVNr = RangeSource.Item(z, 1)
LVNrNeu = RangeSource.Item(z + 1, 1)
If first Then
LVNralt = LVNr
first = False
End If
If LVNr <> LVNrNeu Then
Else
If LVNr = "" Then
Exit For
End If
End If
LVNralt = LVNr
Next z
RangeSource.Select
Worksheets("Aufnahme").PageSetup.PrintArea = "$A$1" + ":$AN$" + Format$(z + Offset - 1)
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich anpassen
Erich
Hallo detleffranz,
vielleicht ist da ein Ansatz drin:
'Mailing-Index: 113/98
'Datum Frage: 20.03.98
'Datum Antwort: 21.03.98
'Version: Excel 5 / 7 / 8
' Forum: 4505
'
'Frage: Wenn ich eine Mehrbereichsauswahl drucke, verwendet Excel für jeden
'Bereich eine Seite, obwohl alle Bereiche auf einer Seite Platz fän-
'den. Wie kann ich das ändern?
'
'Antwort: Mit nachfolgendem Makro werden alle selektierten Bereiche auf einem
'temporären Druckblatt gesammelt und dann gedruckt. Das Blatt wird
'danach wieder gelöscht.
'****************** Mehrbereichsauswahl auf eine Seite drucken. *******************
'

Sub MehrBereichsDruck()
'Dim TB1 As Worksheet
'Dim TB2 As Worksheet
'Dim SA As Range
'Dim i%, y%
'Application.ScreenUpdating = False
'Set TB1 = ActiveSheet
'Set TB2 = Worksheets.Add
'TB1.Select
'i = 1: y = 1
'For Each SA In Selection.Areas
'TB2.Cells(i, 1) = "Bereich Nr. " & y
'i = i + 1
'SA.Copy
'TB2.Cells(i, 1).PasteSpecial Paste:=xlValues
'i = TB2.Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row + 2
'y = y + 1
'Next SA
'TB2.PrintPreview
'Application.DisplayAlerts = False
'TB2.Delete
'Application.DisplayAlerts = True
'End Sub

'
mfg
Erich
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige