Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1160to1164
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1160to1164
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ohne Blattschutz Zelle geschützt

Ohne Blattschutz Zelle geschützt
amintire
Hallo alle zusammen,
ich möchte gerne eine einzige Zelle schützen (ohne Blattschutz mit Passwort)
Wenn man z.B. auf die Zelle klickt soll von der weggesprungen werden in eine andere Zelle, sodass die
Zelle nicht bearbeitet werden kann um nicht versehentlich eine Formel zu löschen.
Gibt es hier einen Lösungsvorschlag per VBA Code, also ohne Passwort und ohne Blattschutz oder bei Zellen formatieren "geschützt"...
Bin echt dankbar für Lösungsvorschläge.
Vielen Dank.
Gruß Amina

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Ohne Blattschutz Zelle geschützt
08.06.2010 22:44:50
Mustafa
Hallo aminitre,
Hier mal ein Beispiel wo nicht in die Ursprungszelle sondern in die Zelle darunter gesprungen wird.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Cells(Target.Row + 1, Target.Column).Select
End If
End Sub

Hoffe es Hilft dir weiter.
PS: Ich kenne keinen Weg die vorher Aktive Zelle zu merken, darum dieser Umweg.
Gruß aus der Domstadt Köln.
AW: Ohne Blattschutz Zelle geschützt
08.06.2010 22:56:38
Schorschi
Hallo Amina,
evtl. mit...
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Sheets("Tabelle2").Range("A1") = Target Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub

oder...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("Tabelle2").Range("A1") = Target Then
Sheets("Tabelle2").Range("A2").Activate
End If
End Sub

oder...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("Tabelle2").Range("A1") = Target Then
Target.Offset(1, 1).Activate
End If
End Sub

Gruss
Schorschi
Anzeige
@Schorschi
09.06.2010 07:53:04
Erich
Hi Schorschi,
If Sheets("Tabelle2").Range("A1") = Target Then
ist nicht geeignet. Ausführlicher stünde da:
If Sheets("Tabelle2").Range("A1").Value = Target.Value Then
Du willst aber wohl nicht anhand des Wertes Zellen ein- oder ausschließen.
Außerdem: Da der Code wohl im Modul der "Tabelle2" steht, erübrigt sich hier die Angabe der Tabelle.
Also besser so (wie auch schon Mustafa):
If Not Intersect(Target, Range("A1")) Is Nothing Then
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: @Schorschi
09.06.2010 17:00:29
Schrschi
Hallo Erich,
die Frage war:
„ich möchte gerne eine einzige Zelle schützen (ohne Blattschutz mit Passwort)
Wenn man z.B. auf die Zelle klickt soll von der weggesprungen werden in eine
andere Zelle, sodass die Zelle nicht bearbeitet werden kann um nicht versehentlich
eine Formel zu löschen.“
Leider fiel mir gestern Nacht die „Target.Adress“-Abfrage nicht ein,
ich hatte mich so auf „Range“… „Target“ und „Tabelle“ festgebissen…
gefiel mir auch nicht…
eine sauber programmierte Lösung, wäre evtl. zu…
Änderung der bestehenden Eingabe nicht zulassen, durch:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address  "$A$1" Then Exit Sub
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub
oder "Zellsprung”, durch:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address  "$A$1" Then Exit Sub
Target.Offset(1, 0).Activate
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address  "$A$1" Then Exit Sub
ActiveSheet.Range("A2").Activate
End Sub
gewesen.
Eine Wertabfrage mit „Value“ zum Zellein-/ausschluss sollte nicht erfolgen,
es ging mir um das Target als Range-Objekt. Auch „Tabelle2“ ersetzt durch
„ActiveSheet“ oder der Einsatz des Vorschlags von Mustafa steht außer Frage.
Ist evtl. anderer Code im Einsatz oder sollen noch mehr Zellen überwacht
werden, ergeben sich wieder andere Situationen…
Danke für die Hinweise…werde sie künftig berücksichtigen…
Viele Grüße
Schorschi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige