Select und Range mag nicht...:(
Peter
hab mir den nachstehenden Code ausgedacht um im Falle 1 den Bereich A2:D2 auszuschneiden und nach F2:I2 zu verschieben...aber das mag er net:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sheets("Lizenz").Range("C9").Value = "1" Then
Sheets("Daten").Range("A2:D2").Select
Selection.Cut
Sheets("Daten").Range("F2:I2").Select
Selection.Paste
End If
End Sub
Bitte um Hilfe
Danke
Peter S