Zellen XY in anderes Tabellenblatt kopieren wenn..
18.12.2016 14:40:49
Maria
mir eurer Hilfe konnte zuletzt schon folender Code erstellt werden, der auch super funktioniert:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 And Target.Column 9 And Target.Row Sub Kopieren()
Dim Li As Worksheet
Dim La As Worksheet
Dim ls As Long
On Error Resume Next
Set Li = Sheets("Light Inspection Check Eingabe")
Set La = Sheets("LIC Langzeitbetrachtung")
ls = La.Cells(2, Columns.Count).End(xlToLeft).Column + 1
With Li
La.Cells(2, ls) = .Range("H5")
La.Cells(3, ls).Resize(8, 1) = .Range("C10:C17").Value
End With
MsgBox "Daten wurden kopiert"
End Sub
Er macht, das wenn in Tabellenblatt "Light Inspection Check Eingabe" in F29 "erfüllt" oder "nicht erfüllt" steht, die Zellen H5 und C10:17 in Tabellenblatt "LIC Langzeitbetrachtung" in Spalte 2 B, Zeile 2 untereinander kopiert werden, fortlaufend, wenn neue Werte kopiert werden.
Nun möchte ich gerne in der selben Datei zwei weitere Tabellenblätter erstellen, die lauten "Qualitätskontrolle Eingabe" und "QC Langzeitbetrachtung". Hier steht in N22 "erfüllt" oder "nicht erfüllt". Und wenn das erscheint, dann sollen diesmal die Zellen P5 und C10:C11 in "QC Langzeitbetrachtung" in Spalte 2 B, Zeile 2 untereinander kopiert werden, fortlaufend, wenn neue Werte dazukommen.
Ich habe auch eine Datei angehängt, wie es momentan aussieht.
https://www.herber.de/bbs/user/110090.xlsm
Kann ich das Makro einfach kopieren? Wie weise ich ihm zu, das das eine Makro sich auf die einen Tabellenblätter bezieht, und das andere dann auf die anderen beiden? Und er jetzt nicht versucht das eine Makro bei den falschen Tabellenblättern anzuwenden? Wie löst sich das elegant?
Danke, liebe Grüße Maria
Anzeige