Bei einem bestimmten Code weitere Zahlen ergänzen

[Martin335]

Hallo liebe Excel-Freunde.


Ich bin auf der Suche nach einem Tipp zur Bewältigung meines Problemes.

Ich der Spalte B sollen unter der Zelle, in die der Code 2256 eingetragen wird, die nächsten drei Zellen (unter der Zelle mit dem Code) automatisch die Werten 445, 343 und dann 676 eingetragen werden.

Hat einer ne Idee, wie man das automatisieren kann? 

Lg

[Kuwer]

Hallo,

in das schon vorhandene VBA-Modul des entsprechendenen Tabellenblattes kommt folgender Code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target.Cells(1)
    If .Column = 2 Then
      If .Value = 2256 Then
        On Error Resume Next
        Application.EnableEvents = False
        .Offset(1).Value = 445
        .Offset(2).Value = 343
        .Offset(3).Value = 676
        Application.EnableEvents = True
        On Error GoTo 0
      End If
    End If
  End With
End Sub

Gruß Uwe

[Martin335]

Vielen Dank. Werde es nachher mal ausprobieren!