Worksheet_Change Komplette Zelle löschen

Forumthread: Worksheet_Change Komplette Zelle löschen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Worksheet_Change Komplette Zelle löschen

28.05.2018 17:24:36

Richard

Hallo Leute,
mein Problem ist folgendes: Durch das Worksheet_change wird der der Wert aus Zelle "C59" Zelle in Zelle "F15" kopiert. Zusammen mit dem Ausdruch "VN:".
Das "VN:" soll verschwinden sobald die Zelle leer. Kennt jemand die Lösung dafpr.
Set Bereich1 = Range("C59")
If Not Intersect(Target, Bereich1) Is Nothing Then
Worksheets("Kennzahlen").Range("F15").Value = "VN:" & Space(1) & Worksheets("Kennzahlen").Range("C59").Value
End If
Vielen Dank im voraus.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Worksheet_Change Komplette Zelle löschen

28.05.2018 17:52:07

ChrisL
AW: Worksheet_Change Komplette Zelle löschen

28.05.2018 18:47:55

Richard
AW: Worksheet_Change Komplette Zelle löschen

28.05.2018 17:53:54

UweD
AW: Worksheet_Change Komplette Zelle löschen

28.05.2018 18:55:43

Richard

AW: Worksheet_Change Komplette Zelle löschen

28.05.2018 17:52:07

ChrisL

Hi Richard

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich1 As Range: Set Bereich1 = Range("C59")
If Not Intersect(Target, Bereich1) Is Nothing Then _
Range("F15") = IIf(Bereich1 = "", "", "VN: " & Bereich1)
End Sub

cu
Chris

AW: Worksheet_Change Komplette Zelle löschen

28.05.2018 18:47:55

Richard

Stark, vielen Dank!

AW: Worksheet_Change Komplette Zelle löschen

28.05.2018 17:53:54

UweD

Hallo
so ?

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Bereich1 As Range

    Set Bereich1 = Range("C59")

    If Not Intersect(Target, Bereich1) Is Nothing Then
        With Worksheets("Kennzahlen")

            If Target <> "" Then
                .Range("F15") = "VN:" & Space(1) & .Range("C59")
            Else
                .Range("F15") = ""
            End If
        End With
    End If


End Sub