Hallo in die Abendrunde,
mit folgendem Code - natürlich hier aus dem Forum :-) - gelingt es mir, dass ich mit einem Scanner den Code in Zelle B2 erfasse, der dann als Zählwert unmittelbar rechts neben der Nummer eingetragen wird, die in Spalte B im Bereich 'RnG As Range' (ab Zeile 7) aufgeführt ist.
Nun möchte ich das modifizieren: Der Zählwert soll nun NICHT mehr direkt in Rng.Offset(, 1) - also direkt rechts daneben - eingetragen werden, sondern in Abhängikeit von einem Eintrag in Zeile 4.
Und zwar soll der Zählwert in derjenigen Spalte eingetragen werden, wo in Zeile 4 das Wort 'Inventur' steht.
Herzlichen Dank für jede Hilfe.
Dietmar aus Aachen
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B2")) Is Nothing Then If Target "" And IsNumeric(Target) Then Dim Wert$, Bereich, RnG As Range Wert = Target.Value Set Bereich = Range("CodeNr") For Each RnG In Bereich If RnG.Value = Wert Then RnG.Offset(, 1) = RnG.Offset(, 1) + Cells(2, 3) Next Range("B2").Select End If End If Range("B2").ClearContents 'Wenn Eintrag in C2, dann soll anschließend B2 selected werden, weil als nächstes ja der Code _ folgt (Dietmar) If Not Intersect(Target, Range("C2")) Is Nothing Then If Target "" And IsNumeric(Target) Then Range("B2").Select End If End If End Sub