Office: (Office 2013) Makro das Zellen bei einem bestimmten Wert entsperrt

Hi,

da ich deine anderen Makros nicht kenne, kann ich leider nichts dazu sagen.

Bis später,
Karin

 

Hi,

die Makros sind in der angehängten Tabelle in #13 gespeichert. Die habe ich aufgezeichnet und nicht selber geschrieben.

 

Hi,

deine Zellen sollen freigeschaftet werden, wenn Eingaben in bestimmte Zellen erfolgen - oder? Weshalb verwendest du dann überhaupt das SelectionChange-Ereignis? Reaktionen auf Eingaben verwenden das Change-Ereignis - schau dir meinen Code an. Außerdem solltest du in deine Makros auf Select verzichten - 1. verlangsamt das den Code und 2. ist es überflüssig

Code:

Sub Start()
    ActiveSheet.Unprotect ("123")
    Range("E5").Locked = False
    ActiveSheet.Protect ("123")
End Sub


Sub Solve()
    ActiveSheet.Unprotect ("123")
    Columns("G:Q").EntireColumn.Hidden = False
    With Range("C24:D32").Font
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
    End With
    ActiveSheet.Protect ("123")
End Sub

Sub Delete()
    ActiveSheet.Unprotect ("123")
    Columns("H:P").EntireColumn.Hidden = True
    With Range("C25:D31").Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Range("D6,D8,D10,D12,D14,D16,E1,E2,E5:E17,E20").ClearContents
    Range("E5:E17,E20").Locked = True
    ActiveSheet.Protect ("123")
End Sub

Bis später,
Karin

 

Hi,

das SelectionChange-Ereignis habe ich aus deinem Code aus der Tabelle aus '#6 übernommen. Das Select habe ich aus meinen Makros entfernt.
Wo kann ich denn meinen Code für die Freischaltung der Zellen einfügen?

 

Hi Beverly,

danke für deine Hinweise. Jetzt habe ich es angepasst und es funktioniert. Eine Frage hätte ich noch:

Ich würde es gerne so haben, dass wenn bspw. der eingegebene Wert in E5 korrekt ist und somit E6 entsperrt wird sofort die Zelle E6 angewählt (?) wird usw.

Wie kann ich das bewerkstelligen?

 

Hi,

Da verwechselst du wohl etwas - in der dort hochgeladenen Mappe gibt es kein SelectionChange-Ereignis sonndern ein Change-Ereignis.

Bis später,
Karin

 

Der Cursor wird doch automatisch in die nächste entsperrte Zelle gesetzt, wenn eine Eingabe mit Enter abgeschlossen wird.

Bis später,
Karin

 

Hi Beverly,

hab mir die Frage aus #20 schon selber beantworten können. Jetzt wollte ich das ganze noch einmal rückwärts machen, was soweit ganz gut klappt, bis auf den verminderten Grundwert, konkret:

E7 soll sich entsperren, wenn in E8 folgendes eingetragen wird: das Produkt aus D8 und E9 geteilt durch die Differenz aus 1 (für 100 %) und D8

dafür habe ich folgende Codezeilen probiert:

If Target = Application.Round(Range("D8") * Range("E9") / (1-Range("D8)), 2) Then

und

If Target = Application.Round(Range("D8") * Range("E9") / (100-Range("D8)*100), 2) Then

Ich bekomme aber immer nur die Fehlermeldung Fehler beim Kompilieren Synthaxfehler und die Codezeilen sind rot?

Wie kann ich den verminderten Grundwert als Code berücksichtigen?

 

Hi,

der Syntaxfehler besteht darin, dass in beiden Zeilen bei Range("D8") die abschließenden Anführungszeichen fehlen.

Bis später,
Karin

 

Supi,

danke dir recht herzlich für die ganze Hilfe. Beim letzten hatte ich wohl Tomaten auf den Augen.

Grüße

 

Hallo Beverly,

ich hätte da noch mal eine Frage. Wie müsste ein Makro aussehen, dass folgendes bewirkt:

wenn in die Zellen C6 und D6 etwas eingetragen wird (egal was für ein Wert), dann soll der Schutz der Zelle D7 aufgehoben werden?

 

Hi,

soll sowohl in C6 und in D6 etwas stehen oder reicht wenn nur in eine der beiden Zellen etwas eignetragen wird?

Bis später,
Karin

 

Hi,

In beiden Zellen.

 

Hi,

If Range("C6") <> "" And Range("D6") <> "" Then Range("D7").Locked = False

Bis später,
Karin

 

Super danke dir!