Spalten begrenzen
23.04.2019 12:09:30
Burghard
ich habe ein Makro, das im Prinzip funktioniert, allerdings werden Zellrahmen auch bei den Spalten E und F eingefügt, wenn ich in Spalte A etwas herunterkopiere.
Excel nimmt als letzte Spalte immer wieder F, obwohl ich die Spalten E bis Ende gelöscht habe. Ich möchte den Zellrahmen aber nur in den (Usedrange) Spalten A bis D haben. Mein Makro:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo nix
Application.ScreenUpdating = False
Dim Hoehe As String
Dim ende As Long
Dim rR As Range
Dim cMinHeight As Double
letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
ende = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
'Idee: ende = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column("A:D")
Hoehe = 26
cMinHeight = CDbl(Hoehe)
For Each rR In ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows
rR.AutoFit
If rR.RowHeight Grüße
Burghard