Bedingung erfüllt - dann Zelle X,Y,Z Sperren...

Hallo zusammen,
allen ein frohes neues Jahr!
Nun zur Frage, wie lautet der Code (VBA) wenn ich folgendes erreichen möchte:
In Spalte B wird eine Zahl eingetragen (1-3) aufgrund dieser Angabe werden dann entsprechende Zellen schwarz gefärbt (Bedingte Formatierung) ich möchte jedoch über VBA diese Zellen sperren bzw. entsperren.
Beispiel:
In B1 steht 1 dann sollen die Zellen H1-Q1, für eine Eingabe gesperrt werden.
Steht jedoch eine 2 drinn dann sollen die Zellen M1-Q1 gesperrt werden.
Wenn eine 3 drin steht sollen die Zellen nicht gesperrt werden.
Kleine besonderheit dabei, in K1 und P1 werden anhand einer Formel Berechnungen durchgeführt diese beziehen sich jedoch nur auf einen Inhalt in H1,I1 & J1 (Formel in K1) bzw. M1,N1 & O1 (Formel in P1).
Ich möchte verhindern, dass man in besagte Zellen etwas eingibt (ich weiss man sieht es eh nicht) wenn man mit TAB weitergeht. Deswegen sperren.
In diesem Tabellenblatt habe ich bereits folgenden Code drin:


Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = "$A$1:$I" & Range("A65536").End(xlUp).Row
End Sub

Ich hoffe Ihr könnt mir helfen - ich bin ein totaler nop was VBA angeht :-((
Schöne Grüße aus Berlin
Jean-Pierre

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sepp,
Danke nochmals!
Ich bekomme bei Eingabe 1 in B31 (Spontan genommen) folgenden Fehler:
Laufzeitfehler '1004':
Die Locked-Eigenschaft des Range-Objektes kann nicht festgelegt werden.
Verweis im Debug auf Case 1...


Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = "$A$1:$T" & Range("A65536").End(xlUp).Row
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B50")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Select Case Target
Case 1
--> Range(Cells(Target.Row, 8), Cells(Target.Row, 17)).Locked = True
Case 2
--> Range(Cells(Target.Row, 8), Cells(Target.Row, 17)).Locked = False
Range(Cells(Target.Row, 13), Cells(Target.Row, 17)).Locked = True
Case 3
--> Range(Cells(Target.Row, 8), Cells(Target.Row, 17)).Locked = False
Case Else
End Select
End If
End Sub


Die Zeile vom Debuggen hab ich mit --> markiert.

Gebe ich die Zahl 2 ein erscheint der Fehler erneut verweist im Debug auf Case 2

Und bei Eingabe der Zahl 3 das gleiche mit Debug Verweis auf Case 3.

Was ist da verkehrt bzw. falsch?

Gruß aus Berlin

Jean-Pierre

Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.PrintArea = "$A$1:$T" & Range("A65536").End(xlUp).Row Sub schutz() Sheets("DeineTabelle").Protect Password:="passwort", UserInterfaceOnly:=True Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B1:B50")) Is Nothing Then If Target.Count > 1 Then Exit Sub Select Case Target Case 1 Range(Cells(Target.Row, 8), Cells(Target.Row, 17)).Locked = True Case 2 Range(Cells(Target.Row, 8), Cells(Target.Row, 17)).Locked = False Range(Cells(Target.Row, 13), Cells(Target.Row, 17)).Locked = True Case 3 Range(Cells(Target.Row, 8), Cells(Target.Row, 17)).Locked = False Case Else End Select End If End Sub Trotzdem kommt der Fehler wieder... Gruß aus Berlin Jean-Pierre

Beliebteste Forumthreads (12 Monate)

Bedingung erfüllt - dann Zelle X,Y,Z Sperren...

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread