Gruppe
Ereignis
Problem
Bei Eingabe eines "K" in Zelle A1 soll die Zeile in Arbeitsblatt "ab", bei einem "W" in Blatt "xy" kopiert werden. Die Hintergrundfarbe soll in beiden Fällen auf rot gesetzt werden.
ClassModule: Tabelle3
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet
Dim lRow As Long
If Target.Address <> "$A$1" Then Exit Sub
Select Case Target.Value
Case "K"
Set wks = Worksheets("xy")
Case "W"
Set wks = Worksheets("ab")
Case Else
Range("A1").Interior.ColorIndex = xlColorIndexNone
Exit Sub
End Select
With wks
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Rows(lRow).Value = Rows(1).Value
End With
Range("A1").Interior.ColorIndex = 3
End Sub