Zellenschutz unter Bedingungen

Stein · 1970-01-01T00:00:00+00:00

Hallo, ich möchte einzelne Zellen in einem Arbeitsplatz mit einem Schutz versehen, wenn bestimmte Bedingungen vorliegen. Die betroffenen Zellen sollen also zur Bearbeitung trotz aktivem Blattschutz freigegeben werden, wenn in einer anderen Zelle bestimmte Werte nicht vorhanden sind. Ansonsten bleiben auch sie gesperrt. Gruss Stein

Hallo Björn,
ich habe den Code mal vervielfältig, so wie ich ihn brauche:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [$AE4] > 0 And Target.Address = "$AC$4" Then
[AC5].Select
End If
If [$AE5] > 0 And Target.Address = "$AC$5" Then
[AC6].Select
End If
If [$AE6] > 0 And Target.Address = "$AC$6" Then
[AC7].Select
End If
If [$AE7] > 0 And Target.Address = "$AC$7" Then
[AC8].Select
End If
If [$AE8] > 0 And Target.Address = "$AC$8" Then
[AC9].Select
End If
If [$AE9] > 0 And Target.Address = "$AC$9" Then
[AC10].Select
End If
If [$AE10] > 0 And Target.Address = "$AC$10" Then
[AC11].Select
End If
If [$AE11] > 0 And Target.Address = "$AC$11" Then
[AC12].Select
End If
If [$AE12] > 0 And Target.Address = "$AC$12" Then
[AC13].Select
End If
If [$AE13] > 0 And Target.Address = "$AC$13" Then
[AC14].Select
End If
If [$AE14] > 0 And Target.Address = "$AC$14" Then
[AC15].Select
End If
If [$AE15] > 0 And Target.Address = "$AC$15" Then
[AC16].Select
End If
If [$AE16] > 0 And Target.Address = "$AC$16" Then
[AC17].Select
End If
If [$AE17] > 0 And Target.Address = "$AC$17" Then
[AC18].Select
End If
If [$AE18] > 0 And Target.Address = "$AC$18" Then
[AC19].Select
End If
If [$AE19] > 0 And Target.Address = "$AC$19" Then
[AC20].Select
End If
If [$AE20] > 0 And Target.Address = "$AC$20" Then
[AC21].Select
End If
If [$AE21] > 0 And Target.Address = "$AC$21" Then
[AC22].Select
End If
If [$AE22] > 0 And Target.Address = "$AC$22" Then
[AC23].Select
End If
If [$AE23] > 0 And Target.Address = "$AC$23" Then
[AC24].Select
End If
If [$AE24] > 0 And Target.Address = "$AC$24" Then
[AC25].Select
End If
If [$AE25] > 0 And Target.Address = "$AC$25" Then
[AC26].Select
End If
If [$AE26] > 0 And Target.Address = "$AC$26" Then
[AC27].Select
End If
If [$AE27] > 0 And Target.Address = "$AC$27" Then
[AC28].Select
End If
If [$AE28] > 0 And Target.Address = "$AC$28" Then
[AC29].Select
End If
If [$AE29] > 0 And Target.Address = "$AC$29" Then
[AC30].Select
End If
If [$AE30] > 0 And Target.Address = "$AC$30" Then
[AC31].Select
End If
If [$AE31] > 0 And Target.Address = "$AC$31" Then
[AC32].Select
End If
If [$AE32] > 0 And Target.Address = "$AC$32" Then
[AC33].Select
End If
If [$AE33] > 0 And Target.Address = "$AC$33" Then
[AC34].Select
End If
If [$AE34] > 0 And Target.Address = "$AC$34" Then
[AC35].Select
End If
If [$AE35] > 0 And Target.Address = "$AC$35" Then
[AC36].Select
End If
If [$AE36] > 0 And Target.Address = "$AC$36" Then
[AC37].Select
End If
If [$AE37] > 0 And Target.Address = "$AC$37" Then
[AC38].Select
End If
If [$AE38] > 0 And Target.Address = "$AC$38" Then
[AC39].Select
End If
If [$AE39] > 0 And Target.Address = "$AC$39" Then
[AC40].Select
End If
If [$AE40] > 0 And Target.Address = "$AC$40" Then
[AC41].Select
End If
If [$AE41] > 0 And Target.Address = "$AC$41" Then
[AC42].Select
End If
If [$AE42] > 0 And Target.Address = "$AC$42" Then
[AC43].Select
End If
If [$AE43] > 0 And Target.Address = "$AC$43" Then
[AC44].Select
End If
If [$AE44] > 0 And Target.Address = "$AC$44" Then
[AC45].Select
End If
If [$AE45] > 0 And Target.Address = "$AC$45" Then
[AC46].Select
End If
If [$AE46] > 0 And Target.Address = "$AC$46" Then
[AC47].Select
End If
If [$AE47] > 0 And Target.Address = "$AC$47" Then
[AC48].Select
End If
If [$AE48] > 0 And Target.Address = "$AC$48" Then
[AC49].Select
End If
If [$AE49] > 0 And Target.Address = "$AC$49" Then
[AC50].Select
End If
If [$AE50] > 0 And Target.Address = "$AC$50" Then
[AC51].Select
End If
If [$AE51] > 0 And Target.Address = "$AC$51" Then
[AC52].Select
End If
If [$AE52] > 0 And Target.Address = "$AC$52" Then
[AC53].Select
End If
If [$AE53] > 0 And Target.Address = "$AC$53" Then
[AC54].Select
End If
If [$AE54] > 0 And Target.Address = "$AC$54" Then
[AC55].Select
End If
If [$AE55] > 0 And Target.Address = "$AC$55" Then
[AC56].Select
End If
If [$AE56] > 0 And Target.Address = "$AC$56" Then
[AC57].Select
End If
If [$AE57] > 0 And Target.Address = "$AC$57" Then
[AC58].Select
End If
If [$AE58] > 0 And Target.Address = "$AC$58" Then
[AC59].Select
End If
If [$AE59] > 0 And Target.Address = "$AC$59" Then
[AC60].Select
End If
If [$AE60] > 0 And Target.Address = "$AC$60" Then
[AC61].Select
End If
If [$AE61] > 0 And Target.Address = "$AC$61" Then
[AC62].Select
End If
If [$AE62] > 0 And Target.Address = "$AC$62" Then
[AC63].Select
End If
If [$AE63] > 0 And Target.Address = "$AC$63" Then
[Y4].Select
End If
End Sub

So funktioniert er wie gewünscht. Wenn also eine Zelle in AC gesperrt wird, weil die Bedingung ">0" erfüllt ist, soll er auf die nächste Zelle in AC springen, deren Bedingung noch nicht erfüllt ist.
Ich habe versucht, deine Vorgabe für mein Ziel umzusetzen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = AC4 to AC63
if Cells(i,AC4).Value > 0 And Target.Address = cells(i,$AC$4) then
cells[i,AC5].Select
Next i
End If
End Sub

Habe aber ein oder mehrere Fehler dabei drin. Schon die erste Zeile "Private..." moniert der Kompiler.
Gruß
Stein

Hallo Stein,
meine Ausführungen waren/sind in keinster Weise böse gemeint. Ich sag das nur mal so zur Sicherheit, bevor Du was falsch verstehst.
Ich bin sehr beruhigt, dass Du auch "verstehen" willst, freut mich.

Sicherlich kann ich mit den einzelnen Begriffen wie "Target.Row", "Target.Rows.Count", "Target.Columns.Count", usw. noch nicht viel anfangen

Also erst mal "Target": Das wird automatisch in das Makro "Worksheet_SelectionChange" übergeben. Wenn Du Dir die erste Zeile ansiehst, steht da in Klammern (ByVal Target As Range).
Es handelt sich also um eine Range (einen Bereich). Excel übergibt also an dieses Makro die Adresse der neuen Selektion. Verstanden?
Target.Row: .Row gibt dir die Zeile des Objekts. Objekt ist in diesem Fall Target. Als Ergebnis erhälst du also die Zeile der neuen Selektion. Wenn es mehrere Zeilen beinhaltet, gibt Row die aktivierte Zeile zurück.
Zur Erklärung, selektieren kann man mehrere Zellen, aktiviert ist aber immer nur eine. MArkiere mal mehrere Zellen, oder einen großen Bereich und drücke dann die Tab-Taste. Diese verändert dann die aktivierte Zelle, nicht aber die Selektion.
Target.Rows.Count Rows sind dann alle Zeilen des Objekts (hier wieder Target). Count kannst Du selber übersetzen. Hier werden also alle Zeilen der Selektion gezählt.
Target.Columns.Count Columns sind Spalten, Es werden alle Spalten gezählt.

warum muss vorher überprüft werden, ob mehr als eine Zelle selektiert wurde?

Muss nicht unbedingt, ich dachte nur, dass es vielleicht sinnvoll ist. Das kannst du auch weglassen.
Musst Du selber entscheiden, ob das für Deinen Fall was bringt oder nicht. Auf jeden Fall spart es Performance, deshalb mach ich das fast immer rein bei Selection_Change.
Mach mal den Test: Lass die Zeile mal weg und MArkiere dann mehrere Spalten. Das kann dann schon ein paar Sekunden brauchen, bis hier jede Zelle geprüft wurde. Wenn aber gleich zu Beginn diese Prüfung drin ist, dann dauert es eben nicht lange.
Wie gesagt, Du musst selber entscheiden, ob in Deiner Anwendung auch dann die Markierung nach unten springen soll, wenn einer einen ganzen Bereich markiert (das macht man ja normal nicht, wenn man was eintragen möchte).
_________________________
Mit dem Hinweis, dir ein Buch kaufen bzw. dir die Grundlagen anzueignen wollte ich Dir helfen. ICh habe auch mal so angefangen wie du und mir irgendwoher immer eine Lösung kopiert und gebastelt und im Laufe der Zeit dann festgestellt, dass ich am Anfang einfach zu wenig wusste.
Um "gut" zu programmieren, wirst du nicht drum rumkommen, dir das mal anzueignen. Sonst wirst Du Dich hinterher nur ärgern, weil Du dann Sachen doppelt machst. Diese Zeit kannst du auch in die Grundlagen stecken, dann bist du am Ende gleich schnell :-)
____________________
Mit Deinen Anpassungen lass ich dich mal allein (wolltest du ja ;-)).
Falls Du nicht weiter kommst, einfach noch mal melden.
Gruß
Björn B.

Forumthread: Zellenschutz unter Bedingungen

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial