Office: Sperren von Bereichen

Hallo,

mein Problem ist folgendes. Ich habe eine EXcel Tabelle mit mehreren Tabellenblättern. In diesen Tabellenblättern sind von Personen verschiedene Eingaben zu tätigen.
Diese Eingabefelder sollen offen bleiben. Der Rest sollte gesperrt werden. Da ich aber teilweise Kommentere(Über Gültigkeit) in diesen Bereichen habe sollten diese wenn darauf geklickt wird angezeigt werden aber der Inhalt nicht verändert werden können.

Ich hoffe ich habe mein Prob verständlich geschildert und bin für jede Antwort dankbar.

Gruß Tobi

 

Hallo,

habe ein zweites Problem.

Will in VBA über eine If anweisung zwei Zellen abfragen wenn sie den Wert haben sollen Zeilen ausgeblendet werden. Wenn nicht sollen Sie bestehen bleiben.

Habe das so probiert:
Sub If_Beispiel()
If Range("C3") = "Einspeisevergütung" And Range("C5") = "Deutschland" Then
Rows("5:6").Hidden = False
Else
Rows("5:6").Hidden = True
End If
End Sub

Bin für jede Antwort dankbar gruß Tobi

 

Hallo!

Zu Problem1: Warum erstellst du die Kommentare über Gültigkeit?
Menü Einfügen > Kommentare
Das sollte für deine Zwecke doch sinnvoller sein.

Zu Problem2: Bei mir funktioniert das Makro. Was stört dich daran?

 

Hallo,

zu Prob 1: Kann ich ändern kein Ding.

Habe mal wieder das Prob nicht richtig beschrieben. Ich habe die Zellen die weiterhin beschreibbar sein sollen über Format Zellen Schutz den Haken bei gesperrt entfernt.
Anschließend habe ich das Blatt geschützt über Extras Schutz Blattschützen und nur ein Häkchen bei nicht gesperrte Zellen auswählen gemacht. Nun kann ich aber meine Command Buttons nicht mehr benutzen über die Zellen ein und ausgeblendet werden. Erscheint ein Laufzeitfehler wenn der Blattschutz so aktiviert ist wie beschrieben. Das würde ich gerne umgehen weiss aber nicht wie.

zu Prob 2: Schön das es bei dir funzt aber bei mir nicht habe im VBA Modus allgemein drüber stehen liegt es daran.
Wenn ich auf eine ComboBox gehe steht dort ComboBox.

Noch was kann man den Namen der Combobox ändern im VisualBasic Moduls wenn ich ihn ändere funzt der Button nicht mehr. Wäre aus Übersichtlichkeitgründen sehr hilfreich habe über 20 ComboBoxen eingebaut und die sind nur laufend nummeriert. Ist nicht so schön beim Überblick behalten.

Besten dank für die schnelle Antwort und schon mal besten Dank für die nächsten Antworten.

Gruß Tobi

 

Hallo!

Von irgendwelchen CommandButtons war in deinem ersten Posting übrigens so gar nicht die Rede... :roll:

zu 1: Wahrscheinlich musst du für die Buttonfunktionalität den Blattschutz kurzzeitig aufheben:

Sub CommandButton1_Click()
Sheets("DeinBlattname").Unprotect
...DeinCode...
Sheets("DeinBlattname").Protect
End Sub

Falls du ein Passwort eingesetzt hast, dann
Sheets("...").Unprotect Password:="Hallo"
Analog am Ende des Codes.

zu 2: Nun also auch noch eine überraschend aufgetauchte ComboBox; und zwar nicht nur eine, sondern ihre ganzen Freunde hat auch noch mitgebracht... (wie war das noch in der Sesamstrasse? "Hätt' ich dich heut' erwartet, hätt' ich Kuchen da...)

Im VBA-Editor findest du normalerweise unten links das Eigenschaftenfenster; falls nicht, dann mit F4 einblenden.
Der allererste Eintrag nennt sich "Name"; hier kannst du selbigen ändern.
Die Codes müssen dann angepasst werden.

Das mit deinem Ausblend-Makro habe ich immer noch nicht verstanden:
Wenn in C3 und C5 "Einspeisevergütung" und "Deutschland" stehen und ich rufe das Makro auf und lasse es ausführen, dann werden bei mir die Zeilen 5 und 6 eingeblendet; in allen anderen Fällen werden sie ausgeblendet. Das willst du doch erreichen, oder?

 

Ich denke bei der Sache gibt es ein Misverständnis. Ich habe mit C3 und C5 zwei Felder die mit einer ComboBox verknüpft sind. Werden diese auf Deutschland und Einspeisevergütung eingestellt soll automatisch eingeblendet werden. Es soll nicht erst ein Makro aktiviert werden.

Der eine Teil funzt bestens. Der mit der Namensänderung.
Den Teil mit dem Ausblenden werde ich gleich danach testen und über gelingen oder misslingen berichten.

Besten Dank schon mal Tobi

 

Der Teil mit ausblenden und einblenden klappt bestens. Selbst mit Passwortschutz.
Supergeil die Buttons funzen habe Stunden gesucht und die Lösung war so einfach.
Jetzt nur noch mal zu meinen Kommentaren. Wenn ich die über die Gültigkeit bestehen lassen will und den Blattschutz aktiviere kann ich logischerweise nicht mehr draufklicken um den Kommentar anzeigen zu lassen. Kann ich das anders umgehen als alles zu ändern über Menü Einfügen usw. Funzt das überhaupt mit Blattschutz?

Besten Dank für jede Antwort im voraus.

Gruß Tobi

 

Hallo!

Ja, das könnte tatsächlich klappen:
ENTsperre die besagten Zellen wieder.
Nun wähle Menü Daten > Gültigkeit
Zulassen: benutzerdefiniert
Formel: =$Z$1="Hallo"
Entferne das Häkchen bei "Leere Zellen ignorieren"
OK

Nun können Änderungen nur noch vorgenommen werden, wenn in Z1 das Wort "Hallo" steht.
Solltest du bereits eine Gültigkeitsprüfung eingefügt haben, dann ändere sie in
=UND($Z$1="Hallo";DeinePrüfung")

Das ist vielleicht nicht ganz so sicher wie der Blattschutz, erfüllt aber fast den gleichen Zweck.

 

Auch diese Lösung ist wieder mal perfekt und funzt wie eine eins und die Sicherheit ist meiner Meinung nach Hoch genug. Wer gibt schon auf z1 Hallo ein das wäre Zufall und damit muss ich dann leben.

Will ja nicht nerven so kurz vor dem Wochenende aber hast du einen Vorschlag zu meinem Prob mit der If anweisung? Habe es ja nochmal genauer beschrieben. Wenn nicht auch nicht schlimm werde mich da schon irgendwie durchwuschteln.

Wünsche ein schönes WE und nochmals Vielen Dank für die super schnellen und super geilen Lösungen

Gruß Tobi

 

Sorry, das hatte ich vorhin überlesen.
Wenn es automatisch ausgeführt werden soll, dann musst du es in ein Ereignis einbinden:
Wähle oben im VBA-Editor, wo du vorhin "Allgemein" gesehen hast, den Eintrag "Worksheet". Es erscheint automatisch ein Code-Rumpf

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
...
End Sub

Trage hier deinen Code ein.
Nun sollte sich das automatisch erledigen.

 

Guten morgen,

bin erst heute morgen dazu gekommen deine letzte Lösung umzusetzen. Leider stellt sich kein Automatismus ein. D.h. ich muss trotzdem auf diese Stelle klicken dann blenden sich die Zellen ein bzw. aus.
Es wäre schön wenn das komplett automatisch funktionieren würde.
Wenn du eine Lösung hast ist das sehr schön wenn nicht auch nicht schlimm. Hast mir schon mehr als genug geholfen.

Gruß Tobi

 

Hallo!

Dann teste mal, ob es bei einer dieser Varianten funktioniert:

Code:

Private Sub Worksheet_Calculate()
...
End Sub

oder

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
...
End Sub

 

Hallo,

genial habe auch ähnliches probiert ich meine andere Befehle ausprobiert aus einem Buch von Bernd Held.

Hat alles nichts gebracht bis du, meiner Meinung nache der größte EXCEL Experte, es wieder gerichtet hat.

Also vielen Dank nochmal und vielleicht bis zum nächsten Problem.

Bis dahin eine schöne Zeit

Gruß Tobi

 

Guten Morgen,
habe mich zu früh gefreut.

Mit Calculate im Worksheet machen die anderen Steuerelemente Probleme. Z.B. die Dropdown-Menüs habe ich mit einer wenn Verknüpfung an eine Berechnung übergeben. Wird das Menü geändert fängt der Bildschirm an zu Flackern und es dauert lange bis das Ergebnis berechnet ist.
Bei der anderen Lösung stellt sich kein Automatismus ein.
Kannst du dir die Sache mit Calculate erklären? Ich hoffe das ich das Prob gut genug beschrieben.

Gruß Tobi

 

Hallo!

Die Ereignisse bestimmen, wann ein Code ausgeführt wird; das Ereignis Calculate wird also bei einer Neuberechnung des Blatts aktiviert.
Da ich deine Codes nicht kenne, wird eine gezielte Hilfe natürlich schwierig.
Das Flackern kannst du möglicherweise beheben, wenn du während des Makros die Bildschirmaktualisierung ausschaltest. Eine weitere Beschleunigung könnte auch eine kurzzeitige Abschaltung der automatischen Berechnung bringen:

Code:

Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Application.Calculation = xlManual
...
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub