Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1468to1472
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

Code weiter ergänzen

Code weiter ergänzen
22.01.2016 08:14:27
Claudia
Halo zusammen,
ich habe folgenden Code.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Intersect(Range("G2:G10000"), Target)
If Not Bereich Is Nothing Then
Application.EnableEvents = False
With Bereich
ActiveSheet.Unprotect
.Offset(0, 1).Value = "nicht relevant"
.Offset(0, 2).Value = "0:30"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Application.EnableEvents = True
End If

Jetzt möchte ich aber nur dann etwas reinschreiben, wenn in der Zelle in Spalte G ein "nein" eingetagen wurde.
Wer kann mir hier helfen? Im Voraus vielen Dank!
LG Claudia

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code weiter ergänzen
22.01.2016 08:56:09
UweD
Hallo
so?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Intersect(Range("G2:G10000"), Target)
If Not Bereich Is Nothing Then
If Target.Value = "nein" Then
Application.EnableEvents = False
With Bereich
ActiveSheet.Unprotect
.Offset(0, 1).Value = "nicht relevant"
.Offset(0, 2).Value = "0:30"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Application.EnableEvents = True
End If
End If
End Sub
Gruß UweD
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige