Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Bei einem bestimmten Code weitere Zahlen ergänzen
#1
Brick 
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
Antworten Top
#2
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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • Martin335
Antworten Top
#3
Tongue 
Vielen Dank. Werde es nachher mal ausprobieren!
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste