Clever-Excel-Forum

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

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

Vielen Dank. Werde es nachher mal ausprobieren!

Martin335

Kuwer

Martin335