Copy/Paste VBA

[silverchair]

  CopyPasteVBA.xlsm (Größe: 12,3 KB / Downloads: 1)
Hallo zusammen :-)

Ich versuche einen Prozess zu automatisieren, scheitere aber an den notwendigen VBA Skills.
Ich habe schon diverse Ansätze aus Foren ausprobiert, konnte sie aber nicht adaptieren...

Folgende Tabelle:



2 Schritte sollen ausgeführt werden:

1) wenn in Spalte B (Bereich B9:B1448) der Wert "done" steht, dann konvertiere die Formel in der gleichen Zeile in den Spalten J:M in Werte
2) wenn in Spalte B (Bereich B9:B1448) der Wert "copy" steht, dann kopiere die Formel aus dem Bereich J6:M6 und füge sie in der gleichen Zeile (Wert "copy" in Spalte B) in die Spalten J:M

Ich würde mich über jeden Ansatz freuen. Eine Demo-Mappe habe ich hochgeladen.

Vielen Dank,

silverchair

PS: Ich habe die Frage auch hier gestellt:
https://www.ms-office-forum.net/forum/sh...ost2096300

[steve1da]

Hola,
https://office-fragen.de/thread-13.html
Bitte nachholen.
Gruß,
steve1da

[silverchair]

Hola,
https://office-fragen.de/thread-13.html
Bitte nachholen.
Gruß,
steve1da

Danke für den Hinweis. Habe ich nachgeholt :-)

[ralf_b]

in das codemodul des Arbeitsblattes

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.CountLarge > 1 Then Exit Sub
 
  If Not Intersect(Target, Range("B8:B20")) Is Nothing Then
    If Target.Value <> "done" Then Exit Sub
    With Cells(Target.Row, "J").Resize(1, 4)
      .Value = .Value
    End With
  End If
End Sub