1. Lassen sich Auswahlen von bestehenden Auswahlen (markierte Bereiche) abziehen?
2. Kann mann beim Kopieren und einfügen von Inhalten alle! Formate mit übertragen, auch Spaltenbreiten (und mit einem "Rutsch") ?
MfG
uli
Sub tt()
For Each ws In ThisWorkbook.Worksheets
If ActiveSheet.PageSetup.PrintArea <> "" Then
z = ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea).Cells(Range(ActiveSheet.PageSetup.PrintArea).Count).Row
s = ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea).Cells(Range(ActiveSheet.PageSetup.PrintArea).Count).Column
Range(Cells(1, s + 1), Cells(65536, 256)).Select
With Selection
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
Range(Cells(z + 1, 1), Cells(65536, s)).Select
With Selection
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
End If
ActiveSheet.Range("a1").Select
Next ws
End Sub
Sub tt()
If InStr(Selection.Address, ",") Then
Bereich = Left(Selection.Address, InStrRev(Selection.Address, ",") - 1)
Range(Bereich).Select
End If
End Sub