Application.ScreenUpdating funktioniert nicht...
05.10.2018 12:48:53
Dominik
bei meinem Excel (2010) - Windows 10 funktioniert der Code zwar, das Ausschalten des _ ScreenUpdates funktioniert aber nicht? Ich verstehe nicht wieso, ich möchte nicht dass die späteren User des Formulars epileptische Anfälle bekommen ...
Sub DokNeuLaden()
Dim i As Long
Dim Zeilen As Long
Zeilen = ActiveSheet.UsedRange.Rows.Count
If MsgBox("Sind Sie sicher, dass Sie das Datenblatt zurücksetzen möchten?", vbYesNo, " _
Datenblatt leeren") = vbYes Then
Application.ScreenUpdating = False
ActiveSheet.Range(Cells(1, 1), Cells(Zeilen, 1)).EntireRow.Hidden = False
For i = 1 To Zeilen
If Cells(i, 1) = "" Then
ActiveSheet.Cells(i, 4) = ""
ActiveSheet.Cells(i, 9) = ""
ActiveSheet.Cells(i, 12) = ""
ActiveSheet.Cells(i, 13) = ""
Else: ActiveSheet.Cells(i, 4) = ""
ActiveSheet.Cells(i, 9) = ""
End If
Next i
End If
Application.ScreenUpdating = True
End Sub
Danke schon einmal und viele Grüße
Dominik