MsgBox nach Code ausblenden
Heinz
Habe unteren Code denn ich über einen Button in UserForm4 aufrufe.
Habe ich eine MsgBox eingefügt.
Ich hätte gerne wenn der Code abgearbeitet wurde,das die MsgBox und UserForm4 sich wieder schliessen.
Mit Unload geht es leider nicht.
Könnte mir bitte jemand weiterhelfen?
Gruß
Heinz
Sub NullWerteAusblenden()
Dim mySheets As Sheets
Dim myWsh As Worksheet
Dim hideRng As Range
Dim i As Long
Application.ScreenUpdating = False
MsgBox "Wird bearbeitet"
Set mySheets = Sheets(Array("Jänner", "Februar", "März", "April", "Mai", "Juni", "Juli", _
"August", "September", "Oktober", "November", "Dezember", "Formel", "Krank", "Urlaub", " _
bezahlt frei", "and. Abwesenh.", "Einbringt.", "Üst", "Formel"))
Sheets("Formel").Protect Password:="vetro"
For Each myWsh In mySheets
With myWsh
For i = 3 To 154
If .Cells(i, 209) = 0 Then
If hideRng Is Nothing Then
Set hideRng = .Cells(i, 209) '=Spalte HA
Else
Set hideRng = Union(hideRng, .Cells(i, 209))
End If
End If
Next
.Unprotect Password:="vetro"
.Rows("3:154").Hidden = False
If Not hideRng Is Nothing Then
hideRng.EntireRow.Hidden = True
Set hideRng = Nothing
End If
.Protect Password:="vetro"
End With
Next
Unload UserForm4.Show
Application.ScreenUpdating = True
End Sub