Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zelleninhalt löschen

Zelleninhalt löschen
05.02.2019 10:07:49
Norbert
Hallo Spezialisten
In einer Tabelle habe ich ein Auswahlfeld mit JA oder NEIN in Zelle "E7" definiert.
Wenn jetzt dort NEIN steht, dann sollen die manuellen Einträge in Zelle "I7" und "K7"
automatisch gelöscht werden.
Wie mache ich das am einfachsten?
Danke für Bescheid
Norbert
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalt löschen
05.02.2019 10:22:21
Werner
Hallo Norbert,
stellt sich nur die Frage, wie kommt das Nein in die Zelle. Händische Eingabe oder Formelergebnis.
Bei händischer Eingabe:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "E7" Then
If UCase(Target) = "NEIN" Then
Range("I7,K7").ClearContents
End If
End If
End Sub

Der Code gehört ins Codemodul der Arbeitsmappe auf der er sich auswirken soll.
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren.
Gruß Werner
Anzeige
diesmal war ich langsamer ;-) owT
05.02.2019 10:26:51
Matthias
AW: diesmal war ich langsamer ;-) owT
05.02.2019 10:41:55
Werner
Hallo Matthias,
..dafür hast du aber ein Dankeschön bekommen und ich wurde ignoriert. ;-D
Gruß Werner
ja das ärgert mich auch immer wieder ... owT
05.02.2019 23:24:03
Matthias
Anzeige
mit VBA ...
05.02.2019 10:22:40
Matthias
Hallo
Code ins Tabellenblatt
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E7")) Is Nothing And Target.Count = 1 Then
Target.Offset(, 4).ClearContents
Target.Offset(, 6).ClearContents
End If
End Sub
Gruß Matthias
Anzeige
Abfrage auf "Nein" vergessen, sorry ...
05.02.2019 10:25:40
Matthias

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E7")) Is Nothing And Target.Count = 1 Then
If Target = "Nein" Then
Target.Offset(, 4).ClearContents
Target.Offset(, 6).ClearContents
End If
End If
End Sub

AW: Abfrage auf "Nein" vergessen, sorry ...
05.02.2019 10:29:30
Norbert
Hallo Matthias
super - passt
Gruss Norbert
Anzeige
AW: mit VBA ...
05.02.2019 10:47:26
Norbert
Hallo Matthias
habe im nachhinein noch ein Zusatz......
Auch wieder Bezug auf Zelle "E7"
wenn dort "JA" steht soll automatisch im Bereich H10 : K17 die Grafik mit Namen Folie eingeblendet werden, bei "NEIN" wieder gelöscht werden.
Die Grafik habe ich im Tabellenblatt "Daten" abgelegt.
Geht das auch noch?
Besten Dank
Norbert
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige