Zellinhalte bei Änderung Kopieren

[thrustssc]

Hallo Community

ich suche ein Kurzes Makro mit VBA was bei eine Zelländerung werte Automatisch in ein anderes Tabellenblatt kopiert
paar sachen habe ich schon versucht jedoch ohne erfolg
anbei eine kleine Beispieldatei

Wenn bei Bestand Monatlich der wert Zelle K2 bis k22 geändert wird und der Monat A2 Übereinstimmt mit Daten gesamt soll eigentlich nur die Werte aus der K Reihe in Daten gesamt kopiert werden

Denke mal für nen VBA Profi ist das kein Dingens eher nur nen 3 Zeiler

vielen Dank schonmal

[Raoul21]

Hi
kopier doch mal in das Blatt "Bestand Monatl." folgenden Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim a As Long
  If Target.Address <> "$A$2" Then Exit Sub
  a = Worksheets("Daten Gesamt").Columns("C").Find(Target.Text, LookIn:=xlValues).Row
  Range("K2:K22").Copy
  Worksheets("Daten Gesamt").Range("c" & a).Offset(, 1).PasteSpecial Transpose:=True
End Sub


Gruß, Raoul

[thrustssc]

Danke für die Antwort funktioniert aber nicht ganz
zum einen kopiert er die Summenformel mit ( auf dem neuen blatt steht dann #bezug) mit reinen Daten funktionierts aber die Summenformel bei der Monatlichen bestandsaufnahme muss schon bleiben
und der Bereich der zu kopieren war belibt angewählt
und er überschreibt das Format das wäre nicht so toll

[Raoul21]

Oh, da ist mir ein kleiner Fehler unterlaufen.

Probier mal:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim a As Long
  If Target.Address <> "$A$2" Then Exit Sub
  a = Worksheets("Daten Gesamt").Columns("C").Find(Target.Text, LookIn:=xlValues).Row
  Range("K2:K22").Copy
  Worksheets("Daten Gesamt").Range("c" & a).Offset(, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub

Auch wieder in das Blatt "Bestand Monatl."

So sollte es funktionieren.

Gruss, Raoul

[thrustssc]

ist Perfekt mit den Formaten hat sich erledigt vielen Dank ist erledigt

[Raoul21]

Freut mich, dass ich helfen konnte.
Danke für die Rückmeldung.
Alles Gute, Raoul