Per Doppelklick kopierten Zellinhalt einfügen

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next Cancel = True Target.PasteSpecial xlPasteValuesAndNumberFormats If Err.Number = 1004 Then On Error GoTo 0 Exit Sub End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next ActiveSheet.Unprotect "PW" Cancel = True Target.PasteSpecial xlPasteValuesAndNumberFormats ActiveSheet.Protect "PW" End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next Cancel = True ActiveSheet.Unprotect "PW" Target.PasteSpecial xlPasteValuesAndNumberFormats ActiveSheet.Protect "PW" End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim WB As Workbook, WS As Worksheet, rngT As Range On Error Resume Next Application.ScreenUpdating = False Set WS = ActiveSheet Set rngT = Target Cancel = True Set WB = Workbooks.Add WB.Sheets(1).Range("A1").PasteSpecial xlPasteValuesAndNumberFormats WS.Unprotect "PW" WB.Sheets(1).UsedRange.Copy rngT.PasteSpecial xlPasteValuesAndNumberFormats WS.Protect "PW" WB.Close False End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next If ActiveSheet.ProtectContents Then Dim WB As Workbook, WS As Worksheet, rngT As Range Application.ScreenUpdating = False Set WS = ActiveSheet Set rngT = Target Cancel = True Set WB = Workbooks.Add WB.Sheets(1).Range("A1").PasteSpecial xlPasteValuesAndNumberFormats WS.Unprotect "PW" WB.Sheets(1).UsedRange.Copy rngT.PasteSpecial xlPasteValuesAndNumberFormats WS.Protect "PW" WB.Close False Else Cancel = True Target.PasteSpecial xlPasteValuesAndNumberFormats End If End Sub

Hi Chris,
habe den Fehler bzw. das "Handycap" gefunden. Falls Du meine Datei noch hast, schau doch bitte noch einmal rein. In Spalte C, H, und M befinden sich Dropdown´s. Wenn also das Arbeitsblatt nicht geschützt ist, kann ich die Auswahlfelder mitkopieren. Wenn der Blattschutz aktiv ist, kann in den Spalten C, H, und M nicht kopiert werden. Alle anderen nicht geschützten Spalten wie z.B. D, F, I, K....usw. können auch per Doppelklick eingefügt werden. Die Listenfelder sind deswegen gewählt, da nur bestimmte Bezeichnungen in die jeweilge Zelle eingetragen werden sollen. Gibt es eine Alternative oder können die Listenfelder so parametriert werden, dass dies auch bei "Blattschutz" mit kopiert werden?
https://www.herber.de/bbs/user/116012.xlsm
Gruß Micha
Ps. Ich weiß das ich nerve, aber es brennt mir auf den Nägeln. Also bis dann. :-))

Hall Chris,
ich weiß das es nicht leicht ist den Gedankengang des Anderen nachzuvollziehen. Ich kenn das durch meine SPS-Programmierung. Aber nun gut; vielleicht schaffen wir den Murks und die Plage die ich angerichtet habe, auszumerzen.
Es handelt sich hier um einen variablen Kalender Jan-Dez.
Er dient zur Erfassung der Trainingszeiten unserer Mannschaften.
Für jeden Monat erfolgen Einträge über ein Dropdown (Spalte C, H, M).
In der Spalte D steht der Trainingsbeginn (z.B. 8:00Uhr).
In Spalte F steht das Trainingsende (z.B. 9:00Uhr).
In der Spalte E lösche ich bei Bedarf die jeweiligen Einträge.
Über den Button Alles löschen werden alle gemachten Einträge gelöscht.
Nun möchte ich bei aktiven Blattschutz z.B. Zelle C3:F3 über Strg+C kopieren, und diese
in C10:F10 ober in C11:F11 oder in H8:K8 usw über Doppelklick einfügen.
Das geht leider nicht, da bei aktiven Blattschutz die Listenfelder ( Spalte C, H und M)
nicht überschrieben werden.
Alle anderen nicht gesperrten Zellen (Spalte D, F, I, K ,N und P)
können Kopien eingefügt werden. (Bei aktiven Blattschutz!)
Warum die Listenfelder? In diesen werden später noch weitere Daten wie Namen
integriert. Diese Namen sind manchmal nicht von deutschen Mitbürgern und daher schwer
auszusprechen und noch schwerer zu schreiben. Daher das Listenfeld. Einmal ausgewählt, steht dieser in der jeweiligen Zelle. Da es sich um viele Einträge handelt, und ich Tipparbeit vermeiden möchte, soll das Listenfeld kopiert und eingefügt werden.
Jetzt meine Frage:
Gibt es eine Möglichkeit die Listenfelder auch bei aktiven Blattschutz zu überschreiben
wie zuvor beschrieben?
Gruß Micha
Ps. anbei nochmal die Testdatei. Versuch es selbst einmal, und betätge E3. Danach C3 und wähle aus. Gibt in D3 die Startzeit und in F3 das Ende ein. Dann bitte Strg+C und füge es irgendwo in Spalte C oder Spalte H oder Spalt M ein.
Das Gleiche bei aktiven Blattschutz.
https://www.herber.de/bbs/user/116026.xlsm

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next If ActiveSheet.ProtectContents Then Dim WB As Workbook, WS As Worksheet, rngT As Range Application.ScreenUpdating = False Set WS = ActiveSheet Set rngT = Target Cancel = True Set WB = Workbooks.Add WB.Sheets(1).Range("A1").PasteSpecial xlPasteValuesAndNumberFormats WS.Unprotect "PW" WB.Sheets(1).UsedRange.Copy rngT.PasteSpecial xlPasteValuesAndNumberFormats WS.Protect Password:="PW", UserInterfaceOnly:=True, DrawingObjects:=False WB.Close False Else Cancel = True Target.PasteSpecial xlPasteValuesAndNumberFormats End If End Sub

Beliebteste Forumthreads (12 Monate)

Per Doppelklick kopierten Zellinhalt einfügen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Per Doppelklick kopierten Zellinhalt einfügen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread