Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelle kopieren, wenn andere Zelle leer gelöscht

Zelle kopieren, wenn andere Zelle leer gelöscht
12.06.2019 21:35:27
Peter
Guten Abend zusammen,
ich möchte den Zellinhalt von F4 nach A2 kopieren, wenn die Zelle A2 leer ist bzw. der Inhalt von A2 gelöscht wurde. Habe mit dem nachfolgenden Code rumprobiert, aber es wird bei jeder Änderung kopiert, also auch bei einer Eingabe in A2, Es soll aber nur beim Löschen von A2 der Wert aus F4 kopiert werden.
Kann mir bitte jemand den Code anpassen.
Danke. PeterWT
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
Range("F4").Select
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
End If
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle kopieren, wenn andere Zelle leer gelöscht
12.06.2019 21:50:11
Werner
Hallo Peter,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A2" Then
If Target = "" Then
Application.EnableEvents = False
Target = Range("F4")
Application.EnableEvents = True
End If
End If
End Sub
Gruß Werner
AW: Zelle kopieren, wenn andere Zelle leer gelöscht
12.06.2019 21:59:46
Peter
Hallo Werner, besten Dank für die schnelle Antwort. Sorry, aber ich hatte vergessen zu erwähnen, dass in F4 eine Formel steht, die kopiert werden soll.
Wie muss der Code dann angepasst werden, damit die Formel kopiert wird.
Würdest Du mir bitte noch einmal helfen.
Danke.
Gruß PeterWT
Anzeige
AW: Zelle kopieren, wenn andere Zelle leer gelöscht
12.06.2019 22:18:04
Werner
Hallo Peter,
Target.Formula = Range("F4").Formula
Gruß Werner
Super.Vielen Dank u. einen schönen Abend
12.06.2019 22:21:32
Peter
Gerne u. Danke für die Rückmeldung. o.w.T.
12.06.2019 22:26:35
Werner

344 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige