Werte in Makro hinzufügen
12.09.2008 07:17:20
Heinz
Habe unteres Makro, das mir in C8:C38,H8:H38,N8:N38 jeden Freitag den Wert "PT" einfügt.
Ich habe ein Tab.Blatt "Gruppenabende" wo in A1:A15 ein Datum steht, wenn dieses Datum gleich mit A8:A38, das mir der Wert in C8:C38 "Gruppenabend" eingefügt wird.
Könnte mir dazu bitte jemand weiterhelfen ?
Danke & Gruß
woody
Habe die Datei zum bessernen Verständniss mal hochgeladen.
https://www.herber.de/bbs/user/55337.xls
Option Explicit
Private Sub worksheet_change(ByVal target As Range)
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Const tThisRange = "C8:C38,H8:H38,N8:N38"
Dim rc As Range
If Intersect(target, Me.Cells(5, 3)) Is Nothing Or target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
Me.Range(tThisRange).Formula = "=IF((5-WEEKDAY(A8,2))-" & _
"SUMPRODUCT((feiertagsliste>=A8)*(feiertagsliste<=(A8+(5-WEEKDAY(A8,2)))))=0," & _
"""PT/Woche"","""")"
For Each rc In Me.Range(tThisRange)
If IsError(rc.Value) Then
rc = ""
Else
rc = rc.Value
End If