Schleife ist zu langsam!!!
Giuseppe
In diesem Code werden in 12 Blatter(Jan-Dez) die Zellen gesucht die ein Feiertage entsprechen und in der Zellen ein Kommentar eingefügt.
Ich möchte, dass der Code in Hintergrund läuft. Wie soll ich der Code ändern, bzw. was soll ich anstatt .Select benutzen, damit nicht alle Blätter nacheinander auf dem Bildschirm erscheinen?
Kann mich jemand helfen?
Sub FTanzeigen()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Dim ausdemplan As Variant
Dim ausfeiertage As Variant
Dim a As Integer
Dim b As Integer
Dim c As Integer
On Error Resume Next
For c = 1 To 12
For a = 4 To 34
Worksheets(c).Select
ausdemplan = Cells(5, a).Value
For b = 2 To 22
ausfeiertage = Sheets("Feiertage").Cells(b, 6).Value
If ausdemplan = ausfeiertage Then
Cells(4, a).Value = "*"
Cells(4, a).Select
ActiveSheet.Unprotect
Cells(4, a).AddComment
Cells(4, a).Comment.Visible = False
Cells(4, a).Comment.Text Text:=Sheets("Feiertage").Cells(b, 7).Value
End If
Next b
Next a
Next c
Application.ScreenUpdating = True
End Sub
Danke Giuseppe