Zellen (ent-)sperren nach Auswahl aus Liste
21.09.2017 10:55:33
Lilly
hoffe, ihr könnt mir helfen.
Ich habe ein Formular zur Erfassung von Daten entwickelt, in dem schon verschiedene Makros laufen. Dazu gibt es einige Dropdownlisten über Datenüberwachung und verschiedene bedingte Formatierungen. Nun würde ich gerne den letzten Teil (Zellen A39:I45) zur Eingabe sperren, wenn in Zelle C34 (Dropdownliste) kein X oder wenn in C34 ein X, aber auch in C33 und/oder C32 ein X steht. Bei Eingabe des X sollen dann die Zellen auch mit ausgefüllt werden können. Der Rest des Blattes, außer da wo etwas eingegeben werden soll, wird vor Freigabe des Formulars von mir händisch geschützt.
Bin bei meiner Recherche in diversen Foren auf die verschiedensten Möglichkeiten gestoßen, aber keine hat richtig funktioniert.
Habe zudem schon ein Worksheet_Change laufen, müsste also (wenn auch über dieses) in dieses eingebaut werden.
Hier das Sub:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 4 Then Exit Sub
Select Case Target.Row
Case 24, 25, 26, 28, 36, 44
Set Zielzelle = Target
Call Tabelle1.AutoFitMergedCellRowHeight
Case Else
End Select
End Sub
Danke schonmal
Anzeige