Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1236to1240
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
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eintragsabhängige Sperre von Zellen

Eintragsabhängige Sperre von Zellen
Zellen
Hallo in die Runde,
was mache ich bei diesem Code falsch? Er funktioniert nicht so wie ich es erwarte.
Die wechselweise Sperre der Zellen E13 und E14 wird nicht durchgeführt. Es wird immer nur E13 berücksichtigt.
Private Sub Worksheet_Change(ByVal Target aus Range)
ActiveSheet.Unprotect
If Target.Address = ("E12") Then
If Range("E12).value = 1 Then
Range("E13).Locked = False
Range("E14).Locked = True
If Range("E12).value = 2 Then
Range("E13).Locked = True
Range("E14).Locked = False
End If
End If
End If
ActiveSheet.Protect
End Sub

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

Betreff
Benutzer
Anzeige
AW: Eintragsabhängige Sperre von Zellen
20.11.2011 20:59:32
Zellen

Hallo Dietmar,
ich bezweifle, dass der Code überhaupt gelaufen ist.
Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Address(0, 0) = "E12" Then
    Me.Unprotect
    Range("E13").Locked = Not Target.Value = 1
    Range("E14").Locked = Not Target.Value = 2
    Me.Protect
  End If
  
End Sub



« Gruß Sepp »

Anzeige
Perfekt!
20.11.2011 21:16:26
Dietmar
Hallo Sepp,
herzlichen Dank für die schnelle Hilfe!
Toll! Der Code schnurrt nur so durch!
Wie immer: wenn ich's dann sehe, leuchtet es natürlich ein :-)
Viele Grüße
Dietmar aus Aachen
Nun doch noch eine Frage
20.11.2011 21:41:44
Dietmar
Hallo Sepp,
ich möchte die Zelle E12 mittels eines Options-Buttons (Formuarebene) bedienen.
Wie müsste der Code dann lauten?
Leider funktioniert die Sperre der Zellen E13 und E14 nur dann, wenn ich die 1 oder die 2 eintrage.
Auf die indirekten Eintragungen eines Optionsbuttons reagiert der Code nicht wie gewünscht.
Herzlichen Dank vorab!
Viele Grüße
Dietmar
Anzeige
AW: Nun doch noch eine Frage
20.11.2011 22:15:14
Josef

Hallo Dietmar,
kopiere den folgenden Code in das Modul der Tabelle und weise beiden Optionsbuttons das Makro zu.
Den Namen des ersten Option-Buttons musst du im Code anpassen!
Sub Options_Button()
  Dim objOpt As Shape
  
  Set objOpt = Me.Shapes("Optionsfeld 1")
  
  Me.Unprotect
  Range("E13").Locked = Not objOpt.DrawingObject.Value = 1
  Range("E14").Locked = objOpt.DrawingObject.Value = 1
  Me.Protect
  
End Sub



« Gruß Sepp »

Anzeige
auch wieder perfekt :-)
21.11.2011 00:11:47
Dietmar
Hallo Sepp,
hat geklappt!
Besten Dank!
Viele Grüße
Dietmar

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige