Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1912to1916
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
Inhaltsverzeichnis

Wenn aktueller Inhalt gelöscht

Wenn aktueller Inhalt gelöscht
30.12.2022 10:21:39
Mister-B
Hallo Zusammen,
ich stehen auf'm Schlauch.
Ich möchte in einer Tabelle wenn ich den Wert einer Zelle lösche, dass der Wert in der Zelle 3 Spalten weiter rechts ebenfalls gelöscht wird.
Ich habe es mit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C6:C44")) Is Nothing Then
If ActiveCell.Value = "" Then ActiveCell.Offset(3, 0).Value = ""
End If
End Sub
versucht aber leider keinen Erfolg gehabt.
Hat jemand eine Idee?
Gruß
Martin

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn aktueller Inhalt gelöscht
30.12.2022 10:32:42
hary
Moin
Nimm das Change Ereigniss, reagiert auf Aenderung. Du hast bei Offset 3 als Zeile.
Offset(Zeile,Spalte)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C6:C44")) Is Nothing Then
If Target = "" Then Target.Offset(0, 3) = ""
End If
End Sub
gruss hary
AW: Wenn aktueller Inhalt gelöscht
30.12.2022 10:44:13
Mister-B
Hallo Hary,
vielen Dank. Das funktioniert prima!
Dir einen guten Rutsch.
Gruß
Martin
AW: Wenn aktueller Inhalt gelöscht
30.12.2022 10:45:14
onur
Offset(3, 0)
bedeutet ja auch 3 ZEILEN weiter unten.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige