Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeile in Abhängigkeit zur Eingabe in Blätter kopieren

Gruppe

Change

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.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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