Werte einfügen anpassen
Heinz
Habe unteren Code in UF. Der mir von "Schichtplan" in "Jänner" Werte einfügt.
Ich möchte aber nur die Werte in "Jänner" einfügen,wenn in "Jänner"in B3:B154 ein "A" steht.
Könnte mir Bitte jemand weiterhelfen?
Gruß & Danke
Heinz
Private Sub CheckBox10_Click()
Application.ScreenUpdating = False
If CheckBox1 Then 'Jänner Schicht A
Application.ScreenUpdating = False
Sheets("Jänner").Unprotect
Sheets("Schichtplan").Range("C6:K36").Copy
Sheets("Jänner").Range("C500").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Sheets("Jänner").Range("C500:AG508").ClearComments
Sheets("Jänner").Range("C500:AG508").Replace What:="0", Replacement:=""
Sheets("Jänner").Protect
Application.ScreenUpdating = True
Else
End If