Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If Application.CutCopyMode funkt. nur bedingt

Forumthread: If Application.CutCopyMode funkt. nur bedingt

If Application.CutCopyMode funkt. nur bedingt
02.10.2005 16:23:49
M.
Hallo,
If Application.CutCopyMode = 0 Then MsgBox "Nix zum einfügen da" funtioniert nur bei Excel-Kopien, nicht bei Word- oder Internetkopien.
Vielen Dank für eine Lösung.
Karsten
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If Application.CutCopyMode funkt. nur bedingt
02.10.2005 16:36:58
Leo
Hi,
das geht nur mit API-Funktionen, für deine Kenntnisse ein wenig strong.
Um welche Art Daten gehts denn?
mfg Leo
AW: If Application.CutCopyMode funkt. nur bedingt
02.10.2005 17:00:39
M.
Es geht um eine Internetseite. Mit "Alles markieren" kopiert.
mfg
Karsten
AW: If Application.CutCopyMode funkt. nur bedingt
02.10.2005 17:00:43
M.
Es geht um eine Internetseite. Mit "Alles markieren" kopiert.
mfg
Karsten
Anzeige
AW: If Application.CutCopyMode funkt. nur bedingt
02.10.2005 18:03:01
Nepumuk
Hi,
na, dann halt so:
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" ( _
    ByVal hwnd As Long) As Long
Private Declare Function IsClipboardFormatAvailable Lib "user32" ( _
    ByVal wFormat As Long) As Long

Private Const CF_OEMTEXT = 7
Private Const CF_UNICODETEXT = 13
Private Const gcClassnameMSExcel = "XLMAIN"

Public Sub test()
    OpenClipboard FindWindow(gcClassnameMSExcel, Application.Caption)
    If IsClipboardFormatAvailable(CF_OEMTEXT) = 0 And _
        IsClipboardFormatAvailable(CF_UNICODETEXT) = 0 Then
        MsgBox "Nix zum einfügen da.", 48, "Hinweis"
    End If
    CloseClipboard
End Sub

Gruß
Nepumuk
Anzeige
AW: If Application.CutCopyMode funkt. nur bedingt
02.10.2005 20:56:23
M.
Hallo, Nepumuk,
Vielen, vielen Dank für die Mühe. Aaaaaaber, ich krieg es irgendwie nicht hin.
Habe alles von "Option" bis "End Sub " kopiert und eingefügt. Richtig so? In welche Zeile schreibe ich nun "ActiveSheet.Paste" . Muß nicht über "Option" 

Sub irgendwas und unten End Sub
. Beim starten wird bei mir in allen Fällen immer:
Private Declare 

Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
blau, mit Fehlermeldung "Fehler beim Komplitieren"
Hab aber keine Ahnung, was ich da machen muß.
mfg
Karsten
Anzeige
AW: If Application.CutCopyMode funkt. nur bedingt
02.10.2005 21:01:23
Nepumuk
Hi,
kann ich nicht nachvollziehen. Ich habe dir die Mappe mal hoch geladen:

Die Datei https://www.herber.de/bbs/user/27133.xls wurde aus Datenschutzgründen gelöscht

Gruß
Nepumuk
AW: If Application.CutCopyMode funkt. nur bedingt
02.10.2005 21:11:26
K.Rola
Hallo Nepumuk,
schätze, er wird das nicht einbinden können.
Hast du meine email erhalten?
Gruß K.Rola
Anzeige
AW: If Application.CutCopyMode funkt. nur bedingt
02.10.2005 21:16:43
Nepumuk
Liebste K.Rola,
Ja, habe ich. Nochmals vielen Dank für die Genehmigung zur Veröffentlichung. Ich werde dich auch, als Urheberin der Idee, nicht vergessen, zu erwähnen.
Gruß
Nepumuk
AW: If Application.CutCopyMode funkt. nur bedingt
02.10.2005 21:40:18
M.
Hallo Nepumuk,
danke dir. Aber, wenn nichts in der Zwischenablage ist, dann kommt die Box. Wenn etwas drin ist, wird nichts eingefügt und es kommt auch keine Meldung.
Macht nichts. Hab 'ne andere Lösung gefunden.
mfg Karsten
Anzeige
AW: If Application.CutCopyMode funkt. nur bedingt
02.10.2005 21:43:35
Nepumuk
Hi,
deine ursprüngliche Frage lautete, wie kann festgestellt werden, ob sich was im Clipboard von Windows befindet. Die habe ich beantwortet.
Gruß
Nepumuk
AW: If Application.CutCopyMode funkt. nur bedingt
02.10.2005 22:08:53
K.
Stimmt !
Gruß Karsten
;

Forumthreads zu verwandten Themen

Copy and Paste in Tabelle mit VBA erkennen
Helmut

Hallo,
kann ich über eine Ereignisprozdur erkennen, ob ein User in einer Tabelle manuell einen Bereich von A nach B kopiert oder ausgeschnitten hat.
Mich interessiert dann in VBA der Range der Quelle und der Range des Ziels, sobald das Ereignis eingetreten ist.
Danke im Voraus
H...
21.03.2011 15:17:35
Thread-ID: 1206677
7 Beiträge
VBA copy mode
Jana

Hallo liebes Forum!
Ich bin grad am Bau eines kleinen Makros und lese externe Daten in ein Tabellenblatt. Nachdem die alle relevanten Daten eingelesen sind, moechte ich die externe Quelle wieder schliessen und saemtliche aenderungen NICHT speichern.
Die Anweisung dazu: 'ActiveWorkbook....
20.09.2011 10:51:18
Thread-ID: 1230706
3 Beiträge
Per VBA 2.xls öffnen - schließen->visible=false
Florian

Hallo,
ich habe folgendes Problem:
Start.xls öffnet im Hintergrund eine Liste und macht sich unsichtbar (visible=false).
Nun kommt es vor, dass diese Liste gelegentlich gebraucht wird.
Ich habe ein Makro geschrieben, dass via CommandButton eine UserForm oben rechts öffnet. Die U...
17.04.2013 11:13:43
Thread-ID: 1309172
4 Beiträge
per VBA Range finden, die im cutcopy-mode ist
anugyan

Hi Leute,
gibt es eine Möglichkeit in Excel die Range zu finden (und in eine Variable zu speichern), die sich im cutcopy-mode befindet, wenn nach SelectionsChange schon eine andere Zelle markiert ist?
Über eine schnelle Hilfe würde ich mich sehr freuen. Danke
Anugyan
14.07.2002 12:46:57
Thread-ID: 136397
3 Beiträge
VBA Copy/Paste Spalten in andere Datei
Sio
Hallo, lerne gerade VBA und bastel gerade an folgendem Makro:
Ziel des Makros:
-Spalten A:C kopieren
- Datei auswählen wohin es kopiert werden soll
- Einfügen in ein spezielles Worksheet dieser Datei
- Refresh der Datei
- schließen der Datei woraus es kopiert wurde
Das...
23.08.2014 11:23:10
Thread-ID: 1377842
6 Beiträge
Problem mit Cut and Paste
ralf

Frage: Ist es möglich wenn ich in einer Tabelle Parts mit unterschiedlicher Zeilenanzahl habe, diese Parts über ein Makro zu markieren, zu cutten und in ein anderes Sheet einzufügen?
Z. B.Part 1: 1.Zeile Artikel A, 2. Zeile Material des Artikels A, 3. Zeile Lager des Artikels A, 4. Zeile Her...
05.08.2002 22:43:13
Thread-ID: 145109
2 Beiträge
VBA IF "Dateipfad = false then
Mario

Guten Tag
Habe noch ein Problem mit meiner Excel Liste und habe leider keinen plan xD
und zwar:
habe derzeit die AktiveWorkbook.ReadOnly abfrage drinnen und möchte zusätzlich abchecken ob die Datei in den von mir Vorgegebenen Dateipfad liegt ( falls möglich ohne Filenamen sondern nu...
21.10.2017 17:51:29
Thread-ID: 1587172
8 Beiträge
CutCopymode merken
Folker

Hallo,ich kopiere mit Ctrl-C eine Zelle und führe dann ein Makro aus. (Kopierumrandung steht z.B. auf A1 und der Cursor auf B5) Innerhalb dieses Makros wird zwangsläufig der CutCopymode von dieser Zelle (A1) entfernt. Jetzt möchte ich am Ende des Makros den CutCopymode wieder auf die ursprüngli...
18.03.2003 11:47:20
Thread-ID: 233299
6 Beiträge
Hilfe Copy and Paste via VBA
Chaled
Liebe Kollegen,
ich habe ein kleines Problem. In einer Arbeitsmappe habe ich in einem Sheet mehr als 500 Datensätze. Diese Datensätze möchte ich in einem Datenbank einfügen. Deshalb möchte ich sie erstmals normalisieren
Mein Problem ist folgendes: Ich möchte folgende Struktur via VBA
...
19.07.2003 20:09:28
Thread-ID: 283040
3 Beiträge
VBA Editor mit anderem Shortcut aufrufen
TF
Hallo,
kann man dem VBA-Editor auch einen anderen Shortcut als Alt+F11 zuweisen --> für eine bestimmte Datei?
Ich habe zwar was gefunden, mit dem man alle Shortcuts deaktivieren kann, aber das ist nicht ganz das, was ich suche.
Wenn ja, wäre ich über Lösungsvorschläge dankbar.
Danke...
12.02.2004 10:25:30
Thread-ID: 381098
10 Beiträge
Anzeige
CutCopyMode-Eigenschaft
thomas

Hallo Leute,
habe in der VB-Hilfe im Excel etwas gesehen, das komisch ist. Bei der CutCopyMode-Eigenschaft steht Folgendes:
False: Deaktiviert den Ausschneide- bzw. Kopiermodus und entfernt den Laufrahmen.
True: Deaktiviert den Ausschneide- bzw. Kopiermodus und entfernt den Laufrahm...
01.01.1970 00:00:00
Thread-ID: 413459
3 Beiträge
CutCopyMode für eine Spalte
Specke
Hallo Experten,
ich habe in meiner Tabelle in Spalte B eine Gültigkeitsliste. Mit Copy&Paste kann aber auch ein anderer Wert in diese Spalte eingetragen werden.
Nun habe ich über die Forum-Recherche den Befehl Application.CutCopyMode=False gefunden. Es soll aber in anderen Spalten der Tabel...
01.02.2007 10:20:53
Thread-ID: 842572
4 Beiträge

Beliebteste Forumthreads (12 Monate)

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