Zellenschutz unter Bedingungen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [E2] = "Nein" And Target.Address = "$C$2" Then [A1].Select MsgBox "Auswahl von " & Target.Address & " unzulässig!" [A1].Select End If End Sub

Sub Blattschutz_bedingt() Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [AC4] = 0 And Target.Address = "$AA$4" Then [A1].Select MsgBox "Auswahl von " & Target.Address & " unzulässig!" End If End Sub End Sub

..., wenn du im VBE (Visual Basic Editor) bist, ist dann der ProjektExplorer zu sehen? ... In ihm siehst du dann die Elemente Deiner Mappe. Du solltest jetzt einen Doppelklick auf die Tabelle machen, in der der Code stehen soll. Dann geht das eigentlich Editor Feld der Tabelle auf (schau mal in die Teitelleiste, hier steht immer, was grad aktiv ist). Dort kopierst du nun den Code von Jochen rein.

Fast, ein Zusatz noch: Wenn Du eine andere Zelle, einen anderen Bereich (mehrere Zellen) in diesem einen Blatt wählst. DAs gilt dann für alle Zellen in dem Blatt (Register, nicht zu verwechseln mit der Mappe).

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [$E2] >= 5 And Target.Address = "$C$2" Then [G2].Select End If If [$E3] >= 5 And Target.Address = "$C$3" Then [G3].Select End If End Sub

Dim i as integer 'wir definieren uns eine Variable, die als Zähler und gleichzeitig als _ Zeilennummer fungiert 'jetzt fängt die schleife an For i = 1 to 10 if Cells(i,1).Value > 3 then ..... Next i

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim irow As Integer irow = Target.row If Target.Rows.Count + Target.Columns.Count > 2 Then Exit Sub 'ist mehr als 1 Zelle markiert? If irow > 3 And irow 0 Then Cells(irow + 1, 29).Select End If End Sub

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.

Wenn Du einen Code im VBE hast, dann kannst du ihn auch ausführen, da muss nix mehr aktiviert werden. Die Frage, die beim Öffnen der Datei kommt, dient ja nur Deiner Sicherheit, da manche Makros mit dem Start der Datei automatisch ausgeführt werden.

Beliebteste Forumthreads (12 Monate)

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread