Beim löschen springt Tabelle zusammen dann normalisiert sie sich

Question

Hallo zusammen und guten Tag

ein kleines Problem. Vielleicht kann mir jemand ein Tipp geben, wie ich das verhindern kann.
Habe nochmals geprüft und festgestellt, dass dies nur passiert wenn Spalten und Zeilen ausgeblendet sind
Hier mein Code

Sub neulösch2adde()
ActiveSheet.Unprotect
' neulösch2adde Makro
'

'
    Range("K19:EX127,B19:I127,L11:EX11,KU2:KU25").Select
    Selection.ClearContents
    Range("A1").Select
    ActiveSheet.Protect
End Sub

Habe hier das Gefühl, das der Cursor auf die Zelle KU25 springt und dann auf A1 der Ausgangspunkt.

Gruß Adde

Answer 1

Hallo Adde,

dein Gefühl ist richtig . So ist das Makro. Mit der Select-Anweisung werden die entsprechenden Zellen angewählt.

Hier mal die verkürzte Version mit Ausschalten der Bildschirmaktualisierung, d.h. es werden keine Zwischenschritte angezeigt.

Sub loeschen()

'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False

With ActiveSheet
  .Unprotect
  .Range("K19:EX127,B19:I127,L11:EX11,KU2:KU25").ClearContents
  .Range("A1").Select
  .Protect
End With

'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True

End Sub

Gruß

M.O.

Answer 2

Guten Morgen M.O.

Danke für deine Antwort. Habe es umgesetzt und es funktioniert. Es funktioniert auch wenn ich das Menü-band ausblende, durch Zufall entdeckt.

Nehme aber deine Anweisung.

Gruß Adde