Office: spalten aneinander hängen + combolist hilfe

Das "Target" wird als Parameter an die "Change"-Routine übergeben. Es ist ein "Range", der im Zweifelsfall aus nur einer einzigen Zelle bestehen kann. Wenn Du aber einen ganzen Bereich markierst und z.B. mit "Entf(ernen)" die Inhalte löscht, dann beinhaltet "Target" auch diesen ganzen Bereich. Ein "Range"-Objekt hat etliche Eigenschaften wie z.B. auch Angaben über linke und obere Ecke, Anzahl der Zeilen und Spalten, ... Und Eigenschaften eines Objekts wiederum werden mit "." angehängt.

"Target.Row" heißt also im Prinzip: Die Zeile von Target. Das sieht überall so aus. Anderes Beispiel:

Code:

thisworkbook.activesheet.range("b2:d4").font.colorindex = 1

Vielleicht hilft es, solche Dinger von rechts nach links zu lesen:

Es geht um einen colorindex, also den Verweis auf einen Farbwert. Dieser wird einem Font, also der Vordergundfarbe von Texten, zugewiesen. Die Texte, die eingefärbt werden sollen, befinden sich im Bereich B2:D4. Dieser Bereich wiederum ist im aktiven Arbeitsblatt zu finden. Und es ist das aktive Arbeitsblatt der "eigenen" Arbeitsmappe (Das ist die, in dem sich der gerade ausgeführte VBA-Code befindet) gemeint.

Ich hab hier, genau genommen, eine kleine Abkürzung genommen. Eigentlich fehlt eine kleine Abfrage vorher, ob "Target" nur aus einer einzigen Zelle besteht. Was aber dann passiert:

Ich frage, ob die Zeile von "Target" 2 ist und ob die Spalte von "Target" 5 ist, was also der Zelle E2 entspricht. Man könnte auch die etwas kompliziertere Syntax mit "Intersect" verwenden, um zu bestimmen, ob die Bereiche "Target" und "E2" sich überschneiden. Geschmackssache...

Das (Ent-) Sperren des Bereichs muß nur durchgeführt werden, wenn der Wert in E2 sich geändert hat. Bei Änderungen in anderen Zellen braucht diese Routine nicht aktiv zu werden. Das spart Rechenzeit (Ruckeln nach jeder Eingabe irgendwo auf dem Blatt) und läßt Platz für andere Reaktionen auf Änderungen in anderen Zellen.

Das Konstrukt macht eigentlich nichts anderes, als sich den Wert aus E5 zu holen. Dabei wird y vorsichtshalber mit einem Defaultwert von 0 vorbelegt. Wenn in E5 dann ein Buchstabe oder sonst irgendein "ungültiger" Wert steht, würde die Zuweisung auf die Longint-Variable einen Fehler verursachen. Um das zu verhindern habe ich das "On Error" drumherum gesetzt. In dem Fall würde y auf 0 bleiben und der Rest der Routine entsprechend nicht durchlaufen werden.

Hmmm... Das kann ich jetzt noch nicht so ganz nachvollziehen... Bei einer Änderung in E5 werden ja zuerst einmal alle Zellen pauschal entsperrt ("s1.Cells.Locked = False"). Danach werden die Zellen A1:D(y-1) wieder gesperrt ("s1.Range("A1:D" & y - 1).Locked = True"). Wenn in E5 also eine 2 steht, dann wird nur A1:D1 gesperrt. Wenn immer A1:D4 gesperrt sind, muß auch irgendwie immer eine 5 in y stehen. Hmmm... Fehlt mir jetzt eine Idee, aber ich schau's mir gerne nochmal genauer an.

Gruß, Michael

 

Argl, ja, es gibt einen kleinen Fehler, der aber nur in einer recht speziellen Situation auftritt:

Wenn man in E5 einen gültigen Wert eingibt (z.B. "15") und danach mit z.B. "1" wieder alle Zellen freigeben möchte, dann klappt das nicht, weil durch die Abfrage >=2 die Routine nicht durchlaufen wird.

Wenn eine "0" oder ein ungültiger Wert eingetragen wird, bleiben die vorher eingestellten Zellen ebenfalls gesperrt, aber das erschien mir auch sinnvoll. Wenn das nicht so sein soll, kann man das aber auch anpassen.

Ich hab mal 2 kleine Änderungen eingebaut:
a) Der o.a. Speziallfall wird mit abgedeckt
b) Der Test auf den geänderten Bereich umfaßt nun auch 1x1 Größentest

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim y As Long
    Dim s1 As Worksheet

    If (Target.Rows.Count = 1) And (Target.Columns.Count = 1) And (Target.Row = 2) And (Target.Column = 5) Then

        y = 0: On Error Resume Next: y = Target.Value: On Error GoTo 0
        If (y > 0) Then

            Set s1 = ActiveSheet
            s1.Unprotect
            s1.Cells.Locked = False

            If (y >= 2) And (y < 65536) Then
                s1.Range("A1:D" & y - 1).Locked = True
            End If

            s1.Protect

        End If
    End If

End Sub

Aber daß immer A1:D4 gesperrt sind, kann ich (nach wie vor) nicht nachvollziehen.

Gruß, Michael