Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
356to360
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
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte in Zwischenablage

Werte in Zwischenablage
31.12.2003 15:57:20
Ingrid
Hallo Leute,

ich bearbeite den markierten Bereich einer Spalte in einem Tabellenblatt mit einem VBA Makro. Wenn nach der Bearbeitung alle Bedingungen erfüllt sind, kopiere ich mir diesen Spaltenabschnitt mit CTRL+C in die Zwischenablage.
Nun meine Frage:
Wie kann ich in meiner Excel Tabelle den Inhalt der markierten Zellen (eine oder mehrere) einer Spalte, per VBA Makro in die Zwischenablage kopieren , um diesen anschließend in eine anderen Anwendung mit CTRL+V wieder einzufügen.
Wenn ich die Daten mit CTRL+C in die Zwischenablage kopiere, so habe ich beim einfügen in eine andere Anwendung immer (") am Anfang und Ende einer jeweiligen Zeile stehen.

Danke für Eure Hilfe
Ingrid

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in Zwischenablage
31.12.2003 23:27:31
Reinhard
Hi Ingrid,
bei mir mit win98 und excel2000 kommen da keine anführungszeichen, zb. in

Sub test()
Worksheets("Tabelle1").Range("A1").Value = "Frohes"
Worksheets("Tabelle1").Range("A2").Value = "Neues"
Worksheets("Tabelle1").Range("A3").Value = "Jahr"
Worksheets("Tabelle1").Range("A1:A3").Copy
Application.SendKeys ("^V")
Anw = Shell("c:\windows\notepad.exe", 3)
End Sub

Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige