Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1348to1352
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
1348to1352
1348to1352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mittels SelectionChange-Ereignisses Zellen löschen

Mittels SelectionChange-Ereignisses Zellen löschen
17.02.2014 14:29:55
chandler
Hallo,
wenn mir jemend helfen könnte mittels SelectionChange-Ereignisses folgende Aufgabe zu lösen, wäre ich überglücklich:
Wenn in der Spalte L5:L ein Wert eingetragen wird, dann soll in der entsprechenden Zeile in Spalte E und F der bereits vorhandene Wert gelöscht werden.
Hier ein Beispiel: Wenn in L10 ein Eintrag vorgenommen wird, dann sollen die Zellen E10 und F10 leer sein.
Vielen Dank im Voraus.
Grüße

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

Betreff
Datum
Anwender
Anzeige
AW: Mittels SelectionChange-Ereignisses Zellen löschen
17.02.2014 14:36:29
Rudi
Hallo,
warum SelectionChange?
Change ist richtig. 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 4 Then
If Target.Column = 12 Then
Application.EnableEvents = False
Target.Offset(, -7).Resize(, 2).ClearContents
Application.EnableEvents = True
End If
End If
End Sub

Gruß
Rudi

AW: Mittels SelectionChange-Ereignisses Zellen löschen
17.02.2014 14:53:37
chandler
Hallo Rudi,
genau das was ich brauche!
Vielen, vielen Dank.
Grüß
chandler

AW: Errorhandling
17.02.2014 15:22:21
UweD
Hallo
Du solltest das Makro von Rudi ggf. noch so abändern.
So werden in einem Fehlerfall die Events wieder eingeschaltet.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
If Target.Row > 4 Then
If Target.Column = 12 Then
Application.EnableEvents = False
Target.Offset(, -7).Resize(, 2).ClearContents
End If
End If
Fehler:
Application.EnableEvents = True
End Sub

Anzeige
Wahrscheinlickeit für Fehler < 0.0001 (owT)
17.02.2014 16:04:51
EtoPHG

Vielen, vielen Dank
17.02.2014 19:27:24
chandler
Vielen, vielen dank an Alle.
Grüße

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige