Range von tabelle1 kopieren in Tab2
15.06.2007 17:29:12
tabelle1
das untenstehnde makro (ich hab´s von Matthias.L und Hajo)
stellt fest, in welcher Zelle der letzte Eintrag steht und druckt diesen Bereich dann aus.
Ich möchte es derart erweitern,dass es mir diesen gefundenen range von Tabelle 1 in Tabellenblatt2 kopiert, wobei ich aber angeben möchte dass nur bestimmte Spalten kopiert werden sollen.
Hab´natürlich Null Ahnung...
Ich danke Euch für den Tip.
Gruss dieter
hier das makro:
Sub print_shippinglist()
Dim C As Variant, X As Variant
Dim StTabelle As String
StTabelle = InputBox("Type Listname; choose List: intern (for you) _
extern (Lab)")
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 "Last printed Cell will be " & X
.PageSetup.PrintArea = "$A$1:" & X
.PrintOut
End With
Fehler:
End Sub
Anzeige