Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formel schützen

Formel schützen
04.09.2003 22:01:53
Didi
Guten Abend,

habe folgendes Makro in der Recherche gefunden.
Die Formeln in Spalte G können nicht gelöscht bzw. überschrieben werden.
Ich habe aber Formeln in einer zweiten Spalte (SpalteA) die geschützt werden sollen!

Ich komm leider nicht dahinter, was im Makro ergänzt werden muß!

Vielen Dank für die Hilfe

Gruß Didi


Private Sub Worksheet_Change(ByVal Target As Range)
'In Spalte 7 (G) befinden sich die Formeln:
If Target.Column <> 7 Then Exit Sub
If Cells(Target.Row, 7).HasFormula Then Exit Sub
Application.Undo
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel schützen
04.09.2003 22:07:15
Fritz
Hallo Didi,
den Code wie folgt ändern:


Private Sub Worksheet_Change(ByVal Target As Range)
'In Spalte 1 (A) befinden sich die Formeln:
If Target.Column <> 1 Then Exit Sub
If Cells(Target.Row, 1).HasFormula Then Exit Sub
Application.Undo
End Sub


mfg
Fritz
AW: Formel schützen
04.09.2003 22:08:32
ChrisL
Hi Didi

Ändere die Zahl 7 in eine 1.

1 = A
2 = B
3 = C
..
7 = G

Falls A UND G geschützt werden sollen...


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Or Target.Column = 1 Then
If Cells(Target.Row, Target.Column).HasFormula Then Exit Sub
Application.Undo
End If
End Sub


Gruss
Chris
Anzeige
AW: Formel schützen
04.09.2003 22:14:14
Didi
Hallo Chris,

genau so hab ich es mir vorgestellt!

Dank nochmal
AW: Formel schützen
05.09.2003 07:18:03
Hajo_Zi
Hallo Didi

wäre da nicht Private Sub Worksheet_SelectionChange(ByVal Target As Range)
die richtige Aktion. Bei Change ist Sie schon gelöscht. Ich vermute mal so Stand es auch im Archiv. Hier nochmal ein Beispiel.

http://home.media-n.de/ziplies/gepackt/vba/formel_schuetzen.zip


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige