Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Zelle Schützen
zurück: Einfügen des Datei- oder Tabellennamens in eine Zelle weiter: Unterschiedliche Anzahl einer Spalte auswerten Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
mika2002
Durchschnittlicher Office-Anwender


Verfasst am:
27. Jul 2004, 14:52
Rufname:

Zelle Schützen - Zelle Schützen

Nach oben
       

Hallo, ich möchte eine Zelle schützen, die ich nur durch doppelklick editieren darf. Ansonsten soll eine Fehlermeldung kommen.
Ich hoffe nicht ausschließlich durch VBA. Wenn doch, muss ich noch viel lernen Razz
Danke im voraus.
xpecidy
.:: Excelist ::.


Verfasst am:
27. Jul 2004, 14:58
Rufname:
Wohnort: Dresden


AW: Zelle Schützen - AW: Zelle Schützen

Nach oben
       

Wird wohl nur mit VBA gehen.. Wink

z.b.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Address = "$A$1" Then
    ActiveSheet.Unprotect
        Else
    ActiveSheet.Protect
End If
End Sub


Gruß
Markus

_________________
falls ich mal nicht antworten sollte.. pm an mich
mika2002
Durchschnittlicher Office-Anwender


Verfasst am:
27. Jul 2004, 16:07
Rufname:

Re: - Re:

Nach oben
       

Hallo Markus,
Du bist ja ein echter experte, bis jetzt hast Du auf alle meine Fragen eine Antwort gewußt.
Jetzt wollte ich eine weitere Zelle so definieren, bekomme aber das Problem mit dem gleichen namen in der 1. Zeile, obwohl ich den zellnamen geändert habe. Wenn ich z. B.
Private Sub Worksheet_BeforeDoubleClick_1
schreibe, funktioniert gar nichts mehr.
Wie kann ich das nummerieren
ae
Mein Name ist Ente


Verfasst am:
27. Jul 2004, 16:45
Rufname: Andreas
Wohnort: Reppenstedt bei Lüneburg

AW: Zelle Schützen - AW: Zelle Schützen

Nach oben
       

hallo,
das doubleclick ereignis (alle anderen natürlich auch) sind nicht durchnummerierbar-
schreib einfach für die 2. zeile die du meinst den code zu dem anderen dazu

_________________
Gruß
Andreas E
------
Oh Mann, ich fühl mich heute wie =DATEDIF(DATUM(1961;6;12);HEUTE();"y") Jahre alt
xpecidy
.:: Excelist ::.


Verfasst am:
27. Jul 2004, 17:10
Rufname:
Wohnort: Dresden


AW: Zelle Schützen - AW: Zelle Schützen

Nach oben
       

he he.. danke für die blumen.. Very Happy

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Address = "$A$1" or Target.Cells.Address = "$B$1" Then
    ActiveSheet.Unprotect
        Else
    ActiveSheet.Protect
End If
End Sub


allerdings kann man die zellen trotzdem bearbeiten! bzw. ganz einfach den Blattschutz rausnehmen, da du kein Passwort drin hast.

erweiterbar z.b. so:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Address = "$A$1" or Target.Cells.Address = "$B$1" Then
    ActiveSheet.Unprotect Password:="deinpw"
        Else
    ActiveSheet.Protect Password:="deinpw"
End If
End Sub


Gruß
Markus

_________________
falls ich mal nicht antworten sollte.. pm an mich
mika2002
Durchschnittlicher Office-Anwender


Verfasst am:
28. Jul 2004, 08:48
Rufname:

AW: Zelle Schützen - AW: Zelle Schützen

Nach oben
       

Hallo zusammen,

mit dem Zellschutz komme ich noch nicht zurecht.
Wenn ich den Quellcode im Worksheet eingebe, ändert sich noch nichts im Arbeitsblatt.
Gleichzeitig habe ich nun ein Problem mit der Bezeichnung im Code, da ich gleichzeitig in einer Zelle aufsummieren möchte (Markus hat mir da schon geholfen).
Zum Verständnis: Ich brauche eine Zelle, in der ich täglich einen Wert eingebe, der aufsummiert wird (Funktioniert) habe aber das Problem, bei einfach Click wird der Wert überschrieben. Das darf nicht passieren.
2. Problem Ich brauch so eine Zelle 300x, muss ich jede Zelle einzeln mit OR ansprechen oder gibt es eine Kopierfunktion, Ähnlich wie Zellbezug ohne $.
Danke
xpecidy
.:: Excelist ::.


Verfasst am:
28. Jul 2004, 08:58
Rufname:
Wohnort: Dresden

AW: Zelle Schützen - AW: Zelle Schützen

Nach oben
       

Moin,

mach es ganz anders.

Markiere die Zellen die nicht geschützt werden sollen (also deine Eingabezellen) dann rechtsklick->Zellen formatieren.. -> Schutz -> haken bei gesperrt weg. Danach gehst du unter Extras->Schutz->Blatt schützen und vergibst ein kennwort.

jetzt kannst du in deinen Eingabezellen werte eingeben und in den anderen nicht.

ansonsten kannst mir die file mal schicken. flashinfo{at}lycos.de

Gruß
Markus

_________________
falls ich mal nicht antworten sollte.. pm an mich
xpecidy
.:: Excelist ::.


Verfasst am:
28. Jul 2004, 18:04
Rufname:
Wohnort: Dresden

AW: Zelle Schützen - AW: Zelle Schützen

Nach oben
       

Moin,

zu deinem Problem:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 5 And Target.Row >= 6 And Target.Row <= 115 Or Target.Column = 12 And Target.Row >= 6 And Target.Row <= 115 Then
Sheets("Lagerbestand").Unprotect "lol"
    NeuerWert = Application.InputBox("Bitte täglichen Verbrauch eingeben", "Eingabe", , Type:=1)
    Target.Cells.Value = Target.Cells.Value + NeuerWert
    SendKeys "{ENTER}"
Sheets("Lagerbestand").Protect "lol"
End If

End Sub


den Blattschutz könntest du herausnehmen, zudem müsstest du eventuell die letzte Zeile (jetzt noch 115) anpassen, wenn die Tabelle länger wird..

im Moment sind die Zellen der Spalte E und L von 6 bis 115 vom Makro betroffen.

Hoffe das es jetzt passt!

Gruß
Markus

_________________
falls ich mal nicht antworten sollte.. pm an mich
mika2002
Durchschnittlicher Office-Anwender


Verfasst am:
29. Jul 2004, 14:51
Rufname:


Es funzt - Es funzt

Nach oben
       

super, Wink

es klappt .
Vielen Dank

Gruß Mika
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Text aus Zelle übernehmen und in Formel einfügen! 5 Kannu 3213 07. Sep 2011, 15:55
Paul123 Text aus Zelle übernehmen und in Formel einfügen!
Keine neuen Beiträge Excel Formeln: Zelle soll automatisch farbig sein 14 claudy 3176 19. Jun 2006, 00:03
Gast Zelle soll automatisch farbig sein
Keine neuen Beiträge Excel Formeln: Worte aus einer Zelle in 2 Zellen schreiben 2 Sven79 1323 12. Jan 2005, 01:20
Sven79 Worte aus einer Zelle in 2 Zellen schreiben
Keine neuen Beiträge Excel Formeln: Zelle Verschieben 2 Muran 629 02. Jan 2005, 23:04
Patrick G. Zelle Verschieben
Keine neuen Beiträge Excel Formeln: dateiname in eine zelle 6 natorius 1947 03. Dez 2004, 16:25
natorius dateiname in eine zelle
Keine neuen Beiträge Excel Formeln: Bezug auf Zelle -Ausgabe Formel 12 Patrick0705 2569 26. Nov 2004, 11:36
Arnim Bezug auf Zelle -Ausgabe Formel
Keine neuen Beiträge Excel Formeln: Teile aus einer Zelle übernehmen 5 Yakima 1981 23. Nov 2004, 17:06
Yakima Teile aus einer Zelle übernehmen
Keine neuen Beiträge Excel Formeln: Zelle farbig markieren 12 Gast 4193 05. Nov 2004, 01:25
Arnim Zelle farbig markieren
Keine neuen Beiträge Excel Formeln: Text einer Zelle aufteilen 2 Gast Chris 2787 28. Okt 2004, 12:32
Gast Chris Text einer Zelle aufteilen
Keine neuen Beiträge Excel Formeln: erste Zeichen einer Zelle in andere kopieren 2 fisler0815 3068 11. Okt 2004, 15:37
fisler0815 erste Zeichen einer Zelle in andere kopieren
Keine neuen Beiträge Excel Formeln: Letzten drei Ziffern aus einer Zelle filtern?? 7 Ben 3399 23. Sep 2004, 13:39
Gast Letzten drei Ziffern aus einer Zelle filtern??
Keine neuen Beiträge Excel Formeln: Auslesen mehrer Zahlen aus einer Zelle 7 coatin27 3380 11. Aug 2004, 15:18
Arnim Auslesen mehrer Zahlen aus einer Zelle
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Forum