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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige