Wie kann ich mittels VBA alles ausserhalb meiner Markierung im aktuellen Sheet - sagen wir dies sei A1:D20 - ausblenden?
Danke für ein Feedback.
Peter
Option Explicit
Sub SelektionRest_ausblenden()
Dim rng As Range
Set rng = Selection
If rng.Row + rng.Rows.Count < Rows.Count Then _
Range(Rows(rng.Row + rng.Rows.Count), Rows(Rows.Count)).Hidden = True
If rng.Column + rng.Columns.Count < Columns.Count Then _
Range(Columns(rng.Column + rng.Columns.Count), Columns(Columns.Count)).Hidden = True
If rng.Row > 1 Then _
Range(Rows(1), Rows(rng.Row - 1)).Hidden = True
If rng.Column > 1 Then _
Range(Columns(1), Columns(rng.Column - 1)).Hidden = True
End Sub
Sub Alles_einblenden()
ActiveSheet.Rows.Hidden = False
ActiveSheet.Columns.Hidden = False
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-LintfortSub SelektionRest_ausblenden2()
ActiveSheet.Rows.Hidden = True
ActiveSheet.Columns.Hidden = True
With Selection
.EntireRow.Hidden = False
.EntireColumn.Hidden = False
.Select
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort