ich habe ein Problem. Zur Ausblendung von
Seitenteilen nutze ich jetzt folgenden Code:
'===============================================
Sub Ausblenden()
ActiveSheet.Unprotect Password:="dresden"
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Range(Selection, Selection.End(xlToRight)).Select
Columns("A:IV").Select
Selection.EntireColumn.Hidden = False
Range("W1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Range(Selection, Selection.End(xlToRight)).Select
Columns("W:IV").Select
Range("IV1").Activate
Selection.EntireColumn.Hidden = True
Range("A458").Select
Rows("458:65536").Select
Selection.EntireRow.Hidden = True
ActiveSheet.Protect Password:="dresden"
End Sub
'===============================================
Da ich aber nicht weiß, welches die letzte Zelle in Zeile
A ist, die beschrieben wurde, kann ich es nur nehmen, wenn
ich die letzte Zelle kenne. Wie kann ich das so machen,
das er die letzte beschriebene Zelle in Zeile A sucht und
dann den Rest der Spalten ausblendet?
Wäre sehr froh, wenn jemand helfen könnte.
Gruß Andy