Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
888to892
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren und runterziehen verhindern

Kopieren und runterziehen verhindern
17.07.2007 16:45:00
Salim

Hallo zusammen,
nachdem ich eine aufwendige Arbeitsmappe erstellt habe, möchte ich es bei Möglichkeit verhindern, dass die Zellen hin und her kopiert werden bzw. "runtergezogen" werden können. Es ist nämlich so, dass beispielsweise das kopieren meine angesetzten Gültigkeitskriterien auflöst! Gibt es dafür einen Code, den ich gleich für die gesamte Arbeitsmappe ansetzten könnte? Wahrscheinlich ist eine Lösung über Extras / Optionen nicht anwendbar, da die Datei an verschiedenen Anwendern verschickt wird, die wiederum eine andere Einstellung der Optionen haben.
Hätte jemand dazu eine Idee wie mann sowohl das Kopieren als auch das "runterziehen" verhindern kann?
Danke und Gruss
Salim

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren und runterziehen verhindern
17.07.2007 16:54:00
selli
was ist mit blattschutz?
gruß selli

AW: Kopieren und runterziehen verhindern
17.07.2007 18:08:00
Salim
Hallo Selli,
Danke für dein Feedback.
Blattschutz ist eingestellt, aber gewisse Zellen können nicht gesperrt werden, da Einträge notwendig sind. Wenn ich beispielsweise für A1 nur Zahlen zw. 1 und 10 zulassen möchte, gebe ich das in der Gültigkeit ein. Wenn ich jetzt aber eine andere Zelle (bspw. b1) kopiere und in A1 einfüge, wird dass nicht verhindert sondern es werden alle Eigenschaften der kopierten Zelle in A1 übernommen. Somit ist nicht gewährleistet, dass die Datei nicht mit fehlerhaften Daten gefüllt wird.
Somit bleibt die Frage offen, welche Möglichkeiten es gibt das Kopieren aber auch runterziehen zu verhindern.
Gruss
Salim

Anzeige
AW: Kopieren und runterziehen verhindern
17.07.2007 20:03:25
Daniel
Hallo
im Prinzip kannst du das verhindern über die Einstellung
EXTRAS - OPTIONEN - BEARBEITEN - Drag and Drop von Zellen aktivieren
dann kann der Anwender zwar immer noch bewußt über kopieren-einfügen Werte überschreiben, aber ein zufälligen überschreiben durch ziehen an der markierung geht nicht mehr.
Das Problem dabei ist, wenn man diese Einstellungen ändert, sollte man sie beim Schließen der Datei auf jeden fall wieder zurücksetzen, sonst verschafft man dem Kollegen u.U. ein ernsthaftes Problem, da diese Einstellungen ja für alle Excel-Arbeitsmappen gelten.
Da hilft dann nur eine saubere Programmierung über VBA, die die ursprüngliche Benutzereinstellung speichert und beim Schließen der Datei wieder zurückschreibt.
Kopier mal diese 4 Makros in das Modul "DieseArbeitsmappe"
Dann sollte es funktionieren.

Option Explicit
Dim bolDRAGnDrop As Boolean
Private Sub Workbook_Activate()
bolDRAGnDrop = Application.CellDragAndDrop
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CellDragAndDrop = bolDRAGnDrop
End Sub
Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = bolDRAGnDrop
End Sub
Private Sub Workbook_Open()
bolDRAGnDrop = Application.CellDragAndDrop
Application.CellDragAndDrop = False
End Sub


Gruß, Daniel

Anzeige
AW: Kopieren und runterziehen verhindern
17.07.2007 20:11:00
Salim
Hallo Daniel,
danke für deinen Feedback.
Das mit dem Drag & Drop hatte ich so eingefügt: Was machen eigentlich deine 4 Makros noch zusätzlich?
Gruss
Salim

Sub workbook_Open()
Application.CellDragAndDrop = False
End Sub




Sub workbook_BeforeClose()
Application.CellDragAndDrop = True
End 


Sub
AW: Kopieren und runterziehen verhindern
17.07.2007 20:39:00
Daniel
Hi
Makro 1:
beim öffen der Datei den aktuelle Wert speichern und auf FALSE setzen
Makro 2:
beim Schließen der Datei den gespeicherten Wert wieder zurückschreiben (sozusagen den Originalzustand des Anwenders wieder herstellen:
Makro 3 und 4: das gleiche wie Makro 1 und 2, aber nicht beim Öffnen und Schließen der Datei, sonden dann wenn der Anwender in eine andere geöffnete Excel-Arbeitsmappe wechselt oder wieder zurückspringt.
Damit ist gewährleistet, daß nur in deiner Arbeitsmappe die Drag and Drop-Funktion deaktiviert ist.
In allen anderen, die der Anwender parallel geöffnet hat, kann er normal weiterarbeiten.
Damit verhinderst du unnötige (teure) Anrufe bei der Hotline, bzw. vermeidest Ärger mit den Kollegen, der sich sonst unweigerlich einstellt, wenn du ihnen ihr Excel durcheinanderbringst.
Gruß, Daniel

Anzeige
AW: Kopieren und runterziehen verhindern
18.07.2007 08:15:13
Salim
Herzlichen Dank! Jetzt habe ich es ganz verstanden ;)
Gruss
Salim

160 Forumthreads zu ähnlichen Themen

Drag & Drop deaktivieren?
Steffi

Hallo liebe Spezialisten,
unter "Optionen" habe ich ja die Möglichkeit "Drag & Drop von Zellen" zu deaktivieren.
Das wirkt sich dann aber auf alle geöffneten Dateien aus :-(
Gibt es eine Möglichkeit mit Hilfe eines Makro oder ähnlich Drag & Drop nur bei einer bestimmten Dat...
28.08.2008 14:46:27
Thread-ID: 1005450
3 Beiträge
Anzeige
Wenn-Oder Formel über VBA funktioniert nicht
sharky1000

Hallo,
ich habe eine etwas komplexere Wenn-Oder Formel erstellt, welche ich über VBA in eine Zelle einfügen möchte.
Formel in E2:
=WENN(ODER(LINKS(D2;2)="M1";LINKS(D2;2)="M2";LINKS(D2;2)="M3";LINKS(D2;2)="M4";LINKS(D2;2)="M5"); LINKS(D2;1);WENN(LINKS(D2;2)="NM";LINKS(D2;2);WENN(LIN...
06.11.2008 14:11:01
Thread-ID: 1022285
7 Beiträge
Summenformel funktioniert nicht
Mathias

Hallo guten Abend,
ich habe folgendes Problem. Ich habe eine Stundenübersicht. In der Stundenübersicht habe ich wie ihr in der Formel seht im Format 00:00 Die Stunden zusammen gezählt. Wenn ich jetzt aber die Wochenstunden zusammenzählen möchte für Monatsabrechung kommt iergent ein wirres Z...
18.11.2008 23:06:14
Thread-ID: 1025814
7 Beiträge
Anzeige
drag and drop
Klohs

hallo alle zusammen
habe im archiv ansätze für eine aufgabe die ich mir gestellt habe gefunden.
https://www.herber.de/bbs/user/22558.xls
doch kann man es auch so gestalten das die ausgewählten namen aus liste 1 verschwinden wenn sie ausgewählt sind und in liste 2 stehen
liste 1...
06.02.2009 20:50:23
Thread-ID: 1047906
3 Beiträge
Kopieren von Formeln in Excel funktioniert nicht
Formeln

Hallo Leute,
ich kann seit heute keine Formeln mehr in Excel von einer Datei in eine andere Dateien kopieren. Excel übernimmt nur die Werte. Kopieren in einer Datei zwischen zwei Tabellenblättern funktioniert.
Habe nichts verstellt. Automatische Berechnung ist eingestellt.
Weiß jem...
30.06.2009 13:38:40
Thread-ID: 1085354
8 Beiträge
Formel in VBA mit " funktioniert nicht
ChrisW

Hallo Leute,
ich möchte der Variablen Fo4 folgende Formel zuweisen:
Fo4 = "=SUMPRODUCT(('Detailed Table'!$G$4:$G$63556="PR")*(('Detailed Table'!$A$4:$A$63556)=$A3)*(('Detailed Table'!$J$4:$J$63556)))"
Excel meckert aber und markiert mir PR was wohl an den Anführungszeichen liegt die...
28.08.2009 15:22:19
Thread-ID: 1099200
6 Beiträge
Drag-and-Drop von Buttons innerhalb Worksheets
Buttons

Hallo!
Ich bin auf der Suche, nach einer Möglichkeit Buttons innerhalb eines Excel Arbeitsblattes zu verschieben. Das Ganze soll ähnlich dem verschieben von Felder in Pivot Tabellen erfolgen und -soweit möglich- auch noch funktionieren, wenn das Arbeitsblatt später geschützt wird.
Danke...
01.09.2009 09:38:14
Thread-ID: 1099751
6 Beiträge
Formel funktioniert nicht
Robert

Hallo Excel Freunde
ich habe mal wieder ein Problem mit einer Formel. Ich verwende in Zelle C13 die folgende Formel. Die Formel arbeitet soweit auch ordentlich. Jedoch wenn ich in Zele F13 "kz" eingebe wird in Zelle C13 ein F angezeigt.
Was mir sagt, dass die Funktion WENN(ODER(F13="F...
20.09.2009 21:47:16
Thread-ID: 1104307
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
6
6
10
2
7
5
5
4
4
2
3
5
1
2
2
9
2
9
6
3
2
3
2