Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen in die Zwischenablage kopieren mit ";"

Zellen in die Zwischenablage kopieren mit ";"
28.09.2017 23:11:31
Tim

Hallo zusammen,
ich komme gerade nicht weiter, hat jemand eine Idee?
Ich möchte untereinander stehende Zellen, die Mit der Maus markiert und in die Zwischenablage kopieren, mit einem Trenner ";"
Beispiel:
1234
5678
9999
1111
Ergebnis in der Zwischenablage:
1234;5678;9999;1111
Die Menge der untereinander stehenden Artikel sind immer verschieden.
Würde mich freuen, wenn jemand einen Tip hat.
vielen Dank
Tim
https://www.herber.de/bbs/user/116617.xlsx
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen in die Zwischenablage kopieren mit ";"
28.09.2017 23:40:04
Michael
Hallo!
Sub a()
Dim clp As Object, c As Range, s$
Set clp = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
For Each c In Selection
s = s & c.Value & ";"
Next c
s = Left(s, Len(s) - 1)
With clp
.settext s
.putinclipboard
End With
Set clp = Nothing: Set c = Nothing
End Sub
Nimmt die Zellwerte der gerade aktiven Markierung auf.
LG
Michael
Anzeige
AW: Zellen in die Zwischenablage kopieren mit ";"
28.09.2017 23:49:38
Tim
Vielen Dank für die schnelle Hilfe Michael
funktioniert prima, genau so wie es soll.
Was {1C3B4210-F441-11CE-B9EA-00AA006B1A69} bedeutet frage ich lieber nicht......
Grüße Tim
Hahaha...
28.09.2017 23:59:35
Michael
Hallo Tim,
...Danke für die Rückmeldung, gerne.
Bzgl. dem Ausdruck: Das ist nur die direkte Objekt-Bezeichnung, damit ist der Code im "Late Binding" möglich, d.h. ohne Einbinden eines Verweises lauffähig - kannst ja diesbzgl. mal recherchieren, bei Interesse.
Schönen Abend
Michael
Anzeige
AW: Hahaha...
29.09.2017 22:23:12
Tim
Danke Für den Hinweis Michael,
"Late Binding" werde ich mal ergooglen.
lg Tim

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige