habe dieses Programm im Archiv gefunden, funktioniert super.
Sub DruckBereich()
Dim intStartRow As Integer, intEndRow As Integer
Dim intStartCol As Integer, intEndCol As Integer
Dim txt As String
intStartRow = 1
intEndRow = 10
intStartCol = 5
intEndCol = 10
txt = Range(Cells(intStartRow, intStartCol), _
Cells(intEndRow, intEndCol)).Address
ActiveSheet.PageSetup.PrintArea = ActiveSheet.Name & "!" & txt
End Sub
Kann mir einer von Euch erklären was dieses bewirkt ActiveSheet.Name & "!"
ist es die Zuweisung auf das aktuelle Tabellenblatt? , könnte man auch nur den Bereich(txt) übergeben?, oder hätte es irgendwie negative Auswirkungen?
Schönen Gruß
Sophie