Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1624to1628
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
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur Werte Kopieren und Einfügen erlauben

Nur Werte Kopieren und Einfügen erlauben
07.06.2018 15:51:08
Callidus
Moin moin
Kann man ein Excel-Tabellenblatt so einrichten, dass ein Nutzer standardmäßig nur Werte kopieren und einfügen kann?
Ich möchte nicht, dass beim kopieren von Zellen sowas wie Bedingte Formatierungen, Rahmen, Ausfüllung etc mit kopiert werden.
Schöne Grüße

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur Werte Kopieren und Einfügen erlauben
07.06.2018 16:58:39
UweD
Hallo
ein workarround
Sperre das Blatt mit der option UserInterfaceOnly
in ein Modul...
Sub BlattSperre()
    Sheets("Tabelle1").Protect "ABC", UserInterfaceOnly:=True
End Sub
Das Blatt wird damit komplett gesperrt und nur Manipulationen per Makro sind zugelassen.
in den Codebereich vom Blatt...
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Makro dort reinkopieren
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Range("B:B"), Target) Is Nothing Then
    Cancel = True
    
        If Application.CutCopyMode Then 'es wurde schon was kopiert 
        
            Target.PasteSpecial Paste:=xlPasteValues ' nur Werte einfügen 
            Application.CutCopyMode = False
            
        Else 'noch nichts kopiert 
        
            Target.Copy
        
        End If
    End If
End Sub
- Hier wird die Eingabe in Spalte B überwacht.(kannst du ja anpassen)
- bei einem Rechtsclick wird geprüft, ob schon was kopiert wurde
- und dann entweder eingefügt, oder kopiert.
Also immer im Wechsel
LG UweD
Anzeige
AW: Nur Werte Kopieren und Einfügen erlauben
08.06.2018 12:23:03
Callidus
Lässt sich dein Code auch so ergänzen, dass der User weiterhin in Zellen Werte eintragen kann, so wie in einem nicht gesperrten Blatt?
Und was ist, wenn der user per tastenkürzel kopiert und einfügt (Strg+C, Strg+V)?
So ist zwar das kopieren/Einfügen wie gewünscht möglich. Aber irgendwie müssen ja auch erstmal Daten in das gesperrte Blatt hineinkommen.
Bei dem Tabellenblatt handelt es sich um eine aufwändig gestaltete Eingabemaske in Tabellenform. Die Werte in den Zellen werden dann im weiteren code verarbeitet udn an anderer Stelle ausgegeben.
Ich möchte dem User die Möglichkeit geben Zeilen/Zellen zu kopieren um sie an anderer Stelle der Eingabemaske wieder einzufügen, da sich die Datensätze häufig ähneln. nur die Formatierungen der Zellen sollen eben nicht mit kopiert werden
Anzeige
offen
08.06.2018 12:51:31
UweD
ggf. ein Weg..
beim Auswählen einer Zelle die aktuelle Formatierung merken und nach einer Änderung (das kann dann Einfügen oder Eingeben sein) das vorherige Format wieder einstellen.
LG UweD

218 Forumthreads zu ähnlichen Themen

VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
nur Werte kopieren
Pet


Guten Abend,
könnte mal wieder etwas Hilfe von Euch gebrauchen.
Unten stehender Code kopiert die bedingte Formatierung aus Tabelle1 mit.
Wie muss ich es ändern, dass nur die Werte kopiert werden?
Vielen Dank vorab für Eure Hilfe.
Gruß, Pet
Sub SchaltflächeCopy() D...
01.11.2008 21:04:45
Thread-ID: 1021094
7 Beiträge
Nur Werte kopieren!
markus473

Hallo zusammen,
ich habe ein Makro, welches Daten kopiert.
Jetzt wäre es besser, wenn es nur die Werte kopiert, da dann die Formatierung erhalten bleibt.
Wie müßte das denn dann aussehen?
Danke Gruß Markus
Sub Uebernahme_Januar() Dim sh As Worksheet UF_Dateiauswahl1.Show I...
26.01.2009 15:27:51
Thread-ID: 1043917
7 Beiträge
Anzeige
Autofilter - nur gefilterte Werte kopieren ?
Piet

Hallo zusammen,
angenommen ich habe in Spalte A diverse Produkte (Produkt A, Produkt B, usw.)
und in Spalte B diverse Zahlenwerte zu den Produkten.
Z.B.:
Produkt Wert
a 27
b 13
b 17
a...
08.04.2009 15:38:42
Thread-ID: 1067762
3 Beiträge
Nur Werte mit selber Jahreszahl kopieren
Heinz

Hallo Leute
Habe heute schon wieder ein Problem !!
Ich hoffe es kann mir bitte wieder jemand weiterhelfen.
Ich habe in "Daten" I1 eine Jahreszahl stehen. In K31:K162 und in M31:M162 Daten mit TTT*TT.MMM.JJ stehen.
Nun möchte ich Daten die in K31:K162 gleich mit der Jahrsezahl in...
26.06.2009 16:13:15
Thread-ID: 1084642
13 Beiträge
Einfügen nur Werte als Standard
Heinz

Hallo,
ich möchte für eine spezielle Arbeitsmappe per VBA festlegen, daß grundsätzlich NUR Werte aus der Zwischenablage eingefügt werden können. Also müsste für alle Befehle (Menü Bearbeiten-Einfügen, Strg+V und das Einfügen-Symbol und ..?) gelten:
Private Sub Workbook_Activate() Sele...
18.09.2009 14:21:23
Thread-ID: 1103798
2 Beiträge
Makro Probleme mit nur Werte einfügen
Michael

Hallo Zusammen,
meine Zielsetzung mit diesem Makro ist es immer die gleichen Zeilen bzw. nur deren Werte aus vielen unterschiedlich benannten Tabellenblättern eines Excelsheets in eines zu kopieren (Werte für Abschluß-aktuell). Mit Hilfe des Forums habe ich folgenden Makro gefunden, angepas...
08.10.2009 10:05:25
Thread-ID: 1108079
3 Beiträge
Nur den Inhalt kopieren
edie

Hallo zusammen,
was muss ich ändern damit nur der Inhalt kopiert wird?
Sub test() Dim wsT As Worksheet Dim wsS As Worksheet Dim i As Integer Dim RowsT As Integer Application.ScreenUpdating = False Set wsT = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets.Count), , xlWorksheet) wsT.Nam...
27.12.2009 23:27:15
Thread-ID: 1126034
3 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
5
4
6
6
4
2
12
1
2
2
2
3
4
12
2
3
2
6
2
3
2
6
2
7
4