|
Hätte die Schleife nun eingebaut... aber er löscht mir nur die ausgebelenden Zeilen... nicht jedoch die ausgeblendeten Spalten....
Sub BlattKopieren(control As IRibbonControl)
Application.ScreenUpdating = False
With ActiveSheet
If Protect = True Then
.Unprotect
End If
End With
ActiveSheet.Copy After:=ActiveSheet
'Dimensionierung der Variablen
Dim z As Long
Dim s As Long
Dim letzteZeile As Long
Dim letzteSpalte As Long
letzteZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
'MsgBox letzteZeile
letzteSpalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
'MsgBox letzteSpalte
'Alle ausgeblendeten Zeilen löschen
For z = 1 To letzteZeile
If Rows(z).Hidden = True Then
Cells(z, 1).EntireRow.Delete
z = z - 1
End If
Next z
'Alle ausgeblendeten Spalten löschen
For s = letzteSpalte To 1
If Columns(s).Hidden = True Then
Columns(s).EntireColumn.Delete
s = s - 1
End If
Next s
Cells(2, 1).Select
Application.ScreenUpdating = True
End Sub
|