Inhalt aus vier Zellen in eine Zelle kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…in der das fktioniert haben soll, Michael;
das sieht nämlich ganz nach einer im Hintergrund wirkenden VBA-EreignisProzedur aus. Außerdem wird nicht ganz klar, ob die Texte dieser QuellZellen nun per Kopie in nur einer ZielZelle vereinigt oder im Ziel ebenfalls 2 Zellen gefüllt wdn. Letzteres könnte in derselben Mappe auf einem anderen Blatt ja standortgleich auch ohne Kopieren, nur mit DoppelKlick, allerdings einzelzellweise, auch anders erreicht wdn. Das, was wohl alle AWer aus deiner Anfrage herausgelesen haben, könnte in den beiden von mir zu Anfang genannten Varianten mit folgender EreignisProzedur im Dokument-Klassenmodul des ZielBlattes realisiert wdn:

Rem EreignisProzedur wird in Abhängigkeit von 'isToJoin' bedingt kompiliert;
'   bei 'False' wdn die kopierten Zellen 1:1 auf das Ziel=Target übertragen,
'   bei 'True' ihre Werte in einer ZielZelle vereint (im VBE sollte dann ein
'   Verweis auf '\Windows\SysWOW64\FM20.DLL', also die 'Microsoft Forms 2.0
'   Object Library' gesetzt wdn). [Idee: LSr.CyWorXxl -cd:20181015 -1pub:~h]
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
#Const isToJoin = False
Cancel = IsEmpty(Target)
If Cancel Then
#If isToJoin Then
Dim ToJoin As DataObject
Set ToJoin = New DataObject
ToJoin.GetFromClipboard: Target = ToJoin.GetText: Target.WrapText = False
#Else
Target.PasteSpecial xlPasteAll: Cancel = IsEmpty(Target)
#End If
End If
End Sub

Feedback nicht unerwünscht! Gruß, Luc :-?
„Die Intelligenzmenge ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu!“ Auch deshalb informieren mit …

Rem EreignisProzedur wird in Abhängigkeit von 'isToJoin' bedingt kompiliert; ' bei 'False' wdn die kopierten Zellen 1:1 auf das Ziel=Target übertragen, ' bei 'True' ihre Werte in einer ZielZelle vereint (im VBE sollte dann ein ' Verweis auf '\Windows\SysWOW64\FM20.DLL', also die 'Microsoft Forms 2.0 ' Object Library' gesetzt wdn); mit 'qzErsZchn' kann festgelegt wdn, ob u. ' wie in diesem Fall in den GesamtText miteingefügte Übergangszeichen sub- ' stituiert wdn sollen. -VsA1.3 -Idee:LSr.CyWorXxl -cd:20181015 -1pub:do.h

…auch das Pgm im Dokument-Klassenmodul des Blattes angelegt, auf dem das Einfügen erfolgen soll, Michael?
Allerdings könnte es sein, dass es nicht zwischen 2 Xl-Instanzen fktioniert. Das hängt davon ab, ob die Zwischenablage instanzen- und pgm-übergreifend arbeitet, wovon ich aber ausgehe. Der auftretende Fehler lässt aber eher das erste Szenario vermuten:
Falls in der Datei, in der das Pgm steht, im VBEditor unter Menü Extras - Verweise kein Verweis (Haken) auf die angegebene DLL gesetzt wurde, ist DataObject dem Compiler unbekannt und wird folglich bei der automatischen Syntax-Überprüfung moniert.
Übrigens, so wie das Pgm jetzt abgebildet ist, würden die Inhalte der ausgewählten Zellen beim Einfügen verbunden wdn, wobei eine Ersetzung des Tabulator- durch LeerZeichen erfolgt und der ZeilenUmbruch am TextEnde entfernt wird. Die Texte der Zellen wdn also mit eingeschobenem Leerzeichen verbunden. Das kann man bei Bedarf entsprd ändern. Sollen die ZellInhalte nicht in der ZielZelle verbunden, sondern einfach nur die kopierten Zellen komplett übertragen wdn, muss die Konstante isToJoin in der 1.Zeile nach dem PgmKopf auf False gesetzt wdn (wie in der 1.PgmVersion gezeigt).
Luc :-?

Beliebteste Forumthreads (12 Monate)

Inhalt aus vier Zellen in eine Zelle kopieren

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inhalt aus vier Zellen in eine Zelle kopieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread