Text aus mehreren Zellen autom. in eine einfügen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit ' immer zu empfehlen Sub Mail_Adressen() Dim zz As Long, sAdr As String For zz = 6 To 14 If Cells(zz, 5) * Cells(zz, 6) = 1 Then sAdr = sAdr & "; " & Cells(zz, 7) Next zz Cells(15, 7) = Mid(sAdr, 3) End Sub

Sorry für die späte Rückmeldung ob Urlaubs.
Vielen Dank schon mal für den Versuch der Hilfe! Leider bin ich in Makros zu schlecht, um das auf meine andere Tabelle umschreiben zu können. Ich habe z. B. noch nicht einmal verstanden, woher das Makro weiß, aus welchen Spalten es die Informationen zieht. Oder ist "zz" ein Platzhalter, in den ich die entsprechende Spalte einfügen muss?
Da ich ca. 300 Adressen habe, wäre die erste Lösung wohl auch etwas aufwendig. Geht das denn vielleicht trotzdem ohne Makro?
Gibt es nicht eine Möglichkeit, den Text aus mehreren Zellen in eine andere Zelle zu übertragen?
Dann könnte ich die E-mail-Adressen in den Zellen z. B. manuell um ", " ergänzen und vielleicht mit einem Summenprodukt in der Zielzelle arbeiten.
Irgendetwas wie z. B. Wenn(Summenprodukt((E6:E11 größer 0)*(F6:F11 größer 0)) größer 1, dann füge Text aus G6:G11 ein?
Ich weiß allerdings schon gar nicht, wie ich den Text aus zwei Zellen automatisch in einer Zielzelle einfüge, ohne dass "#WERT!" erscheint.

Hi Felix, (das ist eine Anrede)
zunächst mal zum Code:
bei Cells(a,b) ist a die Zeilen- und b die Spaltennummer.
Cells(zz,5) ist also die Zelle in Zeile zz in der 5. Spalte - das ist die Spalte E.
For zz = 6 To 14
ist die Schleife über die betrachteten Zeilen. (In deinem Beispiel gehen die Daten nur bis Zeile 11, also reichte auch
For zz = 6 To 11
Die If-Zeile kannst du so lesen:
Wenn in Zeile zz in den Spalten 5 (E) und 6 (F) eine 1 steht,
dann hänge an sAdr hinten ", " und den Wert aus Zeile zz, Spalte 7 (G) an.
Das Endergebnis wird in G15 = Cells(15, 7) geschrieben - wie du gewollt hast.
Und zur Formellösung:
Theoretisch kann man das schon auch mit Formeln lösen - so wie in der beschriebenen "Knochentour",
aber in mehreren Schritten.
Im ersten Schritt fasst man z. B. je 8 Zeilen zusammen.
Dann fasst man je 8 dieser Zusammenfassungen wieder zusammen. Ein weiterer Schritt und das Problem ist gelöst.
(Die Textlänge könnte beim VERKETTEN ein Problem werden - schau mal in die Excelhilfe zu dieser Funktion.)
So etwas wie SUMMENPRODUKT() gibt es für Texte nicht.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Beliebteste Forumthreads (12 Monate)

	E	F	G
5	Hat Zeit	Einladen	E-mail
6	1	1	Peter@test.de
7	1	0	Susi@test.de
8	1	1	Paul@test.de
9	0	0	Doris@test.de
10	0	1	Klaus@test.de
11	0	0	Nina@test.de
12
13
14
15			Peter@test.de, Paul@test.de

Text aus mehreren Zellen autom. in eine einfügen?

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

389 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Text aus mehreren Zellen autom. in eine einfügen?

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

389 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread