Makro gesucht für Inhalte mehrerer Zellen kopieren

Guten Morgen liebe Experten
ich steh wiedermal aufm Schlauch und hab nach einigen Versuchen mit dem Makrorecorder und meinem sehr beschränkten VBA-Wissen klein beigeben müssen.. :-(
Ich sollte ein Makro haben welches ich dann mit einem Befehls-Button verknüpfen kann. Die auszüführende Funktion sollte dann sein:
1. Der Inhalt mehrerer markierter Zellen zu kopieren
2. Wenn möglich sollte beim Einfügen der kopierten Inhalte in ein Textfeld eines anderen Programmes (manuell ausgelöst mit strgl-v) zwischen den Inhalten der verschiedenen Zellen eine Leerzeile eingefügt werden. Ich frage mich nun, ob diese formatierung bereits im Makro fürs Kopieren der Zellinhalte eingebaut werden kann....
Für Eure Tips bin ich wie immer äusserst dankbar.
Gruss Rico

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rico,
wenn alle selektierten Zellen im aktiven Tabellenblatt in die Zwischenablage kopiert werden und zwischen den Zellwerten Leerzeielen stehen sollen, müsste das mit der Prozedur "Auswahl_in_Zwischenablage" gehen:


Option Explicit
Private Declare Function OpenClipboard Lib "user32" ( _
ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib "user32" ( _
ByVal wFormat As Long, _
ByVal hMem As Long) As Long
Private Declare Function GlobalAlloc Lib "kernel32" ( _
ByVal wFlags As Long, _
ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" ( _
ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" ( _
ByVal hMem As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" ( _
ByVal hMem As Long) As Long
Private Declare Function lstrcpy Lib "kernel32" ( _
ByVal lpStr1 As Any, _
ByVal lpStr2 As Any) As Long
Private Const GMEM_MOVEABLE As Long = 2&
Private Const CF_TEXT As Long = 1&
Sub Auswahl_in_Zwischenablage()
Const Leer As String = vbCrLf
Dim strCP As String, rg As Range
For Each rg In Selection
strCP = strCP & rg & Leer & Leer
Next rg
StringToClipboard Left(strCP, Len(strCP) - 2 * Len(Leer))
End Sub
Public Sub StringToClipboard(s As String)
'  von Risi Thomas Softwareentwicklung   www.rtsoftwaredevelopment.de
Dim hMem As Long, hPtr As Long
hMem = GlobalAlloc(GMEM_MOVEABLE, Len(s) + 1)
hPtr = GlobalLock(hMem)
lstrcpy hPtr, s
GlobalUnlock hMem
OpenClipboard 0&
EmptyClipboard
SetClipboardData CF_TEXT, hMem
CloseClipboard
GlobalFree hMem
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Makro gesucht für Inhalte mehrerer Zellen kopieren

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro gesucht für Inhalte mehrerer Zellen kopieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread