AW: per VBA zellen kopieren und löschen
30.07.2012 00:01:49
fcs
Hallo Willi,
passe dein Makro wie folgt an.
Ob du die Else-Optionen übernimmst musst du selbst entscheiden. Dadurch werden die Einträgen rückgängig gemacht, wenn das "X" gelöscht wird.
Gruß
Franz
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row > 3 And Target.Cells.Count = 1 Then
Application.EnableEvents = False
Select Case Target.Column
Case 12
With Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Interior
If LCase(Target.Value) = "x" Then
.ColorIndex = 36
.Pattern = xlSolid
Else
.ColorIndex = xlColorIndexNone
.Pattern = xlSolid
End If
End With
Case 13
With Range(Cells(Target.Row, 1), Cells(Target.Row, 13)).Interior
If LCase(Target.Value) = "x" Then
.ColorIndex = 4
.Pattern = xlSolid
Target.Offset(0, 1).Value = Date
Target.Offset(0, -1).ClearContents
Target.Offset(0, 2).Value = Target.Offset(0, -5).Value
Else
.ColorIndex = xlColorIndexNone
.Pattern = xlSolid
Target.Offset(0, 1).ClearContents
Target.Offset(0, 2).ClearContents
End If
End With
End Select
Application.EnableEvents = True
End If
End Sub