hallo,
ich weiß das es wohl eine ziemliche anfänger frage ist:
folgendes habe ich zusammen geschrieben:
Sub adjust_modul_ucs(modul_sheet)
Dim owner As String
Dim lastVersion As String
If (modul_sheet = „SAM-UCs“) Or (modul_sheet = „IWP-UCs“) Or (modul_sheet = „MAM-UCs“) Then
For Each cell In Worksheets(modul_sheet).Range(„D2:smiley:100“)
If cell.Value > „“ Then
owner = cell.Previous()
cell.Previous().Interior.ColorIndex = 3
lastVersion = cell.Next()
cell.Next().Interior.ColorIndex = 3
End If
If cell.Value