Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
332to336
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
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

"Paste" unterbinden, aber "PasteSpecial" zulassen?

"Paste" unterbinden, aber "PasteSpecial" zulassen?
02.11.2003 13:48:25
Volker Croll
Hallo zusammen,

um Daten in einer umfangreichen Tabelle, deren Spalten sehr unterschiedlich formatiert sein muessen, zu erfassen, moechte ich das Einfuegen von Inhalten/Werten zulassen (PasteSpecial). Das waere fuer den Anwender sehr zeitschonend.

Aber das "normale" Kopieren und Einfuegen (Paste) moechte ich unterbinden, damit keine der notwendigen Formatierungen zerstoert werden koennen.

Habe bisher nur Loesungen gefunden die "Paste" verhindern (Zwischenablage loeschen usw.).

Hat jemand eine Idee ?

Gruss Volker

19
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: "Paste" unterbinden, aber "PasteSpecial" zulassen?
02.11.2003 14:16:04
Josef Ehrensberger
Hallo Volker,

schreibe in das modul "DieseArbeitsmappe" folgendes.


Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Die standardeinstellung für [STRG]+[V]/[STRG]+[X] wird wieder hergestellt
Application.OnKey "^v"
Application.OnKey "^x"
'Die Menüpunkte für Einfügen und Ausschneiden werden wieder aktiviert
With Application.CommandBars("Worksheet Menu bar").Controls("Bearbeiten")
.Controls("E&infügen").Enabled = True
.Controls("A&usschneiden").Enabled = True
End With
With Application.CommandBars("Cell")
.Controls("E&infügen").Enabled = True
.Controls("A&usschneiden").Enabled = True
End With
End Sub




Private Sub Workbook_Open()
'Bei [STRG]+[V] wird das Makro "WerteEinfügen" aufgerufen
Application.OnKey "^v", "WerteEinfügen"
'[STRG]+[X] wird deaktiviert
Application.OnKey "^x", ""
'Die Menüpunkte für Einfügen und Ausschneiden werden deaktiviert
With Application.CommandBars("Worksheet Menu bar").Controls("Bearbeiten")
.Controls("E&infügen").Enabled = False
.Controls("A&usschneiden").Enabled = False
End With
With Application.CommandBars("Cell")
.Controls("E&infügen").Enabled = False
.Controls("A&usschneiden").Enabled = False
End With
End Sub


Und in ein StandardModul diesen Code.

Sub WerteEinfügen()
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub


Ich hoffe das es deinen Vorstellungen entspricht.

Gruß Sepp
Anzeige
Toll, aber noch nicht ganz ... (Zwischeninfo) ...
02.11.2003 14:48:52
Volker Croll
Hallo Sepp,

herzlichen Dank; aber irgendwo ist noch ein Fehler, denn die Schaltflaeche "Ausschneiden" wird nicht ausgeblendet, "Einfuegen" ist mal ausgeblendet, mal nicht.

Bin noch am Testen, wollte mich aber schon mal gemeldet haben !

Gruss Volker
noch Offen...
02.11.2003 15:01:47
Josef Ehrensberger
Hi Volker,

also unter XL9 (Office 2000 Pro)
funktioniert alles wunderbar,
XL8 kann ich leider nicht Testen.

Vieleicht weis einer der mit XL8 arbeitet woran
es liegen könnte
versuch
02.11.2003 15:12:20
Josef Ehrensberger
Hi nochmal,

probier mal

With Application.CommandBars
.FindControl(ID:=21).Enabled = False
.FindControl(ID:=22).Enabled = False
End With

Gruß Sepp
Anzeige
Bringt mich schon mal weiter, aber ...
02.11.2003 18:38:54
Volker Croll
Hallo Sepp,

sorry, konnte eine Weile nicht online sein.

Das funktioniert schon sehr zuverlaessig. Wo finde ich denn eine Auflistung, welche ID fuer welche Schaltflaeche steht?

Es besteht aber noch ein Problem: Wenn man kopiert und ueber BEARBEITEN -> INHALTE EINFUEGEN geht (wer weiss, was der DAU so alles macht), ist dort wieder "Alles" auswaehlbar.

Aber bis hierher schon mal 1000 Dank. Du hast mir schon sehr geholfen!

Gruss Volker
Symbolleisten
02.11.2003 18:57:30
Josef Ehrensberger
Hi Volker,

freut mich das es klappt.

Hier ein Code mit dem du alle Symbolleisten/Controls

mit Namen und ID aufgelistet bekommst.

Einfach in einer leeren Tabelle laufen lassen.


Sub Symbolleisten_auflisten()
Dim SymbL As CommandBar
Dim con As CommandBarControl
Dim x As Long
' Auflistung der einzelnen Symbolleisten:
x = 1
For Each SymbL In Application.CommandBars
Cells(x, 1) = SymbL.Name
Cells(x, 2) = SymbL.NameLocal
Cells(x, 3) = SymbL.Index
For Each con In Application.CommandBars(SymbL.Name).Controls
Cells(x, 4) = con.Caption
Cells(x, 5) = con.ID
x = x + 1
Next
Next
End Sub


Gruß Sepp
Anzeige
Nachfrage(n)
02.11.2003 19:50:02
Volker Croll
Hallo Sepp,

Danke fuer die Auflistung! Verstehe ich das jetzt richtig: Weil die ID fuer EINFUEGEN bzw. AUSSCHNEIDEN immer dieselbe ist, brauche ich zum TRUE oder FALSE setzen nicht
einmal

With Application.CommandBars("Worksheet Menu bar").Controls("Bearbeiten") ...

und einmal

With Application.CommandBars("Cell") ...

sondern Dein

With Application.CommandBars
.FindControl(ID:=21).Enabled = False
.FindControl(ID:=22).Enabled = False
End With

deckt beides ab ?

Und faellt Dir zum vorhin beschriebenen Problem BEARBEITEN -> INHALTE EINFUEGEN noch was ein?

Gruss Volker
Anzeige
AW: Nachfrage(n)
02.11.2003 20:21:30
Josef Ehrensberger
Hi Volker,
leider funktioniert ".FindControl" nicht immer
(hab noch nicht herausgefunden warum) dshalb
vieleicht so.


Sub Ausschalten()
On Error Resume Next
With Application.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten")
.Controls("A&usschneiden").Enabled = False
.Controls("E&infügen").Enabled = False
.Controls("I&nhalte einfügen...").Enabled = False
End With
With Application.CommandBars("Cell")
.FindControl(ID:=21).Enabled = False
.FindControl(ID:=22).Enabled = False
.FindControl(ID:=755).Enabled = False
End With
End Sub




Sub Einschalten()
On Error Resume Next
With Application.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten")
.Controls("A&usschneiden").Enabled = True
.Controls("E&infügen").Enabled = True
.Controls("I&nhalte einfügen...").Enabled = True
End With
With Application.CommandBars("Cell")
.FindControl(ID:=21).Enabled = True
.FindControl(ID:=22).Enabled = True
.FindControl(ID:=755).Enabled = True
End With
End Sub


Gruß Sepp
Anzeige
Danke, jetzt ist's wohl (nur) noch Fleissarbeit...
02.11.2003 22:17:44
Volker Croll
Hallo Sepp,

bin mit dem Probieren jetzt so weit, dass man wohl doch jede CommandBars gezielt ansprechen muss. Bei mir waren die normalen Schaltflaechen "Ausschneiden" und "Einfuegen" jetzt permanent ausgeschaltet bis ich sie mit

With Application.CommandBars("Standard") ...

gezielt wieder auf "True" gesetzt habe.

Um mein Eingangs geschildertes DAU-Problem in den Griff zu kriegen, muss ich jetzt alles gezielt aus- und einschalten (z.B. ist mir noch "Zellen loeschen" aufgefallen etc.).

Dank Deiner Hilfe weiss ich jetzt, wie ich's angehe. Dafuer nochmals 1000 Dank!

Gruss Volker
Anzeige
Danke für die Rückmeldung + Tipp
02.11.2003 22:30:55
Josef Ehrensberger
Hi Volker,

freut mich das ich dir wenigstens zum teil
helfen konnte.

noch ein kleiner Tipp.

mit " .Reset " kannst du die einzellnen CommandBars
zurücksetzen ohne das du jedes einzelne Control
ansprechen musst.

Gruß Sepp
Auch fuer diesen Tipp noch Danke ...
02.11.2003 22:37:05
Volker Croll
Hallo Sepp,

... kann heute allerdings nicht mehr "Weiterbasteln".

Gruss Volker
Zwischenablage löschen ?
02.11.2003 14:46:19
Jorainbo
hallo - wie löscht man denn den Inhalt der Zwischenablage per VBA ?

Gruß
Tom
Mit "Application.CutCopyMode = False" (o.T.)
02.11.2003 14:50:26
Volker Croll
AW: Mit "Application.CutCopyMode = False" (o.T.)
02.11.2003 15:42:10
Jorainbo
damit lässt sich nicht der Inhalt der Zwischenablage leeren - ich meinte so wie wenn man auf 'alle löschen' drückt

Gruß
Tom
Anzeige
AW: Mit "Application.CutCopyMode = False" (o.T.)
02.11.2003 17:28:54
josef
hallo, das geht damit:

Private Declare 

Function OpenClipboard Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare 


Function EmptyClipboard Lib "user32" () _
As Long
Private Declare 


Function CloseClipboard Lib "user32" () _
As Long


Sub Zwischenablage_leeren()
If OpenClipboard(0&) <> 0 Then
Call EmptyClipboard
Call CloseClipboard
End If
End Sub





gruß



josef
AW: Mit "Application.CutCopyMode = False" (o.T.)
02.11.2003 19:27:50
Jorainbo
hmm danke - funktioniert aber leider bei mir nicht :-(
habs 1:1 kopiert

Gruß
Tom
Anzeige
Aus dem Forums-Archiv ...
08.03.2002 22:44:26
MRR
Hallo Tom,

zum Thema zwei Zitate aus dem Archiv:
---------------------------------------------------------------------------------
...
es kommt darauf an, ob es sich um Daten aus Excel oder externe Daten handelt. Für externe Daten gibt es keinen VBA-Lösch-Zugriff auf die Zwischenablage, handelt es sich um Excel-Daten, folgender Befehl:
Application.CutCopyMode = False
...
---------------------------------------------------------------------------------
...
versuch es mal hiermit:

Private Declare 

Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
Private Declare 


Function EmptyClipboard Lib "user32" () As Long
Private Declare 


Function CloseClipboard Lib "user32" () As Long


Sub DumpClipboard()
Dim lReturn As Long
lReturn = OpenClipboard(0&)
If lReturn <> 0 Then
lReturn = EmptyClipboard()
lReturn = CloseClipboard()
End If
End Sub



------------------------------------------------------------------



Gruss Volker
Anzeige
Sorry ...
02.11.2003 20:09:42
Volker Croll
... habe uebersehen, dass Josef Dir diesen Code schon gepostet hatte.

Nur dann verstehe ich nicht, was nicht klappen soll. Beschreib's mal genau.

Gruss Volker
AW: Sorry ...
02.11.2003 22:12:37
Jorainbo
hallo Volker - es passiert überhaupt gar nichts, wenn ich den code ausführe :-/
is ja auch nicht so wichtig :-) - aber danke Euch beiden
Gruß
Tom

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge

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
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4