Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1580to1584
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
Inhaltsverzeichnis

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

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
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
Anzeige
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
AW: Hahaha...
29.09.2017 22:23:12
Tim
Danke Für den Hinweis Michael,
"Late Binding" werde ich mal ergooglen.
lg Tim

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige