ich habe heute nochmals ne Frage:
Kann ich vor dem starten einer bestimmten Schleife feststellen wieviele Aktionen ausgeführt werden z.b.: für Schleife:
Dim wkb As Workbook
Dim wks As Worksheet
For Each wkb In Workbooks
For Each wks In wkb.Worksheets
wks.Protect Password:="lextoy", Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
Next wks
Next wkb
oder
Dim RaZelle As Range
For Each RaZelle In Range("C7:FK18") ' & ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row)
'Schriftfarbe gelb
'If RaZelle.Font.ColorIndex = 6 Then
' Hintergrund gelb
If RaZelle.Interior.ColorIndex = 6 Then
'RaZelle.Value = Cells(RaZelle.Row, RaZelle.Column + 1)
' für Spalte rechts
'
RaZelle.Value = Cells(RaZelle.Row, RaZelle.Column - 1).Value
' für Spalte links
End If
Next RaZelle
Danke schonmal
Steffen