|
Hallo liebe VBA-Freunde!
Ich würde gern das jeweils aktuelle Blatt kopieren in ein neues Blatt, jedoch sollen dabei die ausgeblendeten Zeilen und Spalten gelöscht werden.
Die Zeile kann ich ja noch mit meinem Code ausblenden, aber der Code-Teil um die ausgeblendeten Spalten zu löschen hat irgendeinen Fehler...
Danke für eure Hilfe!!!
CODE:
Sub BlattKopieren(control As IRibbonControl)
Application.ScreenUpdating = False
With ActiveSheet
If Protect = True Then
.Unprotect
End If
End With
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Activate
'Dimensionierung der Variablen
Dim i As Long
Dim letzteZeile As Long
Dim letzteSpalte As Long
letzteZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
letzteSpalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
'Alle ausgeblendeten Zeilen löschen
For i = 1 To letzteZeile
If Rows(i).Hidden = True Then
Cells(i, 1).EntireRow.Delete
i = i - 1
End If
Next i
'Alle ausgeblendeten Spalten löschen
For i = 1 To letzteSpalte
If Columns(i).Hidden = True Then
Columns(i).EntireColumn.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
|