Mehrere Zellen in eine Zelle zusammenführen

[Nästo]

Hallo zusammen,

ich bräuchte bei folgender Problemstellung eure Hilfe.

Ich möchte die drei markierten Zellen (siehe Anhang) auf "Knopfdruck" aus dem Tabelleblatt "Angebotsliste" in die angewählte Zelle im Tabellenblatt "Terminplan" übertragen.

Es sollen jeweils die drei Zellen der Spalte A, D und H, von der in dem Moment markierten Spalte im Tabellenblatt "Angebotsliste" übernommen werden und in die eine markierte Zelle im Tabellenblatt "Terminplan" übertragen werden.

Ich hoffe das war verständlich formuliert.

Vielen Dank im Voraus für eure Hilfe. :43:

Altruistische Grüße

Nästo

[Fennek]

Versuche es mit
Ziel-zelle = zelle1 & chr(13) & zelle2 & chr(13) & zelle3

Mfg

[BoskoBiati]

Hallo,

das wird mit Formeln nicht funktionieren. Frage ist, was soll die Übertragung denn auslösen? Da Du nicht zwei Bereiche gleichzeitig markieren kannst, muß in jedem Fall mit einer Abfrage gearbeitet werden. Es wäre nett, wenn Du Deine Vorhaben etwas detaillierter erläutern könntest.

Die Schaltfläche, die Du in Deiner Datei hast, ist im falschen Blatt. Damit könnte man die Daten kopieren und in die nächste Zeile im Terminplan eintragen. Freie Auswahl, an welchem Datum das eingefügt werden soll, geht nur über eine weitere Abfrage.

[GMG-CC]

Edgar hat fast alles gesagt. Was mir im Beitrag von Fennek noch aufgefallen ist: Wenn alles in 1 Zelle soll, dann nicht chr(13) sondern chr(10)!

[Fennek]

Danke für die beiden Kommentare, die sind natürloch richtig.

Als vba-code
Cells(i,j) = cells(k,l) & chr(10) & cells(m,n) & chr(10) & cells(o,p)
Fu ktioniert es, als Formel habe ich es nicht hinbekommen.

Mfg

[BoskoBiati]

Hallo,

in Formel müsste es lauten:

Code:

=A4&Zeichen(10)&D4&Zeichen(10)&H4

Dazu muß der Zeilenumbruch im Zellenformat aktiviert sein!

In VBA sollte das aber so aussehen:

Code:

=Cells(loZeile,1) & Chr(10) & Cells(loZeile,4) & Chr(10) & Cells(loZeile,8) 

Variablen mit k,j, etc. zu bezeichnen führt schnell zu Fehlern, die man dann nicht einmal findet!

[snb]

In VBA:

Code:

cells(j,10)=join(array(cells(j,1),cells(j,4),cells(j,8)),vblf)

[Nästo]

Wow...tausend Dank  für das große und schnelle Feedback. An dieser Stelle muss ich mich dann jetzt wohl als kompletter VBA Einsteiger outen.

Kann mir jemand bitte noch verraten wie ich den Code einfügen muss. Habs wie im Anhang aufgeführt versucht aber das funktioniert leider nicht.

Vielen Dank schon mal wieder im Voraus für die Hilfe.

Ps: Ich melde mich demnächst in der Volkshochschule zu einem Basiskurs an, dann werde ich euch in Zukunft nicht mehr mit solchen Einsteigerfragen nerven. Versprochen.

Grüße

Nästo

[WillWissen]

Hi Nästo,

das Makro kann noch nicht funktionieren - es besteht nur aus einem Codefetzen. Da müssen dir die VBA-Spezies das komplette Makro einstellen.

Ich melde mich demnächst in der Volkshochschule zu einem Basiskurs an, dann werde ich euch in Zukunft nicht mehr mit solchen Einsteigerfragen nerven. Versprochen.

Da wäre ich mir nicht so sicher - lies hier fleißg mit, stelle deine Fragen, versuche die Antworten nachzuvollziehen und zu verstehen. Da bist du sicherlich besser aufgehoben.

[Nästo]

Da wäre ich mir nicht so sicher - lies hier fleißg mit, stelle deine Fragen, versuche die Antworten nachzuvollziehen und zu verstehen. Da bist du sicherlich besser aufgehoben.

Wenn das für die fleißigen Helfer hier kein Problem darstellt, dann werde ich das gerne so machen.