Ausführung, Change Ereignis

Hallo zusammen, ich möchte gerne über ein VBA-Code in Excel 2016 folgendes erreichen: Im Tabellenblatt1 wird immer in der selben Zelle z.B. A3 eine Zahl von 1 bis 100 für Produkt" A" eingetragen ist abhängig von der Rezeptur, diese Zahl soll dann in das nächste Tabellenblatt2 in die nächstfreie Zelle untereinander eingetragen werden also eine Dokumentation von der Tabelle1 . Mein Code-Beispiel funktioniert in der angegebenen Form
Option Explicit
' Der Code wird ausgeführt,wenn das Change-Ereignis eintritt,das heißt,wenn irgendwo_
' auf dem Blatt der Wert der Zelle geändert wird.Dabei wird die Zelle,die geändert wurde_
' in den Variablen Target als Range-Objekt gespeichert.


Private Sub Worksheet_Change(ByVal Target As Range)
'Wenn die Target-Zelle nicht A3 ist,wird der Code abgebrochen.
If Intersect(Target, Range("A3")) Is Nothing Then Exit Sub
' Datentypbezeichnung
Dim ZeileFrei As String
Dim Zelle As Range
'ermöglicht das Ausführen einer Reihe von Anweisungen für ein Objekt
With Tabelle2
'Zellen werden einzeln angesprochen-Haltepunkt
For Each Zelle In Target
ZeileFrei = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & ZeileFrei).Value = Date
.Range("B" & ZeileFrei).Value = "'" & Zelle.FormulaLocal
.Range("c" & ZeileFrei).Value = Time
Next Zelle
'Mit der With Anweisung können wir eine Reihe von Befehlen für ein einzelnes Objekt ausführen.
End With
End Sub

Mein Problem ist nun, wenn im Tabellenblatt1 mehrere Produkte für Rezepturen vorhanden sind A,-B,-C,-D.....usw. wie ergänze ich den Code, damit bei jeder Rezepturänderung im Tabellenblatt1 die Dokumentation auch für Produkt B,-C,-D......usw. für das Tabellenblatt2 funktioniert? Vorab schon einmal vielen lieben Dank für die Hilfe
Jakob
https://www.herber.de/bbs/user/149592.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim lngRow As Long If Target.Row = 3 And Target.Count = 1 Then With Tabelle2 Select Case Target.Column Case 1 lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 .Cells(lngRow, 1).Value = Date .Cells(lngRow, 2).Value = Target.Value .Cells(lngRow, 3).Value = Time Case 4 lngRow = .Cells(.Rows.Count, 5).End(xlUp).Row + 1 .Cells(lngRow, 5).Value = Date .Cells(lngRow, 6).Value = Target.Value .Cells(lngRow, 7).Value = Time Case 6 lngRow = .Cells(.Rows.Count, 9).End(xlUp).Row + 1 .Cells(lngRow, 9).Value = Date .Cells(lngRow, 10).Value = Target.Value .Cells(lngRow, 11).Value = Time End Select End With End If End Sub

Code: [Cc] Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim sSp As String Select Case Target.Address(0, 0) Case "A3": sSp = "A" Case "D3": sSp = "E" Case "F3": sSp = "I" Case Else: Exit Sub End Select With Tabelle2.Range(sSp & Tabelle2.Range(sSp & Tabelle2.Rows.Count).End(xlUp).Row + 1) .Offset(0, 0).Value = Date .Offset(0, 1).Value = "'" & Target.Value .Offset(0, 2).Value = Time End With End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread