fortführung eines makros

Sub print_shippinglist() Dim C As Variant, X As Variant For Each C In ActiveSheet.UsedRange If C.Value "" Then X = C.Address Next MsgBox "letzter Wert im Bereich steht in Zelle " & X -----------------------------------------------unterer teil: ' Range("A1:O65").Select ' ActiveSheet.PageSetup.PrintArea = "$A$1:$O$65" ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub print_shippinglist() Dim C As Variant, X As Variant For Each C In ActiveSheet.UsedRange If C.Value "" Then X = C.Address Next MsgBox "letzter Wert im Bereich steht in Zelle " & X '-----------------------------------------------unterer teil: ' Range("A1:O65").Select With ActiveSheet .PageSetup.PrintArea = "$A$1:" & X .PrintOut End With End Sub

Sub print_shippinglist() Dim C As Variant, X As Variant With Worksheets("Kopie") For Each C In .UsedRange If C.Value "" Then X = C.Address Next MsgBox "letzter Wert im Bereich steht in Zelle " & X '-----------------------------------------------unterer teil: ' Range("A1:O65").Select .PageSetup.PrintArea = "$A$1:" & X .PrintOut End With End Sub

Sub print_shippinglist() Dim C As Variant, X As Variant Dim StTabelle As String StTabelle = InputBox("Bitte Tabellennamen eingeben!") If StTabelle = "" Then Exit Sub On Error GoTo Fehler With Worksheets(StTabelle) For Each C In .UsedRange If C.Value "" Then X = C.Address Next MsgBox "letzter Wert im Bereich steht in Zelle " & X '-----------------------------------------------unterer teil: ' Range("A1:O65").Select .PageSetup.PrintArea = "$A$1:" & X .PrintOut End With Fehler: End Sub

Hallo Hajo, es bezieht sich hierauf: https://www.herber.de/forum/archiv/876to880/t877566.htm
und dein posting vom 13.06. 18:18Uhr:


Sub print_shippinglist()
Dim C As Variant, X As Variant
Dim StTabelle As String
StTabelle = InputBox("Bitte Tabellennamen eingeben!")
If StTabelle = "" Then Exit Sub
On Error GoTo Fehler
With Worksheets(StTabelle)
For Each C In .UsedRange
If C.Value  "" Then X = C.Address
Next
MsgBox "letzter Wert im Bereich steht in Zelle " & X
'-----------------------------------------------unterer teil:
'    Range("A1:O65").Select
.PageSetup.PrintArea = "$A$1:" & X
.PrintOut
End With
Fehler:
End Sub

Nun meine Antwort :
Hallo Hajo.
ich verwende dein obiges makro.
Das zweite Blatt erstellt eine weitestgehende Kopie des Ersten.
Nur habe ich die zellen in Tabelle2 miteinander verlingt durch =Tabelle1!A500.
Da das makro ja feststellt, in welcher zelle der letzte Eintrag ist, wird mir hier immer A500 angegeben und dann immer 9 seiten ausgedruckt. Was tun? Gibt es eine andere Methode Zellinhalte in ein Arbeitsblatt zu kopieren; derart dass wenn in Blatt1 der Eintrag bis O57 geht, dieser auf Blatt 2 auch nur bis 057 geht?
danke und gruss
dieter
(wat probleme)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

fortführung eines makros

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread