Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
672to676
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
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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
Anzeige
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
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

17 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
Finde richtige Stelle für CutCopyMode nicht!!
Benni

Hallo zusammen,
ich habe mal ein Problem, was ich nach diverser Recherche nicht lösen konnte.
Letztlich möchte ich Daten zwischen den Tabellenreitern zweier Dateien transportieren und keine Daten im Zwischenspeicher behalten.
Hört sich easy an und soll lt. zigfacher Ausführeungen...
13.04.2017 11:12:44
Thread-ID: 1552730
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

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
6
2
3
2
5
1
1
7
5
2
9
2
3
8
9
7
5