Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheet_Change Komplette Zelle löschen

Worksheet_Change Komplette Zelle löschen
28.05.2018 15: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
Anzeige
AW: Worksheet_Change Komplette Zelle löschen
28.05.2018 15: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 16:47:55
Richard
Stark, vielen Dank!
AW: Worksheet_Change Komplette Zelle löschen
28.05.2018 15: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

LG UweD
Anzeige
AW: Worksheet_Change Komplette Zelle löschen
28.05.2018 16:55:43
Richard
Vielen Dank, ich probiere es mal aus.
LG

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige